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Préface 





J'ai passé une grande partie de ma vie à rechercher ce que 
certains considèrent comme des projets définitivement irréali- 
sables. J'ai fait des livres, des disques, des jeux, des jouets, 
et le texte d'une chanson pour les enfants; par ailleurs, j'ai 
écrit et publié des pièces satiriques, et encore d'autres textes. 
Les gens me demandent s’il est « intelligent » de paraître 
ainsi dans les médias. Je leur réponds, un peu sur la 
défensive, que « Mes activités sont toutes liées. Tout au 
moins, quelque chose. » 

En vérité c'est la grande diversité de mon travail qui 
m'intéresse, qui me provoque. Et, ce n'est pas une 
coïncidence, je suis convaincu que c'est ce mélange 
invraisemblable de gens et de médias (de l'humour mêlé aux 
études, des jeux d'enfants avec du rock and roll, de 
l'animation avec des leçons phoniques, des physiologistes 
pour enfants avec des marionnettistes), qui a rendu la « Rue 
Sésame » aussi vivante, aussi passionnante, et aussi réussie. 

Quoi qu'il en soit, un monde, dans lequel mes efforts 
semblaient toujours hors de propos, s'informatisait. Bien sûr, 
les ordinateurs mémorisaient l'information, généraient des 
listes de mots reconnaissables par des enfants de cinq ans, 
répertoriaient les résultats de recherches, brassaient des 
comptes, ou bien entendu allaient dans le sens de mes 
activités personnelles. En bref, ils devenaient un outil utile 
pour d’autres, assez différents de moi. Si les ordinateurs 
offraient moins qu'une possibilité de création, moins même 
qu'une possibilité de communiquer, jamais il ne me serait 
possible de m'y intéresser. 

Puis, quelques semaines plus tard, ma femme Geneviève, 
alors étudiante à Colombia, me montra un livre Basic 
Computer Games de David Ahl. A mon grand étonnement, j'y 
découvris des images amusantes; il y avait de nombreux jeux, 
la plupart délicieusement stupides. Et, miracle, tout (le 
déroulement des jeux, par exemple) ne sortait pas de mon 
domaine de compréhension. 

J'étais intrigué et quand, plusieurs mois plus tard, je visitai 
le musée pour enfants de Boston, j'eus réellement l'occasion 
de jouer avec un ordinateur, et fus pris au jeu. Les terminaux du 
musée proposaient de nombreux jeux du livre de David Ah. 
De plus, ils m'appelaient par mon nom, et commentaient avec 
humour mon habileté à jouer. Après plusieurs heures passées 
à essayer de faire atterrir une capsule spatiale (seulement 
pour m'entendre dire que j'avais occasionné la formation de 
centaines de nouveaux cratères, et, que Neil Armstrong « avait 
réussi son alunissage la première fois »), on me força à quitter 
le terminal, l'heure de fermeture étant dépassée, et le 
personnel du musée insistant. 

Depuis ce jour, le développement des jeux pour ordinateur, 
comme divertissement et moyen d'éducation, est devenu une 
activité prioritaire pour nous à C.T.W. (Alors que j'écris ceci, 
nous projetons l'ouverture du prototype d'un centre informa- 
tisé de jeux à Philadelphie en 1980 — un projet dans lequel 
David Ahl joue le rôle de pionnier.) Car l'ordinateur rassemble 
les possibilités de divertissement, d'éducation, de défi, de 
personnalisation, d'humour, et d'action réciproque, ce qui, 
dans un sens, n'est possible par aucune autre voie de 
communication. Les ordinateurs sont infiniment patients et ne 
vous tiennent pas rigueur (à moins qu'ils ne soient 
programmés pour) si vous passez la journée entière pour 
répondre à une question. Si vous ne comprenez pas, vous ne 
devez pas hésiter à demander une indication à l'ordinateur. 
Un ordinateur peut ajuster la difficulté du jeu ou les activités 
qui correspondent à votre habileté; certains programmes 
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apprennent même comment vous battre alors que vous 
continuez à jouer avec eux. Equipé d'un software particulier, 
un ordinateur peut chanter (ou vous autoriser à le faire), 
peindre, écrire un poème, ou raconter une histoire. Il peut 
aussi vous plonger dans un monde totalement différent : ainsi 
pouvez-vous vous instruire, par la pratique des jeux, ou tout 
simplement, vous échapper, pour quelques instants, dans un 
monde délicieusement fantastique. 

Les jeux de cette deuxième collection de David Ahl 
prouvent ces nombreuses qualités. Essayez « Chameau », 
par exemple, dans lequel vous vous retrouverez seul dans le 
désert de Gobi avec très peu d’eau et une tribu de sauvages à 
votre recherche : vous apprendrez à gérer vos ressources, 
même si vous ne fuyez pas pour expérimenter vos nouvelles 
connaissances. Ou demandez « Concentration » à votre 
ordinateur et laissez vos enfants perfectionner leurs facultés 
de mémoire sans qu'ils vous imitent. Devenez capitaine et 
naviguez dans un univers à trois dimensions, dans 
« Manœuvres ». Tournez-vous vers « Père » et vos enfants 
pourront discuter avec l'ordinateur (qui vous remplacera), s'ils 
veulent sortir tard le samedi soir. Ou, ultime voyage, jouez 
« Millionnaire » et recommencez votre vie: prenez des 
décisions telles que solliciter un emploi, faire des investisse- 
ments, comment se comporter quand un avion s'écrase sur 
votre magnifique maison neuve ! 

Le plus important dans tout ceci étant que de quelque 
manière que l'on considère les ordinateurs, ils peuvent devenir 
de magnifiques machines qui vous mettent honnêtement au 
centre de l’action. Et, comme David Ahl l’a toujours démontré, 
ils ne sont qu'une formidable partie de « rigolade ». Tournez la 
page et constatez-le. 


Christopher Cerf 


Le langage 


Rapide description du BASIC Microsoft 


Instruction 
ou fonction 


DATA 


DEF FNF (X) 


DIM 


END 
FOR...TO...STEP 
GOTO 

GOSUB 

IF... GOTO 

IF... THEN 


INPUT 


LET 

NEXT 
ON...GOTO 
ON...GOSUB 
PRINT 
READ 
REM 
RESTORE 
RETURN 
STOP 
ABS(X) 
ASC(X$) 


ATN(X) 
CHRS(X) 


COS{(X) 
EXP(X) 
INT(X) 
LEFTS(XS, Y) 


LEN(XS) 
LOG(X) 
MIDS(XS,Y,2) 


Commentaires 


Une chaîne de caractères n'est pas 
toujours entre guillemets. Certains 
BASICS exigent l'utilisation de qguil- 
lemets. 


Si votre BASIC ne possède pas 
l'instruction DEF, utilisez la fonction 
FNF (X) partout où DEF apparaît. 


Dimension des tableaux de nombres 
ou de chaînes de caractères. Les 
chaînes ne sont pas limitées. Les 
indices commencent à zéro. 


Peut être suivi par n'importe quelle 
déclaration. 


Une question particulière peut pré- 
céder le INPUT. 


Le mot-clef LET est facultatif. 


GOTO est pris en considération. 
GOSUB est pris en considération. 


Valeur absolue. 


Renvoie la valeur ASCII du dernier 
caractère. ASC (« A ») vaut 65, ASC 
(«B ») vaut 66, etc. 


Valeur de l'arctangente en radians. 


Donne un caractère en fonction de sa 
valeur ASCII, inverse de la fonction 
ASC. CHRS (65) est « À », CHRS (66) 
est « B », etc. CHRS (7) est le signal 
sonore, CHRS (8) est le retour en 
arrière. 


Cosinus de l'angle en radians. 
Fonction exponentielle. 
Partie entière de X. 


Renvoie les YŸ derniers caractères du 
XS. 


Longueur de X$. 
Logarithme népérien de X. 


Renvoie Z caractères de X$ à partir de 
la position Y. 


Basic 


RND(X) Fonction Rang. Donne une valeur 
entre O et 1. 

RIGHTS(XS,Y) Renvoie les Y premiers caractères de 
X$. 


SGN(X) Fonction Signe. Si X<0, elle vaut —1; 
si X=0, 0; si X>0, 1. 


SIN(X) Sinus de l'angle en radians. 


SQR(X) Racine carrée. 

STRS(X) Transforme X en UNE chaîne de 
caractères numériques. Par exemple, 
STRS (8.45) est « 8.45 », exactement 
tel qu'il est imprimé. 

TAB(X) Espaces jusqu'à la position X de 
l'imprimeur. 

TAN(X) Tangente de l'angle en radians. 

VAL(XS) Convertit une chaîne de caractères 


numériques en un nombre. inverse de 
STRS. 


Conversions en d’autres BASICSs 
et indications de mise au point 


Tous les programmes de ce livre ont été traduits et testés 
en BASIC Microsoft. Nous n'avons utilisé aucune caractéris- 
tique plus étendue ou adaptée à un type de machine, aussi 
peuvent-ils tourner sur n'importe quel ordinateur en langage 
BASIC Microsoft (TRS-80 Niveau ll, Commodore PET, 
Apple Il muni d'un Applesoft BASIC, OSI Challenger, Exidy 
Sorcerer, ou un système opérationnel de disques CP/M). 
Quoi qu'il en soit nous avons fait tourner les programmes sur 
un télétype du terminal KRS-43, aussi la plupart des jeux 
sont-ils destinés à tourner sur un terminal acceptant 
72 caractères sur une même ligne, et deux des jeux 
(PATTERNS et PINBALL) utilisent la fonction retour en arrière 
pour imprimer les débordements. Ces deux programmes 
peuvent être modifiés, si besoin est, pour éviter l'emploi de 
cette fonction. De toute façon, si votre ordinateur possède un 
écran, vous pouvez adapter les programmes à un terminal de 
plus petite capacité en largeur (en particulier sur PET, qui ne 
prend que 40 caractères). Vous pouvez, bien sûr, utiliser 
votre écran pour des jeux graphiques animés, si vous êtes 
malin. 

L'exécution des jeux pour la version française a été 
effectuée sur un Cromemco CS3, BASIC Microsoft 5.0. 


Si ça ne marche pas 


Bien que votre première réaction puisse être de maudire 
votre terminal et de hurler « Il faudrait une loi contre les gens 
qui vendent des livres remplis de programmes qui ne 
marchent pas ! », nous avons constaté que le plus souveni, 
les erreurs sont simplement dues à des fautes de frappe, ou à 
l'ignorance de certaines particularités propres à votre 
appareil. Si un programme ne marche pas, nous vous 
conseillons donc fortement de contrôler ligne par ligne votre 
programme, en le comparant à celui de ce livre. 





Conseils généraux 


Il y a quatre difficultés essentielles à traduire un programme 
de BASIC Microsoft dans un autre BASIC. 


1. Enoncés multiples. En BASIC Microsoft, les énoncés 
multiples séparés par deux-points (:) sont autorisés. Certains 
BASICSs utilisent un anti-slash. Certains n’autorisent pas les 
énoncés multiples. Une autre difficulté se présente dans le 
maniement de |F... THEN dans les lignes d'énoncés multiples. 
En BASIC Microsoft quand une fonction IF est fausse, la ligne 
suivante est prise en compte, et non l'instruction suivante. En 
d'autres mots si l'instruction IF est fausse, le reste de la ligne 
est sauté. Voici un exemple pour traduire les énoncés 
multiples. 


Avant 

10 DIM Q(10) : INPUT K : LET Z=1 

20 FOR 1: 1 TO K: PRINT: NEXT I °R 

80 IF K<>3 THEN PRINT « Ceci ou Cela » : 
900 : GOTO 500 

40 REM Autre chose... 


GOSUB 


Après 

10 DIM Q(10) 

12 INPUT K 

14 LET Z=1 

20 FOR I1=I TOK 

22 PRINT 

24 NEXT | 

30 IF K<>3 THEN 40 
32 PRINT « Ceci ou Cela » 
34 GOSUB 900 

86 GOTO 500 

40 REM Autre chose... 


2. Boucle FOR. En BASIC Microsoft, une boucle FOR est 
toujours exécutée au moins une fois. Le test pour décider si la 
boucle est terminée a lieu quand on rencontre l'instruction 
NEXT. En général, cela n'est pas voulu, et vous avez pu 
remarquer que dans certains programmes on a compensé 
cette équivoque. Le véritable problème de la compatibilité 
entre BASICSs se situe dans la façon que possède le BASIC 
pour savoir si la boucle doit continuer, ou s'arrêter. En BASIC 
Microsoft, une boucle FOR est considérée exécutée quand 
elle se termine normalement (apparition de l'instruction 
NEXT), si elle recommence, ou s'emboîte dans une boucle 
qui recommence. Certains BASICSs n'autorisent pas du tout le 
fait de sauter d'une boucle, ce qui peut être une source 
d'erreurs. (Ceci apparaît en North Star BASIC, en Polymor- 
phic BASIC, et en Processor Tech Extended BASIC.) Si cette 
difficulté apparaît, alors transformez la boucle FOR en une 
structure IF...THEN. 


Par exemple 

10 INPUT I, J 

20 FOR K=I TO J 

80 PRINT « Quelque chose » 
40 NEXT K 

50 END 


devient 


10 INPUT |, J 
20 K=I 


XI 


30 PRINT « Quelque chose » 
40 K=K+1 

45 IF K<=J THEN 30 

50 END 


Le verbe NEXT (sans argument) se rapporte toujours à la 
dernière instruction FOR. Généralement nous avons évité 
cette tournure. 


3. Rangs. Certains programmes utilisent le zéro comme 
indice. Votre BASIC peut ne pas l'accepter. Si votre 
indexation commence à un, alors ajoutez un à tous les autres 
indices. (Dans le contexte d'un programme particulier, il y a 
souvent des moyens plus raffinés de contourner ce problème, 
mais à moins que vous ne sachiez ce qui se passe à l'intérieur 
du programme, ceci est le moyen le moins pénible.) 


4. Chaînes de caractères. Il existe deux méthodes différentes 
pour extraire une sous-chaîne de caractères d'une chaîne 
plus longue. Dans le BASIC adapté à Hewlett-Packard, les 
sous-chaînes sont de la forme XS$(IlJ), ce qui permet 
d'extraire les caractères de la position | à la position J de la 
chaîne X$; et X$(1) permet d'extraire les caractères à partir de 
la position |. Le BASIC Microsoft, créé d'après DEC, utilise les 
fonctions LEFTS$, RIGHTS, et MID$. Voici la méthode qui 
permet la conversion. 

LEFTS$(XS,l) 

RIGHTS(XS,1) 

MIDS(AS,I,J) 


deviennent respectivement 
X$(1,1) 

XS(LEN(XS) — 1+1) 

XS$ (1,1+J — 1) 


Un autre problème latent existe avec les chaînes de 
caractères. Certains des programmes utilisent les rangs à 
l'intérieur d'une chaîne, mais certains BASICSs ne le 
permettent pas. Si vous obtenez un caractère après 
l'instruction DIM, c'est alors le rang à l'intérieur de la chaîne, 
et non un scalaire. Si votre BASIC ne permet pas de 
déterminer le rang à l'intérieur d'une chaîne, alors vous 
manquez de chance, à moins que le rang soit petit et que 
vous puissiez représenter le rang dans la chaîne par un 
scalaire. Par exemple, considérons le rang AS$ (0-3) : 

AS$(0)=«MULET » 

A$(1)=«CHIEN » 

AS$(2)=«VER» 

AS$(3)= «CHAT» 


Si l'on décide à l'avance qu'aucun mot ne comportera plus de 
cinq caractères, alors on peut regrouper le tout dans une 
chaîne, A$. 


A$=«MULETCHIENVERCHAT» 


Remarquez que chaque mot prend la place de cinq 
caractères, même si le complément doit être rempli par des 
blancs. Cependant notre ex-A$(0) représente à présent les 
rangs 1-5, A$(1) les rangs 6-10, etc. Nous pouvons 
généraliser que AS$(n) est translaté aux rangs 5n+1—5n+5. 
Bien entendu la possibilité d'utiliser cette méthode, pour 
substituer le rang d'une chaîne, dépend de la taille de la 
chaîne que vous pouvez utiliser pour le remplacer. 





Artillery 3 





(Guerre 3) 


RUN 


BIENVENUE DANS 


Deux ou trois personnes peuvent 
prendre part à ce jeu. Chaque joueur 
possède une pièce d'artillerie et tire sur un 
adversaire. Le premier à détruire son 
adversaire gagne cette manche du jeu. 
Les paramètres représentant les 
distances entre les pièces d'artillerie et 
leurs vitesses initiales sont fixés au début 
du jeu. Les tirs sont déterminés par la 
donnée d'un angle de tir exprimé en 
degrés à partir de l'axe horizontal. 

Quand il y a trois joueurs, chacun doit 
choisir son adversaire; le premier joueur 
et le troisième peuvent tous deux faire feu 
sur le second. Dès que l'un des joueurs 
est éliminé, le jeu devient un jeu à deux 
joueurs, chacun des joueurs survivants se 
battant contre l'autre. 

Personnellement, je préférerais consi- 
dérer ce jeu comme un jeu de lancers de 
boules de neige ou de boue ou de tartes à 
la crème ou comme quelque.chose de non 
offensif. Quoi qu'il en soit, il a été écrit en 
tant que jeu de tir tel qu'il est décrit ici. 

Ce jeu a d’abord été écrit par Mike 
Forman et ensuite révisé par N. E. Lyon et 
Brian West. Il a été publié pour la première 
fois dans le numéro de Creative Compu- 
ting de janv.-févr. 1976. 


ARTILLERY 3 
CREATIVE COMPUTING 
MORRISTOWN, NEW JERSEY 


VOULEZ VOUS DES INDICATIONS? 


? OUI 


CECI EST UN JEU DE GUERRE QUI SE JOUE A DEUX OU TROIS. 


“GUERRE 3'.DEUX OU TROIS HOMMES PEUVENT JOUERI 





MANCHE 1 


JOUEUR 1 TIRE SUR? 3 
ANGLE DE TIR? 68 
VOUS ETES TROP COURT DE 546.396 KM 


JOUEUR 2 TIRE SUR? 3 
ANGLE DE TIR? 79 
VOUS ETES TROP COURT DE 566.313 KM 


JOUEUR 3 TIRE SUR? 1 
ANGLE DE TIR? 80.5 
VOUS ETES TROP COURT DE 873.915 KM 


MANCHE 2 


JOUEUR 1 TIRE SUR? 2 
ANGLE DE TIR? 70 
VOUS ETES TROP LONG DE 808.003 KM 


JOUEUR 2 TIRE SUR? 3 
ANGLE DE TIR? 84 
VOUS ETES TROP COURT DE 1207.86 KM 


JOUEUR 3 TIRE SUR? 1 

ANGLE DE TIR? 73 

VOUS ETES TROP LONG DE 297.822 KM 
MANCHE 3 

JOUILLR 1 TIRE SUR? 2 

ANGLE DE TIR? 60 

VOUS ETES TROP LONG DE 1436.68 KM 


JOUEUR 2 TIRE SUR? 3 


(EN THEORIE) ON VOUS DONNE DES CANONS POUR VOUS ENTRETUER. 
LES DISTANCES ET VITESSES INITIALES SONT FIXEES AU DEBUT 

DU JEU. LES TIRS SONT PARAMETRES PAR UN ANGLE DE TIR EXPRIME 
EN DEGRES A PARTIR DE L'HORIZONTALE. 


ANGLE DE TIR? 70 
VOUS ETES TROP LONG DE 462.541 KM 


JOUEUR 3 TIRE SUR? 1 
ANGLE DE TIR? 76 
L'ORDINATEUR SUIVRA LE JEU ET REPORTERA LES MOUVEMENTS VOUS ETES TROP COURT DE 151.9R9 KM 
UN TIR EST VALIDE SI IL EST ELOIGNE DE LA CIBLE DE MOINS 

DE 5% DE L'ELOIGNEMENT TOTAL. BONNE CHANCEI 

MANCHE 4 


NOMBRE DE JOUEURS JOUEUR 1 TIRE SUR? 2 
73 ANGLE DE TIR? 74 
VOUS ETES TROP LONG DE 490.168 KM 


DISTANCE (KM) DE 1 A 2? 1000 
DISTANCE (KM) DE 2 A 3 ? 2000 JOUEUR 2 TIRE SUR? 3 
DISTANCE (KM) DE 3 A 1 ? 2500 ANGLE DE TIR? 73 


VOUS ETES TROP LONG DE 140.802 KM 


VITESSE INITIALE (KM/S): 1 ? 300 
VITESSE INITIALE (KM/S): 2 ? 350 
VITESSE INITIALE (KM/S): 3 ? 400 


JOUEUR 3 TIRE SUR? 1 
ANGLE DE TIR? 72 
VOUS ETES TROP LONG DE 439.886 KM 


MANCHE ,5 


JTUEUR 1 TIRE SUR? 2 
ANGLE DE TIR? 76.5 
VOUS ETES TROP LONG DE 277.02 KM 


JONEUR 2 TIRE SUR? 3 
ANGLE DE TIR? 75 
TOUCHE -- 3 EST MORT. 


MANCHE 6 


JOUEUR 1 TIRE SUR? 2 
ANGLE DE TIR? 78 
VOUS ETES TROP LONG DE 143.809 KM 


JOUEUR 2 TIRE SUR? 1 
ANGLE DE TIR? 78 
VOUS ETES TROP LONG DE 556.592 KM 


MANCHE 7 


JOUEUR 1 TIRE SUR? 2 
ANGLE DE TIR? 79.4 
TOUCHE -- 2 EST MORT. 


JEU TERMINE. 1 À GAGNE. 


5 PRINT CHR$(26) 

8 PRINT TAB(24);"ARTILLERY 3" 

9 PRINT TAB(20);"CREATIVE COMPUTING" 

10 PRINT TAB(18);"MORRISTOWN, NEW JERSEY" 
11 PRINT:PRINT:PRINT 

20 T=0 

60 DIM V(3),X(3),P(3),R(3,3) 

70 MAT V2=ZER 

80 MAT X=7ER 

90 MAT P2=ZER 

100 MAT R2=ZER 

110 DATA 1,2,2,3,3,1,1,3,3,2,2,1,2,3,3,1,1,2,0 
120 PRINT "BIENVENUE DANS 'GUERPE 3'.DFUX OÙ TROIS HOMMES PEUVENT JOUER!" 
130 PRINT "VOULEZ VOUS DES INDICATIONS?" 
140 INPUT A$ 

150 IF LEFTS(A$,1)="0" THEN 1310 

160 PRINT "" 

170 PRINT "NOMBRE DE JOUEURS" 

1AQ INPUT N 

190 IF N=2 THEN 240 

200 IF N23 THEN 270 

210 PRINT "ERREUR! DEUX OÙ TROIS JOUEURSI" 
220 PRINT 

230 GOTO 160 

240 N1=1 

250 PRINT "" 

260 GOTO 290 

270 NI=N 

280 PRINT "" 

290 FOR J=1 TO N1 

300 READ A,B 

310 PRINT "DISTANCE (KH) DE";A;" A "3n3 
320 INPUT P(A,B) 

330 R(R,A)=R(A,8) 

340 NEXT 9 

35A PRINT “" 

369 RESTORE 

370 IF N=2 THEN 460 

380 FOR J=1 TO N 

390 READ A,B,C,D,E,F 

400 IF R(A,B)<R(C,D)+R(E,F) THEN 440 

410 PRINT "ERREUR =- TRIANGLE INCORRECT.NOUVELLES DISTANCFS? 
420 RESTORE 

430 GOTO 290 

440 NEXT J 

450 PRINT 

460 FOR J=1 TO N 


470 
480 
490 
son 
510 
52n 
530 
san 
550 
560 
57n 
san 
s9n 
6n9 
610 
62n 
630 
6an 
650 
66n 
67n 
6nn 
690 
7n0 
710 
720 
730 
740 
750 
760 
770 
7€n 
ain 
a2n 
a3n 
Ran 
85n 
R60 
870 
aan 
a9n 
900 
91n 
920 
93n 
940 
asn 
960 
979 
98n 
99n 
1000 
1nin 
1n2n 
1930 
1n4n 
1050 
1n60 
1070 
1ngn 
1n9n 
1100 
1110 
1120 
1130 
1140 
11510 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 


PRINT "VITESSE INITIALE (KH/5):"39; 
INPUT V(J) 

NEXT J 

PRINT "" 

FOR Jz] TON 

X(J)=V(3)°2/32 

NEXT 9 

FOR Az1 IN N 

FOR Bz1 TN N 

IF X(ADDR(A,R) THEN 610 

PRINT "ERREUR =-"3;A3"NE PEUT ATTEINDRE "3; 
PRINT "QUELLE EST LA VITESSE INITIALE DE "3A; 
INPUT V(A) 

GoTn sin 

NEXT G 

NEXT A 

NI=N 

PRINT "" 

PRINT "" 

PRINT MHANCHT "3T4+l 

PRINT 

FOR Hal TON 

IF N=3 THEN 750 


C=1 

IF MCD 1 THEN 730 

C=2 

PRINT "JOUCUR "SNS "TIRE SUR":C 
GOTN 890 


IF P(H)212 THEN 1200 
PRINT MINNENPMSNS TIRE SUP"; 

INPUT € 
AN C COIN R3N,H3N,R3N 
PRINT "EPREUR=-INUEURS DESIQNES 1,2,3." 
GOTN 760 

IF CO 1 INC An 
PRINT "ERPEUR=ON NE PEUT SF TUER." 
GOTN 760 

IF P(C) © 12 THEN A9N 
PRINT MEPREUR 22303 "EST MORT," 
GOT 761 
PRINT MANGLEF DF TIR" 

INPUT A3 

IF A3<Q THEN 940 

IF A3>180 THEN 940 
GOT 970 
PRINT "ERREUR 22 TIR DANS LE SOL. "SH M"EST HART," 
P(I)212 
GOTO 76n 

IF A3<9N THEN 100 
PRINT MERREUP,TIR DANS UNE MAUVAISE DIPECTINN,TIP PERDU," 
GoTn 76n 

Z=SIN(A3*.0349064)#V(H)"2/32 
X=(R(H,C)/1Nnn8#PAP(1))-(RCN,C)/1NNN8RAD(1)) 

D2X+7 

DI=R(H,C)*.05 

IF D<N1 THEN 1n80 

IF ARS(N-R(M,C))<D1 THEN 1110 

IF D<P(M,C) THEN 1140 

IF DDPR(H,C) THEN 1161 

PRINT "TROP PREG-"3 HG "CSST HORT" 

P(M)=12 

GaTn 11en 

PRINT MIOUCHE --";C; "EST MORT." 

P(C)212 

GOTO 1180 

PRINT "VOUS ETES TPOP COURT DE "ABS(D-R(H,C));"Kn" 

GOTO 127n 

PRINT "VOUS ETES TPNP LONG DF";ARS(D-R(N,C)); "KM" 

GOTN 1270 

NI=NI-1 

IF N1>1 THEN 1270 

FOP Hz TON 

IF P(M1)=12 TN 1250 

PRINT 

PRINT "JEU TERMINE."3;N13;"A GAGNE." 

GOTQ 1430 

NEXT H1 

STOP 

PRINT "" 

NEXT 

T27+1 

GoTn 650 

PRINT 

PRINT "CECI EST UN JEU DE GUFRRE QUI SE JOUE A DEUX OU TROIS." 
PRINT "(EN THEORIE) ON VOUS DONNE DES CANONS POUR VOUS ENTRETUER." 
PRINT "LES DISTANCES ET VITESSES INITIALES SONT FIXÉES AU DEBUT" 
PRINT "DU JŒU. LES TIRS SONT PARAMETRES PAR UN ANGLE DE TIR EXPRIME" 
PRINT "EN DECRES A PARTIR DE L'HORIZONTALE." 

PRINT 

PRINT "L'ORDINATEUR SUIVRA LE JEU ET PEPORTERA LES MOUVEMENTS" 
PRINT "UN TIR EST VALIDE SI IL EST ELOIGNE DE LA CIBLE DEF MOINS" 
PRINT "DE 5% DE L'ELOIGNEMENT TOTAL. BONNE CHANCE 1" 
PRINT "“" 

GOTO 160 

END 


Baccara 





Les jeux de la famille du Baccara et du 
chemin de fer sont issus du Baccara, jeu 
qui devint populaire dans les casinos 


Puis le banquier décide s’il tire ou non 
une nouvelle carte. 


Fee are ne e : Rs SI LE BANQUIER DONNE IL S'ABSTIENT IL TIRE 

gèrent d'Europe aux Etats-Unis puis FEUS ou dix " É : : 3 À 4 : à 3 
retournèrent en Europe et dans les Huit 345 6 Se ) 210 (ou 8) 
casinos du monde entier. Cela eut comme Séot où sie 7 Vives 6. 5’ 43210 
conséquence des évolutions importantes 2e SU GUAS 6.7 54321 0 
dans les règles du jeu; ainsi ce qui est Toi oi Sa 5 6.7 4 3! 2 1 0’ 
appelé « baccara » dans un casino peut As 4567 3210 
ressembler beaucoup plus à ce qui est dj j'udversaire s’abstient 67 5,4, 3,2,1,0 


appelé « chemin de fer » dans un autre. 

Le jeu programmé ici est plus proche du 
chemin de fer que du Baccara. Les règles 
sont brièvement les suivantes : 

Huit jeux de cartes sont mélangés, et 
placés dans un «sabot» duquel les 
cartes ne peuvent être tirées qu'une par 
une. Les joueurs misent ainsi: chaque 
joueur peut miser jusqu'à concurrence de 
la somme que la banque possède. Le 
joueur placé à la droite du banquier a 
priorité pour miser. Le reste de l'argent 
non joué peut être misé par le joueur 
suivant placé à sa droite, et ainsi de suite 
jusqu'à ce que la banque entière soit 
couverte ou que chacun ait misé comme il 
le souhaitait. N'importe quel joueur peut 
miser la banque entière en disant 
« Banco », mais si deux joueurs ou plus 
souhaitent faire banco, c’est le joueur le 
plus proche du banquier, à sa droite, qui a 


Aucun des joueurs ne peut retirer plus 
d'une carte, il ne peut donc pas posséder 
plus de trois cartes. Quand chaque joueur 
a usé de cette option, les cartes sont 
montrées. Si les totaux sont les mêmes, 
les mises sont annulées, et on procède à 
de nouvelles mises exactement comme 
précédemment pour un nouveau tirage. Si 


l'adversaire a un total supérieur à celui du 
banquier, chaque joueur reçoit la part de 
la banque qu'il a misée. 

Dans le jeu du chemin de fer, le rôle du 
banquier est attribué à chaque joueur à 
tour de rôle, après chaque main; ce n'est 
pas le cas au Baccara. 

Baccara a été écrit par Scott Byron. 


priorité. 

Après que les mises aient été faites, le 
banquier donne deux mains de deux cartes 
chacune, en distribuant une carte à la fois. 
La main qu'il tire en premier est pour tous 
les joueurs qui misent contre lui; l’autre 
main est la sienne. C'est le joueur qui a fait 
la plus grosse mise contre le banquier, qui 
joue la main opposée. 

Le but du jeu est d’avoir entre les mains 
deux ou trois cartes d'une valeur de neuf, 
ou la plus proche de neuf possible. Les 
valeurs des cartes sont les suivantes : les 
figures et le dix, zéro; l’as, un; les autres 
cartes valent leur nombre. Les groupe- 
ments de dix points comptent pour zéro; 
ainsi, neuf plus sept compte pour six 
points et non pour seize. 

Un joueur dont les cartes valent neuf ou 
huit dès les deux premières cartes montre 
son jeu immédiatement. I! possède un 
« naturel » et sa main gagne (un naturel 
de neuf bat un naturel de huit). Des 
naturels de la même valeur font match nul, 
et on procède à un nouveau tirage. 

Si le résultat n'est pas décidé par un 
naturel, le banquier doit donner une carte 
à son adversaire s’il le demande; l’adver- 
saire peut aussi s'abstenir. Un adversaire 
doit s'abstenir s'il possède six ou sept 
points, doit retirer s’il a de zéro à quatre, 
mais a le choix s’il a cinq points. La carte 
supplémentaire, s’il y en a, est donnée la 
face découverte. 


BACCARA 
CREATIVE COMPUTING 
MORRISTOWN, NEW JERSEY 


BACCARA -- CHEMIN DE FER 
VOULEZ VOUS LE MODE D'EMPLOI? OUT 


LE BACCARA EST UN JEU TRES POPULAIRE A LAS 
VEGAS. LE JOUEUR ET LE BANQUIER RECOIVENT CHACUN 
DEUX CARTES D'UN 'SABOT' QUI CONTIENT 8 JEUX 
DE CARTES. TOUTES LES COMBINAISONS DE CARTES TOTALISANT 
DIX NE SONT PAS COMPTEES. LE JOUEUR QUI À LA FIN EST LE 
PLUS PROCHE DE NEUF,GAGNE. LES MISES SONT ELEVEES, 
TOUS LES JOUEURS DEBUTENT AVEC DIX MILLE 
DOLLARS. VOUS POUVEZ JOUER SUR LE BANQUIER OÙ LE 
JOUEUR. UNE TROISIEME CARTE N'EST DONNEE QU'A 
CERTAINES CONDITIONS, COMME VOUS LE VERREZ 
COMMENCONS . BONNE CHANCEI 


COMBIEN Y-A-T-IL DE JOUEURS? 1 
QUEL EST LE NOM DU JOUEUR 1 ? JACQUES 
JACQUES A $10,000. MISE? 509 


(1) BANQUIER OÙ (2) JOUEUR? 1 


BANQUIER 
VALET DE PIQUE 
CINQ DE COEUR 


JOUEUR 
QUATRE DE PIQUE 
SEPT DE COEUR 


LE JOUEUR DOIT TIRER. 

DAME DE TREFLE 

LE JOUEUR NE PEUT PAS TIRER. 
TOTAL DU JOUEUR: 1 


LE BANQUIER DOIT TIRER. 
AS DE CARREAU 
TOTAL DU BANQUIER: 6 


LE BANQUIER GAGNEII 


JACQUES GAGNE $500, LE NOUVEAU TOTAL EST DE $10,500. 


= NOUVEAU JEU ------- 498 D=INT(1+RND(1)*13) 
419 Q(C,D)=Q(C,D)+1 








JACQUES À $10,500. MISE? 1000 420 IF Q(C,D)>=32 THEN 399 

(1) BANQUIER OU (2) JOUEUR? 2 438 B(J)=V(D) 
449 CS(J)=B$(D)+" DE "+AS(C) 
45 NEXT J 

BANQUIER JOUEUR 460 Wi=2 

Se 0, D, SELS 478 FOR J=i TO Pi 

NEUF DE TREFLE AS DE TREFLE 489 IF M(J)<i THEN 589 

VALET DE CARREAU AS DE TREFLE 499 PRINT G$(J)" À ";:PRINT USING "SSH#,###";M(J) ; : PRINT ". MISE"; 
524 INPUT F(J) 

LE JOUEUR DOIT TIRER. Sid IF F(J)>M(J) THEN 499 

DAME DE TREFLE 528 1F F(J)©INT(F(J)) THEN 49% 

LE JOUEUR NE PEUT PAS TIRER. 539 1F F(J)<i THEN 499 

TOTAL DU JOUEUR: 2 548 PRINT"(i) BANQUIER OU (2) JOUEUR"; 
552 INPUT Fi(J) 

LE BANQUIER NE PEUT PAS TIRER. 568 IF F1(J)>=1900 THEN 498 

TOTAL DU BANQUIER: 9 S7à 1F (F1(J)-i)*(Fi(J)-2)<>8 THEN 548 
575 PRINT 

LE BANQUIER GAGNE!! 589 NEXT J 

JACQUES PERD $1,000, LE NOUVEAU TOTAL EST DE $9,500. 59 J=8 
609 Ti=B(1)+5(2) 

mm NOUVEAU JEU --------" 612 T2=B(3)+B(4) 
629 PRINT 

JACQUES À $9,500. MISE? 9400 639 PRINT"BANQUIER"TAB (24) "JOUEUR"* 

(1) BANQUIER OU (2) JOUEUR? 2 635 PRINT" "TAB (24) " ï 


642 PRINT C$(3)TAB(24)CS(i) 
65 PRINT C$(4)TAB(28)CS (2) 


BANQUIER JOUEUR 655 PRINT 
Sais Dh. be Sésite 668 1F Ti<id THEN 684 
VALET DE CARREAU SIX DE CARREAU 678 T1=Ti-id 
VALET DE COEUR AS DE TREFLE 689 1F T2<19 THEN 709 
690 T2=T2-i0 
LE JOUEUR NE PEUT PAS TIRER. 7dd IF W(Ti+i)=d THEN 778 
TOTAL DU JOUEUR: 7 719 PRINT'LE JOUEUR DOIT TIRER." 
724 PRINT CS (5) 
LE BANQUIER DOIT TIRER. 730 Ti=T1+B(5) 
DAME DE PIQUE 740 IF Ti<id THEN 770 
TOTAL DU BANQUIER: 0 759 Ti=Ti-id 
768 GOTO 799 
LE JOUEUR GAGNE!! 779 PRINT®"LE JOUEUR NE PEUT PAS TIRER." 
JACQUES GAGNE  $9,400, LE NOUVEAU TOTAL EST DE $13,900. 788 J=ii 
793 PKINT"TOTAL DU JOUEUR:"Ti 
828 PRINT 


810 1F T2<3 THEN 879 

824 1F T2>G THEN 938 

838 IF J<>11 THEN 86% 

849 IF T2=6 THEN 939 

85ù GOTO 874 

860 1F Z(T2,B(5)+i)=9 THEN 939 
879 PRINT"LE BANQUIER DOIT TIRER." 
882 PRINT CS$(6) 

899 T2=T2+B(6) 








5 PRINT CHR$ (26) :CLEAR 1989 99 1F T2<id THEN 920 

19 PRINT TAB (26) ; "BACCARA * 91d T2=T2-10 

28 PRINT TAB (28) ; "CREATIVE COMPUTING" 928 GOTO 944 

33 PRINT TAB (18) ;"MORRISTONN, NEW JERSEY" : PRINT: PRINT : PRINT 932 PRINT"LE BANQUIER NE PEUT PAS TIRER." 

42 PRINT"BACCARAT — CHEMIN DE FER" 948 PRINT" TOTAL DU BANQUIER: "T2 

58 PRINT 958 PRINT 

68 PRINT"VOULEZ VOUS LE MODE D'EMPLOI"; 960 1F T2CTi THEN 998 

72 INPUT QS 978 PRINT"COUP POUR RIEN.IL FAUT REJOUER." 

80 IF LEFTS(QS,1)<>"O" THEN 219 989 GOTO 384 

98 PRINT: PRINT" LE BACCARA EST UN JEU TRES POPULAIRE À LAS" 990 1F T2<TI THEN 1039 

109 PRINT"VEGAS. LE JOUEUR ET LE BANQUIER RECOIVENT CHACUN" 1ô0ÿ Wi=i 

119 PRINT"DEUX CARTES D'UN ‘SABOT' QUI CONTIENT 8 JEUX" 1919 PRINT"LE BANQUIER GAGNEI 1" 

129 PRINT"DE CARTES. TOUTES LES COMBINAISONS DE CARTES TOTALISANT" 1024 COrO ua . 

138 PRINT"DIX NE SONT PAS COMPTEES. LE JOUEUR QUI À LA FIN EST LE" 198 PRINTULE JOJEURGAGNE 

149 PRINT*PLUS PROCHE DE NEUF,GAGNE. LES MISES SONT ELEVEES," 1B4d FOR Je TO. Pi 

158 PRINT*TOUS LES JOUEURS DEBUTENT AVEC DIX MILLE" 1959. IF M(J)<=ÿ THEN 1139 

168 PRINT"DOLLARS. VOUS POUVEZ JOUER SUR LE BANQUIER OÙ LE" 1968 PRINT G$(J)" "; 

173 PRINT"JOUEUR. UNE TROISIEME CARTE N'EST DONNEE QU'A" 1979 1F Fl(J)=i THEN 1119 

180 PRINT"CERTAINES CONDITIONS, COMME VOUS LE VERREZ"* 1982 M(J)=M(J)-F(J) 

19% PRINT"COMMENCONS. BONNE CHANCEI" 1999 PRINT"PERD ";:PRINT USING "SS##,###";F(J);:PRINT *, LE NOUVEAU TOTAL EST DE 
289 PRINT “5 

218 DIM M(29),F1(28) ,F(28),B$(13),V(13),G$(28) 1895 PRINT USING "SS#,###";M(J) ;: PRINT "." 

228 DIM Z(9,18),0(4,13) livé GOTO 1138 

248 FOR X=3 TO 6 1119 M(J)=M(J)+F(J) 

250 FOR Y=1 TO 18 1129 PRINT*GAGNE ";:PRINT USING "SS#4,##4";F(J);:PRINT ", LE NOUVEAU TOTAL EST D 
269 READ Z(X,Y) E “; 

272 NEXT Y,X 1125 PRINT USING "SS4,#8";M(J);: PRINT "." 

289 FOR Si=1 TO 10:READ W(S1):NEXT 1138 NEXT J 

283 FOR S1=1 TO 4:READ A$ (Si) :NEXT 1149 FOR J=1 TO PI 

285 FOR Si=1 TO 13:READ B$(S1) :NEXT 1158 IF M(J)©>à THEN 1199 

287 FOR Si=1 TO 13:READ V(Si) :NEXT 1168 NEXT J 

292 PRINT 1179 PRINT"MERCI POUR VOTRE ARGENT,ET "; 

32 PRINTCOMBIEN Y-A-T-IL DE JOUEURS"; 1189 GOTO 1329 

319 INPUT PI 1199 PRINT 

315 PRINT 1209 PRINT" NOUVEAU JEU " 

329 FOR J=i TO Pi 1219 PRINT 

334 PRINT"QUEL EST LE NOM DU JOUEUR"J; 1229 FOR X=1 TO 4 

344 INPUT GS (J) 1239 FOR Y=1 TO i 

35 M(J)=10000 1248 IF Q(X,Y)<>8 THEN 388 

362 NEXT J 1258 NEXT Y,X 

365 PRINT 1269 GOTO 373 

379 FOR S1=i TO 4 1279 DATA l,1,1,ledelele dede 18 Gel lrlrlrlel dd 
373 FOR S2=1 TO 13 1288 DATA d,0,8,8,1,1,1,1,8,0,0,0,0,0,0,0,1,1,0,0 
375 Q(S1,S2) =Ù 1298 DATA 1,1,1,1,1,1,8,0,0,8,PIQUES ,COEURS ,CARREAUX 
377 NEXT S2 1304 DATA TREFLES,AS ,DEUX, TROIS ,QUATRE ,CINQ,SIX,SEPT ,HUIT 
379 NEXT Si 1314 DATA NEUF,DIX,VALET,DAME,ROI,1,2,3,4,5,6,7,8,9,0,0,0,8 
389 FOR J=1 TO 6 1329 PRINS®MERCI D'AVOIR JOUE." 

399 C=INT(1+RND(1) *4) 1339 FOR XX=1 TO 2909:NEXT : END 


Bible Quiz 





(Questionnaire sur la Bible) 


Le questionnaire sur la Bible est un 
programme qui pose 25 questions sur la 
Bible à l'utilisateur. Si la réponse à la 
question posée est juste, le programme 
passe à la question suivante. En cas de 
réponse erronée, il donne la réponse 
correcte. Dans les deux cas, il cite le 
passage de la Bible concerné. 

Remarque : les instructions comprises 
entre les lignes 124 et 296 peuvent servir 
de base à n'importe quel type de dialogue 
CAI à condition de changer les instruc- 
tions précédant la ligne 124 et l'énoncé 
des questions-réponses dans les lignes 
des données. 

Ce programme fut écrit par Steve 
Wentworth de Muskingum College. Il 
parut pour la première fois dans Creative 
Computing, en mars-avril 1977. 


QUESTIONNAIRE SUR LA BIBLE 
CREATIVE COMPUTING 
MORRISTOWN, NEW JERSEY 


CFE JEU EST UN QUESTIONNAIRE QUI TESTE 
VOS CONNAISSANCES SUR LES EVENEMENTS, LIEUX, 
ET PERSONNES CITES DANS LA RIRLE, 


JF VOUS POSE UNE QUFSTION PUIS ATTENDS 
VOTRE REPONSE. SI VOTRE REPONSE EST JUSTE , 
JE PASSE À LA QUESTION SUIVANTE. SI VOTRE 
REPONSE EST FAUSSE, JE VOUS DONNE LA 

BONNE REPONSE ET PASSF À LA 

QUESTION SUIVANTE. 


CHAQUE REPONSE TIENT EN UN MOT. 
ATTENTION À L'ORTHOGRAPHE! 
IL Y À 25 QUESTIONS EN TOUT. 


A COMBIEN DE OUESTIONS VOULEZ-VOUS REPONDRE? 7 


QUESTION # 1 


QUI PORTAIT UN MANTEAU SANS COUTURE? JESUS 
REPONSF EXACTE -- BRAVOI JOHN 19:23 


QUESTION # 2 


QUI QUITTA SA CHAUSSURE POUR SIGNER UN CONTRAT? BOAZ 
RFPONSE EXACTE -- BRAVOI RUTH 4:7-9 


QUESTION # 3 


QUI FUT LA PREMIFRE VICTIME D'UN ASSASSINAT? ABFL 
REPONSF EXACTE -- BRAVOI GEN. 4:8 


QUESTION # 4 


QUEL HEBREU ORGANISA UN CASSE-CROUTE SOUS UN ARBRE? ABRAHAM 
REPONSF EXACTE -- BRAVOI GEN. 18:6-8 


QUESTION # 5 


QUI FUT LF PREMIER MARTYR DU CHRISTIANISME? STEPHEN 
REPONSE EXACTE -- BRAVOI ACTE 7 


QUESTION # 6 


QUI A CONSTRUIT LA PREMIERE VILLE? CAIN 
REPONSE EXACTE -- BRAVOI GEN. 4:17 


QUESTION # 7 


/ QUI FUT JETE DANS LA FOSSE AUX LIONS? DANIEL 
REPONSE EXACTE -- BRAVOI DAN. 6:16 


VOUS AVEZ 7 REPONSES EXACTES SUR 7 QUESTIONS POSEES. 
VOTRE POURCENTAGE DE BONNES REPONSES EST DONC DE 1 % 


: 
S PRINT CHPRÉ(26);TAP.(24);"QUFSTINNNAIRE SUR LA BIBLE" 

6 PRINT TAR(20); "CREATIVE COHPUTING" 

7 PRINT TAR(18);"HNRRISTOUN, NEW JERSEY" 

9 PPRINT:PRINT:PRINT 

10 PRINT "CE JEU EST UN QUESTIONNAIRE QUI TESTE " 

20 PRINT "VNS CONNAISSANCES SUR LES EVENEMENTS, LIEUX, " 
3N PRINT "FT PERSONNES CITES DANS LA BIRLE." 

an PRINT 


sa 


PRINT "JE VOUS POSE LINE QUESTINN PUIS ATTENDS " 


69 PRINT "VOTRE REPONSF, SI VOTRE REPONSE EST JUSTE ," 
70 PRINT "JF PASSE A LA QUESTION SUIVANTE. SI VOTRE " 
AN PRINT "PEPONSE EST FAUSSF, JE VOUS PANNE LA " 


on 

10n 
lin 
118 
119 
120 
122 
124 
130 
135 
Jan 
142 
145 
150 
16n 
162 
170 
175 
180 
183 
184 
185 
186 
210 
220 
230 
240 
250 


270 
272 
280 
290 
292 
294 
296 
301 
302 
303 
304 
3ns 
306 
397 
3n8 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
339 
331 
332 
333 
334 
335 
336 
337 
ann 


PRINT "BONNE REPONSF FT PASSE A LA 


PRINT "QUESTION SUIVANTE," 

PRINT 

PRINT "CHAQUE REPONSE TIENT EN UN HOT." 
PRINT "ATTENTION A L'NRTHOGRAPHEI" 

PRINT "IL Y A 25 QUESTIONS EN TOUT. ":PRINT 
PRINT "A COMBIEN DE QUESTIONS VOULEZ-VOUS REPONDRE"; 
INPUT N 

PRINT 

DIM S(25) 

C=0 

N1=0 

RESTORE 

IF C=N THEN 290 

C=C+l 

PRINT 

PRINT "QUESTION £";C 


PRINT 
X=INT (RNN(1)#25+1) 


IF S(X)=1 THEN 183 

S(X)=1 

FOR Q=1 TO X:READ Q$,A$,V$:NEXT Q 
PRINT A$; 

INPUT R$ 

IF R$=AS$ TIEN 270 


PRINT "VOTRE REPONSE EST INCNRRECTE." 

PRINT "IL FALLAIT REPONDRE ";A$;". "3v$ 

GNTO 145 

PRINT "REPONSE EXACTE -- ARAVOI "3 Vé 

NI=N]l+1 

canton 145 

PRINT 

PRINT "VOUS AVEZ"3;N13"PEPONSES EXACTES SUR"3;N3; "QUESTIONS POSEES." 
P=INT((N1/N)#1N04.5) 

PRINT "VOTRE POURCENTAGE DE BONNES REPONSES EST DONC DE"3P;CHR$(R) 3" 
DATA "QUI HIT LE FEU A TROIS CENTS QUEUES DE RENARD", "SAMSON" 

DATA "1 LIVRF DES JUGFS 15:4,5" 

DATA MQUEL HERPEU NPGANISA LIN CASSE-CRONTE SOUS UN ARRPE" 

DATA "ABRAUAH"," BEN, 18:6-R" 

DATA "OUEL HOMME AFFAME HAUDIT UN FIGUIER SANS FRUITS", "JESUS" 

DATA " MARC 11:12-14" 

DATA "OUT TUA FRERE QUI AVAIT HUMILIF LEUR SNEUP" 

DATA "ARSALOH","2 SA, 13" 

DATA MONT FT 300 CONCHRINES", "SALON", "1 LIVRE DFS ROIS 11:1-3" 
DATA MQUEL GARCON POPTAIT UN MANTEAU BARINLE","JOSEPH"," GEN. 37:3" 
DATA "QUIL PORTAIT LIN MANTEAI SANS COUTURE", "JESUS", " JOHN 19:23" 
DATA "QUI QUITTA SA CHAUSSURE PNR SIGNER UN CONTRAT", "RDAZ",MRIITH 4:79" 
DATA MONT S'FADOPHIT SUR UN SNMNIER EN FER DE PLUS DE à METRES DE LONG" 
DATA "NG"," DEUT, 3:11" 

DATA "QUI À CONSTRUIT LA PPFHIERE VILLE","CAIN"," GEN. 4:17" 

DATA MOLEL PHYSICIEN FUT AUSSI AUTENP","LIC"," CAL. 4:14" 

DATA "QUI A COHPOSF LES 1005 CHANSONS", "SAL NON" 

DATA "1 LIVRE DES PNIS 4:32" 

DATA QUI FUIT LA PPEMIERE VICTIME D'UN ASSASSINAT","ARTLU," GEN, 42" 
DATA "QUI FUT ENTCPPE AVEC SA FEMME DANS UNE GRATTE", "ABRAHAN" 
DATA" GEN, 25:9-10" 

DATA "AIT SF PENDIT ACCIDENTELLENMENT A UN APRRE", "ARSALOM" 

DATA "2 SAN, 1f:9" 

DATA MONEL AVEUIGLE TUA BNNN PEPSNANES AN CAUPS DURE FETE RELIGIEUSE" 
DATA MSANSON"," LIVRE DES CCS 16:23-30" 

DATA MQUEL FST LE MN DE LA PPRFHIEPE VILLE CONSTRUITE PAR LES HOMMES " 
DATA "ENNCH"," GEN. 4:17" 

DATA "QUI FUT UN PUISSANT CHASSEUR","NIRON"," GEN. 10:9-12" 

DATA "AUX A CONDUIT FURICHSEHENT","JCHU","2 LIVRE DES PNIS 9:20" 
DATA "QUI FUT LE PREMIER MARTYR DU CHRISTIANISME", "STEPHEN"," ACTS 7" 
DATA "QUI S'ENDOPHIT DURANT UN LONG SEPHON", "EUTYCHUS" 

DATA " ACTS 20:9" 

DATA "QUFLLE VILLE FUT BAPTISEF LA CITE DES PALIMIEPS","JEPICIHN" 

DATA " PEUT, 34:3" 





Fi] 


DATA "QUI GPIMPA SUP UN APSRF PONP APEPCEVOIR JESUS", "ZACCHAEUS"," LUC 19:4" 


DATA MONT TIIA GOLIATHM,"PAVIN®, "I SAN, 17:49" 
DATA "QUI FUIT JETE DANS LA FNSSE AUX LIONS","PANIEL"," NAN, 6:16" 
END 








Big 6 (Le grand 6) 


Big 6 est une invention américaine, qui 
nous vient des casinos du Nevada. Une 
très grande roue est disposée vertica- 
lement, son diamètre est d'environ un 
mètre, parfois davantage, et elle porte des 
nombres de un à six, rangés aléatoire- 
ment sur la périphérie. Les joueurs 
placent leurs paris sur une table du même 
type que celle de la roulette, placée 
devant la roue. On fait alors tourner la 
roue, et trois nombres sont déclarés 
gagnants. Ce sont les trois nombres qui 
apparaissent au haut de la roue. La 
plupart des joueurs débutants qui regar- 
dent le jeu pensent que comme il y a trois 
numéros gagnants, ils ont une grande 
chance de gagner une forte somme 
d'argent. Les paris sont limités à 
500 dollars et les joueurs découvrent 
rapidement que les chances sont large- 
ment en faveur de la maison de jeux. 

Si vous désirez jouer au Big 6, essayez- 
le d'abord sur ordinateur et vous décou- 
vrirez alors comment il vous sera possible 
d'éviter de perdre quand vous irez jouer à 
Las Vegas ou Atlantic City. L'ordinateur 
est un meilleur joueur quand vous perdez, 
que ne le seront les directeurs de casino 
de ces villes. 

Big 6 a été écrit par Steve Heywood et 
Dave Alvey. 





B1G6 
CREATIVE CO 
MORRISTOWN, N 


CE PROGAMME FAIT TOURNER UNE R 
6 PREMIERS ENTIERS,ET VOUS POU 
1 À 3 NOMBRES. 


LES PARIS SONT COMPRIS ENTRE 1 
POUR SORTIR DE CE PROGRAMME TA 


BONNE CHANCEI 


SUR COMBIEN DE NOMBRES PARIEZ 
? 1 

QUEL EST CE NOMBRE? 4 

PARI? 10 

LES NOMBRES GAGNANTS SONT: 2 
VOUS PERDEZ SUR 4. 

VOUS PERDEZ $-10. 


SUR COMBIEN DE NOMBRES PARIEZ 
? 2 

QUELS SONT CES DEUX NOMBRES 

? 2,4 

PARIS SUR LES DEUX? 5,10 

LES NOMBRES GAGNANTS SONT: 1 
VOUS PERDEZ SUR 2. 

VOUS GAGNEZ 1 FOIS SUR 4. 
VOUS PERDEZ $-5. 


SUR COMBIEN DE NOMBRES PARIEZ 
2:53 

QUELS SONT CES TROIS NOMBRES 
? 1,3,5 

PARI SUR CHAQUE NOMBRE 

? 5,5,5 

LES NOMBRES GAGNANTS SONT: ,3 
VOUS PERDEZ SUR 1. 

VOUS PERDEZ SUR 5. 

VOUS PERDEZ $-5. 


SUR COMBIEN DE NOMBRES PARIEZ 
? 2 

QUELS SONT CES DEUX NOMBRES 

? 1,3 

PARIS SUR LES DEUX? 10,10 

LES NOMBRES GAGNANTS SONT: 1 
VOUS GAGNEZ 1 FOIS SUR 1. 
VOUS PERDEZ SUR 3. 

VOUS PERDEZ $-5. 


SUR COMBIEN DE NOMBRES PARIEZ 
2: À 

QUEL EST CE NOMBRE? 4 

PARI? 100 

LES NOMBRES GAGNANTS SONT: 1 
VOUS PERDEZ SUR 4. 

VOUS PERDEZ $-105. 


SUR COMBIEN DE NOMBRES PARIEZ 
? 2 

QUELS SONT CES DEUX NOMBRES 

? 2,4 

PARIS SUR LES DEUX? 25,25 

LES NOMBRES GAGNANTS SONT: 1 
VOUS PERDEZ SUR 2. 

VOUS GAGNEZ 1 FOIS SUR 4. 
VOUS PERDEZ $-105. 


SUR COMBIEN DE NOMBRES PARIEZ 
? 3 

QUELS SONT CES TROIS NOMBRES 
? 1,2,3 

PARI SUR CHAQUE NOMBRE 

? 10,10,20 

LES NOMBRES GAGNANTS SONT: 4 
VOUS PERDEZ SUR 1. 

VOUS PERDEZ SUR 2. 

VOUS PERDEZ SUR 3. 

VOUS PERDEZ $-145. 


SUR COMBIEN DE NOMBRES PARIEZ 
2.2 

QUEL EST CE NOMBRE? 4 

PARI? 500 

LES NOMBRES GAGNANTS SONT: 4 
VOUS GAGNEZ 1 FOIS SUR 4. 
VOUS GAGNEZ $ 355. 


SUR COMBIEN DE NOMBRES PARIEZ 
? STOP 


TIENSI VOUS LACHEZ LA RAMPE 


MPUTING 


EW JERSEY 


OUE PORTANT LES 
VEZ PARIER SUR 


ET 500 $. 


PEZ "STOP'. 


VOUS ? 


VOUS ? 


VOUS ? 


VOUS ? 


VOUS ? 


VOUS ? 


VOUS ? 


VOUS ? 


VOUS ? 


VOUS AVEZ GAGNE 355 $IIPAS MAUVAISIII 


1 PRINT CHR$(26);TAB(27);"BIC6E" 

2 PRINT TAB(20);"CREATIVE COMPUTING" 

3 PRINT TAB(18);"MORRISTONN, NEW JERSEY" 

4 PRINT:PRINT:PRINT 

10 PRINT "CE PROGAMME FAIT TOURNER UNE ROUE PORTANT LES" 
20 PRINT "6 PREMIERS ENTIERS,ET VOUS POUVEZ PARIER SUR" 
30 PRINT "1 A 3 NOMBRES." 

35 PRINT 

40 PRINT LES PARIS SONT COMPRIS ENTRE 1 ET 500 $." 
45 PRINT 

50 PPINT "POUR SORTIR DF CE PROGRAMME TAPEZ 'STOP'." 
55 PRINT 

60 PRINT "AONNE CHANCF 1" 

65 PRINT:PRINT 

67 DIN S(3) 

70 GOTO 90 

AO PRINT "VOUS DFVEZ PARIER SUR 1,2 OÙ 3 NONBRES" 
90 PRINT "SUR COMBIEN DE NOMBRES PARIEZ VOUS ?" 

100 INPUT NS:IF N£="STNP" THEN 3360 

110 N=VAL (NS) 

120 IF THEN 370 

130 IF N2=3 THEN 600 

140 IF N33 OR N<1 THEN AN 

190 PPINT MQUEL EST CF NOMPRE"; 

2N0 INPUT V 

210 IF V<z=6 OR V>=1 THEN 260 

24P PRINT "VOUS NE POUVEZ PAPIER QUE SUR UN ENTIER NE 1 A 6." 
250 ATO 190 

260 PRINT "PAPI"; 

270 INPUT F 

2AQ IF F<=500 OR F Dz1 THEN 330 

310 PRINT LES PARIS SORT CONPRIS ENTRE 1 ET 500 $," 
320 GNTN 261 

330 GOSUR 1A70 

340 S2=V:932F :G0SUN 2060 

360 GATO 3260 

370 PRINT "QUELS SONT CES DEUX NOMBRES" 

3AN INPUT V,P 

390 IF V<=6 OR V>=l OP P<2:6 NP P><l THEN 460 

&&N PPINT "VOUS NE POUVEZ PARIEP QUE SUR UN ENTIFP DE 1 À 6." 
4950 GOTN 370 

&6N PRINT "PAPIS SUR LES DEUX"; 

470 INPUT F,1 

&AN IF F<=5NN OR F2 OP I<=50N NP 121 THEN 550 
530 PPINT LFS PARIS SONT COMPRIS ENTRE 1 ET 500 5." 
San GUTN 461 

550 GOSHB 1R70 

560 S2=V:532F :GOSUR 2060 

570 S2=P: :GOSUR 2060 
















590 CNTO 326 

600 PPINT "QUELS SONT CES TROIS NONBPFS" 

610 INPUT V,P,S 

620 IF V<=6 OR V>=1 OR P<z6 NR P>=1 OR S<2z6 OR S>=1 THEN 710 
690 PRINT "VOUS NE POUVEZ PARIER QUF SUR UN ENTIER DE 1 À 6." 
700 GOTA 600 

71N PRINT "PARI SUR CHAQUE NONBRE" 

720 INPUT F,1,2 

730 IF F<2500 OR F>21 OR I<2500 OR 1221 OR J<2500 OR J>21 THEN 820 
800 PRINT "LES PARIS SONT COMPRIS ENTRE 1 ET 500 6." 

RIN GNTO 710 

820 GOSUN 1870 

830 :GOSUB 2060 

840 < SUB 206 

850 52 :GOSUB 2060 

P70 COTON 3261 

1870 X2=-1 


IRAN AZINT(6#RAD(1)41 ):B=INT(6#RAD(1)#+1):C2INT(6#PRAD(1)+1) 
1890 S(1)=A:8(2)=B:5(3)=C 

19n0 FOR Y=1 TN 2 

191N FN X=] TO 3-Y 

1920 IF G(X)<=S(X41) THEN 1940 


1930 IF=25(X): 
1940 NEXT X: 


5(N)=25(X+#1):S(X4L)2TE 
EXT Y 





1950 PRINT "LES NOMBRES GAGNANTS SONT: "5(1):5(2);5(3) 
1960 RETURN 

2060 C1=0 

2070 IF S22A THEN Cl=Cl+#]l 


20RN IF S2=B THEN C 


1+1 





2090 IF S22C THEN C1=Cl+1 
2100 IF CIDQ THEN 2130 
2110 53:53#(-1) 


2120 PRINT "VOUS PERDEZ SUR"392;CHR#(8)3", 





:GOT0 2150 


2130 S3=253#C] 


2140 IF Clz) THEN PRINT "VOUS GAGNEZ 1 FOIS SUR";S2;CHR$(8);"." 





ELSE PRINT "VOUS GAGNCZ7";C13"FOIS SUR";S2;CHR$(A);"." 


2190 WzW+S3 
2160 PFTURN 


3260 IF W=0 THON PRINT "VOUS ETFS MANCHE A MANCIIF I 
3270 IF WDN THEN PRINT "VOUS GAGNEZ $";W3;CHRS(8) 
32AN IF W<N THEN PRINT "VOUS PERDEZ $";W3;CHRS(R);". 






PRINT:GOTO 90 
RINT:GOTN 90 
RINT:GOTO 90 


3350 RFH 
3360 PRINT:PRINT:PRINT MTIENS! VOUS LACHEZ LA RAMPE":PRINT 
3370 IF W>Q THEN 3410 


33an 


PRINT "VANS N'AVFZ PAG PEROU D'ARGENT, J' APPELLE CELA DE LA CHANCF I" 


3390 GNTN 344n 


341Nn 


PRINT "VOUS AVFZ GAGNE"3;W3"£TIPAS HAUVAISII I" 


3440 END 





Binary (Binaire) 





RUN 


EN 


EN 


EN 


EN 


EN 


EN 


EN 


EN 


EN 


EN 


EN 


EN 


EN 


EN 


EN 


EN 


EN 


EN 


EN 


EN 


VOTRE SCORE: 


BINAIRE: 


BINAIRE: 


BINAIRE: 


BINAIRE: 


BINAIRE: 


BINAIRE: 


BINAIRE: 


BINAIRE: 


BINAIRE: 


BINAIRE: 


DECIMAL: 


DECIMAL: 


DECIMAL: 


DECIMAL: 


DECIMAL: 


DECIMAL: 


DECIMAL: 


DECIMAL: 


DECIMAL: 


DECIMAL: 


Ce jeu teste votre adresse à convertir 
de binaire en décimal, et de décimal en 
binaire. On vous donne vingt tests de 
conversion. Les nombres sont choisis au 
hasard et votre score est imprimé à la fin. 
La réponse de toute conversion ratée est 
affichée; si on vous présente une nouvelle 
conversion, vous devez supposer que la 
précédente était correcte. 


BINAIRE 


CREATIVE COMPUTING MORRISTOWN NEW JERSEY 


00010 
10011 
10101 
O1111 
11111 
01011 
01000 
11100 
11010 


01010 


8 
10 
9 
14 
3 
21 
9 


15 


100 % 


EN DECIMAL: ? 2 
EN DECIMAL: ? 19 
EN DECIMAL: ? 21 
EN DECIMAL: ? 15 
EN DECIMAL: ? 31 
EN DECIMAL: ? 11 
EN DECIMAL: ? 8 
EN DECIMAL: ? 28 
EN DECIMAL: ? 26 


EN DECIMAL: ? 10 


EN BINAIRE: ? 01000 
EN BINAIRE: ? 01010 
EN BINAIRE: ? O1001 
EN BINAIRE: ? 01110 
EN BINAIRE: ? 00011 
EN BINAIRE: ? 10101 
EN BINAIRE: ? 01001 
EN BINAIRE: ? O1111 
EN BINAIRE: ? 01000 


EN BINAIRE: ? 10001 


ESSAYEZ A NOUVEAU? NON 


Il y a plusieurs modifications possibles 
de ce programme, comme de chronomé- 
trer la réponse, donner la possibilité au 
joueur de spécifier le domaine des 
nombres, de vérifier les nombres doubles, 
ou l'étendre à d'autres bases. 

Ce programme a été écrit par Ted Park 
du Pacific Union College. Il est paru pour 
la première fois dans Creative Computing, 
en mars-avril 1975. 


5 PRINT CHR$(26) 
10 PRINT TAB(30);" BINAIRE" 
15 PRINT 


20 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN NEW JERSEY" 


110 8$-="01" 

120 T0=20 

130 PRINT 

140 PRINT 

150 FOR 1=1 T0 10 

160 GOSUB 560 

170 PRINT "EN BINAIRE: "; 

180 FOR J=1 T0 5 

190 PRINT MID$(B$,B(3)+1,1); 
200 NEXT J 

210 PRINT " EN DECIMAL: "3 
220 INPUT A 

230 IF A=D THEN 260 

240 PRINT D 

250 TO=T0-1 

260 PRINT 

270 NEXT I 

280 PRINT 

290 PRINT 

300 FOR 1=1 TO 10 

310 GOSUB 560 

320 PRINT MEN DECIMAL: "303 
330 PRINT " EN BINAIRE: "; 
340 1$="00000" 

350 INPUT 1$ 

360 IF LEN(I$)> 10 THEN 420 
370 1$="00000"+1$ 

375 IS=RIGHT$(1$,5) 

380 FOR J=1 T0 5 

390 IF MID$(B$,B(3)+1,1)CMID$(1$,9,1) THEN 420 
400 NEXT J 

410 GOTO 480 

420 PRINT " "; 

430 FOR J=1 T0 5 

440 PRINT MID$(B$,B(J)+1,1); 
450 NEXT J 

460 PRINT 

470 TO=TO-1 

480 PRINT 

490 NEXT I 

500 PRINT 

510 PRINT 

520 PRINT "VOTRE SCORE :"3;INT(TO/.2+.5);"%" 
530 PRINT 

540 PRINT 

550 INPUT "ESSAYEZ A NOUVEAU";ANS$ 
551 IF LEFT$(ANS$,1)="0" THEN 110 ELSE RUN "MENU" 
560 D=0 

570 FOR J=1 10 5 

580 B(J)=INT(RND(1)+.5) 

590 D=D*2+8(J) 

600 NEXT J 

610 RETURN 

620 END 


Blackbox (La boîte noire) 


32 9 % 29 29 27 4 15 
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Règle du jeu : La Boîte Noire est la version informatisée du 
jeu paru dans le numéro d'août 77 de «Games and 
puzzles ». La boîte noire est un carré 8 par 8 dans lequel sont 
dissimulés des atomes. Le but du jeu est de déterminer la 
position de ces atomes en envoyant sur eux des rayons issus 
des côtés du carré, et d'interpréter ensuite pourquoi ces rayons 
sont déviés, réfléchis ou absorbés. Les rayons qui viennent 
des bords de la boîte ont un trajet vertical ou horizontal. Les 
cases d'entrée des rayons sont numérotées de 1 à 32, en 
progressant dans le sens inverse des aiguilles d'une montre, 
et en commençant en haut à gauche. 

Pour commencer le jeu, il vous faut préciser le nombre 
d’atomes que vous voulez placer dans la boîte noire. Entrez 
ensuite au clavier le numéro de case d'où part un rayon. 
L'ordinateur vous dira si le rayon a été absorbé. En cas de 
non-absorption, il vous donnera la case de sortie. Tapez un 
zéro pour clore le jeu et pour visualiser l'aire de jeu. Le trajet 
du rayon est soumis aux règles suivantes : 

1) Un rayon qui frappe un atome directement est absorbé. 

2) Un rayon est dévié de 90 degrés s’il a avec une case 
contenant un atome une diagonale et un point communs (de 
sorte qu'il passerait dans une case voisine de l'atome s'il 
continuait). 

8) Un rayon est réfléchi si sa direction passe par une case 
affublée de part et d'autre d’une case contenant un atome. 

4) Un rayon qui entre par une case directement voisine 
d'un atome est réfléchi. 

5) Dans toute autre situation, le trajet jusqu'à la sortie est 
rectiligne. 


Le jeu est suffisamment passionnant avec quatre ou cinq 
atomes, mais peut perdre tout intérêt avec un nombre 
beaucoup plus grand. Prenez garde, un atome peut à 
l'occasion en cacher un autre. Cela n'arrive pas souvent mais 
parfois sa position est vraiment incertaine (le plus souvent, un 
atome n'a qu'une cachette possible). Si vous jouez à 
plusieurs, comptez un point pour un rayon réfléchi ou 
absorbé, 2 points pour un rayon sortant de la boîte et 5 points 
si vous vous trompez dans la localisation d'un atome. 

Ce programme et la règle du jeu sont l'œuvre de Jeff 
Kenton. Une version antérieure à la présente est parue dans 
Creative Computing, mai-juin 1978. 











10 


RUN 10 PRINT CHR$(26) 
100 PRINT TAB(25);"LA BOITE NOIRE" 


LA BOITE NOIRE 110 PRINT TAB(20);"CREATIVE COMPUTING" 
CREATIVE COMPUTING 120 PRINT TAP(18);"MORRISTOWN, NEW JERSEY" 
MORRISTOWN, NEW JERSEY 130 PRINT:PRINT:PRINT 


140 DEF FNR(Z)=INT(B#RND(1)+1) 
150 PRINT "NOMBRE D'ATOHES";: INPUT N 
160 FOR J=0 TO 9: FOR 120 T0 9: B(1,3)=20: NEXT 1,9 










NOMBRE D'ATOMES? 4 170 FOR I=1 TON 

180 X=FNR(1): Y=FNR(1): IF B(X,Y) O0 THEN 180 
FEU? 1 190 B(X,Y NEXT I 
EN 24 200 S=n: 

210 PRINT:PRINT "FEU"3;: INPUT R: IF R<1 THEN 480 
FEU? 3 220 ON (R-1)/8+1 GOTN 240,250,260,270 
RAYON ABSORBE 230 PRINT "ERREUR": GOTO 210 

240 V=0: GOTO 280 
FEU? 4 250 V=-l: GNTO 280 


EN 9 260 V=0: GOTN 280 





270 X=33-R: Y=0: U=0: V=l 
FEU? 26 280 X1=X4+U: Y1=Y+V 
EN 24 290 IF U=N THEN X2=X1-1: X3=Xl+l: Y2=Yl: Y32=Y1: COTON 310 
300 Y2=Y1-1: Y3=Yl+l: X2=X1: X3=X] 
FEU? 17 310 ON A#B(X1,Y1)+B(X2,Y2)+2#1(X3,Y3)+1 COIN 330,340,350, 341 
RAYON REFLECHI 320 PRINT "RAYON ABSORBE":S2=5#1: GOTO 210 
330 X=X1: Y=Y1: GOTO 300 
FEU? 25 34N Z=1: GNTO 36n 
EN 24 350 Z=-1 
360 IF U=0 THFN Uz=Z: V=0: COTO 380 
FEU? 9 370 U=0: VzZ 
RAYON REFLECHI 380 ON (X+15)/R GOTO 420,400,430 
390 STOP 
FEU? 10 400 ON (Y+15)/8 GNTN 44n,280,450 
RAYON REFLECHI 410 STOP 
420 Z=Y: GOTN 460 
FEU? 11 430 Z=25-Y: COTO 460 
RAYON REFLECHI 440 Z=33-X: GOTO 460 
450 Z=P4X 
FEU? 12 460 IF Z=R THEN PRINT "RAYON REFLECHI":62S+#1: GNTN 210 
RAYON REFLECHI 470 PRINT "IN";Z: S2542:G0T0 210 
480 PRINT:PRINT "ALORS DITES-MOI,ON PENSEZ-VOUS QUF SOIFAT LES ATNNHES2" 
FEU? O0 490 PRINT "(EN LIGNE,COLONNE S.V.P.)":PRINT 
500 FOR 021 TON 
ALORS DITES-MOI ,OU PENSEZ-VOUS QUE SOIENT LES ATOMES? 510 PRINT "ATOME £";0; 
(EN LIGNE,COLONNE S.V.P.) 520 INPUT 1,9 
530 IF D(J,1)=20 THEN 5=5+5:G0T0 540 
ATOME # 1 ? 4,3 535 C=C+l 
ATOME # 2 ? 1,1 540 NEXT Q 
ATOME # 3 ? 2,7 550 PRINT: FOR J=1 T0 8: FOR I=1 10 8 
ATOME # 4 ? 7,8 560 IF R(I,3)=20 THEN PRINT " .";: GOTN SAN 


570 PRINT " *"; 

S8N NEXT I: PRINT: NEXT J: PRINT 

590 PRINT "VOUS AVEZ TROUVE";C;"ATOMES SUR"3N3;"ATONES EN JEU!" 
600 PRINT "POUR CETTE PARTIE, VOUS AVEZ MARQUE "353 "POINTS." 

605 PRINT 

610 INPUT "UNE AUTRE TENTATIVE";A$ 

620 IF LEFT$(A$,1)="Y" THEN PRINT:GNTN 200 

630 END 


Se 50 0 


ss... 


VOUS AVEZ TROUVE O ATOMES SUR 4 ATOMES EN JEUII 
POUR CETTE PARTIE,VOUS AVEZ MARQUE 34 POT*TS. 


UNE AUTRE TENTATIVE? NON 
Ok 
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Bobstones 





L'idée de ce jeu de nombres a pour 
origine une épreuve appelée « Bob- 
stones » et est décrite dans le roman 
Watership Down. Le but de « Bobstones » 
est de deviner trois choses sur le lancer 
d'une paire de dés. 


1. Si la somme des dés est 


paire ou impaire............... 1 point 
2. La somme des dés . 2 points 
8. Le nombre de chaque dé... 3 points 


Le gagnant est le joueur qui marque le 
premier onze points. Si deux joueurs sont 
à égalité, le gagnant est celui qui le 
premier lève l'égalité. 

Dans cette version du jeu pour ordi- 
nateur, vous jouez contre l'ordinateur. 
L'ordinateur donne son estimation avant 
le lancer de dés. Il n'est donc pas 
avantagé par rapport à son interlocuteur. 

Ce jeu a été écrit par Dohn Addleman. II 
a été publié pour la première fois dans le 
numéro Creative Computing de mars-avril 
1976. 


RUN 


BOBSTONES 
CREATIVE COMPUTING 
MORRISTOWN, NEW JERSEY 


BOBSTONES EST UN JEU DE NOMBRES.LE BUT DU JEU 
EST DE DEVINER TROIS CHOSES SUR LE LANCERDE DES. 
À CHAQUE TOUR ,L'ORDINATEUR LANCE LES DES. 
ALORS,VOUS OU L'ORDINATEUR PARIEZ. 


TOTAL 
1. SI LA SOMME DES DES EST PAIRE OU NON 1 POINT 
2. LA SOMME DES DES 2 POINTS 
3. LE NOMBRE SUR CHAQUE DE 3 POINTS 


LE GAGNANT EST CELUI QUI MARQUE 11 POINTS LE PREMIER. 
SI IL Y A EGALITE,CELUI QUI LA ROMPT,GAGNE. 
BONNE CHANCE 1! 


QUI JOUE LE PREMIER? MOI 


À VOTRE TOUR. 
LA SOMME EST ELLE PAIRE OÙ IMPAIRE? IMPAIRE 
NAVRE, LA SOMME EST 4. 


À MON TOUR. 

#*#** CETTE FOIS CI, LES DEUX NOMBRES 
SONT 2 ET 4. 

*#** LA SOMME EST 6. 

JE PARIE QUE LA SOMME EST IMPAIRE. 
AI JE TORT OU RAISON? TORT 


LE SCORE EST POUR MOI: O - POUR VOUS: O0. 
A VOTRE TOUR. 


LA SOMME EST ELLE PAIRE OU IMPAIRE? IMPAIRE 
NAVRE, LA SOMME EST 8. 


A MON TOUR. 

*** CETTE FOIS CI, LES 
SONT 3 ET 6. 

*#** LA SOMME EST 9. 


DEUX NOMBRES 


JE PARIE QUE LA SOMME EST PAIRE. 
AI JE TORT OU RAISON? TORT 


LE SCORE EST POUR MOI: 


A VOTRE TOUR. 


O - POUR VOUS: O. 


LA SOMME EST ELLE PAIRE OU IMPAIRE? PAIRE 


VOUS AVEZ RAISON. 


MAINTENANT, DEVINEZ LA SOMME 


? 12 
NAVRE, LA SOMME EST 6. 


À MON TOUR. 


*#** CETTE FOIS CI, LES DEUX NOMBRES 


SONT 6 ET 1. 

*#** LA SOMME EST 7. 
JE PARIE QUE LA SOMME 
AI JE TORT OÙ RAISON? 


LE SCORE EST POUR MOI: 


A VOTRE TOUR. 


EST PAIRE. 
TORT 


O - POUR VOUS: 1. 


LA SOMME EST ELLE PAIRE OU IMPAIRE? IMPAIRE 


VOUS AVEZ RAISON. 


MAINTENANT, DEVINEZ LA SOMME 


? 3 
NAVRE, LA SOMME EST 7. 


A MON TOUR. 


*#** CETTE FOIS CI, LES DEUX NOMBRES 


SONT 4 ET 4. 

*** LA SOMME EST 8. 
JE PARIE QUE LA SOMME 
AI JE TORT OU RAISON? 
JE PARIE QUE LA SOMME 
AI JE TORT OÙ RAISON? 


LE SCORE EST POUR MOI: 


À VOTRE TOUR. 


EST PAIRE. 
RAISON 
EST 11. 
TORT 


1 - POUR VOUS: 2. 


LA SOMME EST ELLE PAIRE OÙ IMPAIRE? IMPAIRE 
NAVRE, LA SOMME EST 12. 


A MON TOUR. 


*#** CETTE FOIS CI, LES DEUX NOMBRES 


SONT 4 ET 4. 

*#** LA SOMME EST 8. 
JE PARIE QUE LA SOMME 
AI JE TORT OU RAISON? 


LE SCORE EST POUR MOI: 


A VOTRE TOUR. 


EST IMPAIRE. 
TORT 


1 - POUR VOUS: 2. 


LA SOMME EST ELLE PAIRE OU IMPAIRE? PAIRE 


NAVRE, LA SOMME EST 7. 


A MON TOUR. 


#*#** CETTE FOIS CI, LES DEUX NOMBRES 


SONT 4 ET 5. 

*** LA SOMME EST 9. 
JE PARIE QUE LA SOMME 
AI JE TORT OU RAISON? 
JE PARIE QUE LA SOMME 
AI JE TORT OU RAISON? 


LE SCORE EST POUR MOI: 


À VOTRE TOUR. 


5 PRINT CHR$(26) 


EST IMPAIRE. 
RAISON 

EST 10. 

TORT 


2 - POUR VOUS: 2. 


10 PRINT TAB(24);"BOBSTONES" 


20 PRINT TAB(20);"CREATIVE 


COMPUTING" 


30 PRINT TAB(18)3;"MORRISTOWN, NEW JERSEY" 


130 PRINT:PRINT 


140 PRINT "BOBSTONES EST UN JEU DE NOMBRES.LE BUT DU JEU” 


150 PRINT "EST DE DEVINER TROIS CHOSES SUR LE LANCE DE DES. " .. 


160 PRINT "A CHAQUE TOUR ,L'ORDINATEUR LANCE LES DES." 


170 PRINT "ALORS, VOUS OU L'ORDINATEUR PARIEZ." 


DES DES EST PAIRE OÙ NON 


180 PRINT 

190 PRINT * 

195 PRINT " 

200 PRINT " 1. SI LA SOMME 

210 PRINT " 2. LA SOMME DES DES 

220 PRINT “ 3. LE NOMBRE SUR CHAQUE DE 
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TOTAL" 
PURE) 
1 POINT" 
2 POINTS" 
3 POINTS" 


230 


570 
san 
590 
600 
610 
620 
630 
650 
660 
670 
68n 
690 
700 
710 
720 
725 
73n 
741 
750 
760 
770 
780 
790 
eon 
ain 
920 
n3n 
fan 
asn 
860 
87 
san 
890 
gnn 
91n 
920 
930 
94n 
950 
960 
970 
980 
990 
1n00 
1910 
1020 
1030 
1n40 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 


PRINT 

PRINT "LE GAGNANT EST CELUI QUI MARQUE 11 POINTS LE PREMIER." 
PRINT "SI IL Y A EGALITE,CELUI QUI LA ROMPT,GAGNE." 

PRINT * BONNE CHANCE 1" 





DEF FND(X)=INT(6#RND(1)+1) 
DIM A(2) 

LET A(1)=0 

LET A(2)=0 

LET Zl=-1 

LET 

LET 

LET 

LET 

LET 

PRINT 

PRINT 

PRINT "QUI JOUE LE PREMIER"; 
INPUT 7$ 

Z$=-LEFT$(7$,1) 


IF Z$="V" THEN 450 

IF Z$="M" THEN 450 

“//J TAPEZ LE MOT ‘VOUS' OÙ ‘MOI'" 
GOTO 390 

LET DI=FND(71) 

IF Z1=:0 THEN 480 

LET Z1=0 

LET D2=FND(0) 

LET S=D1+02 

IF 2120 THEN 650 

IF Z$O"MU THEN 580 

IF J2C0 THEN 1160 

PPINT 

PRINT "LE SCORC EST POUR MOI:";A(2);" - POUR VOUS:";A(1);CHR$(8);"." 
IF A(1)>211 THEN 1900 

IF A(2)>211 THEN 1900 

corn 670 

IF 7$O"V" THEN 2020 

IF 221 THEN 670 

PRINT 

PRINT "LE SCORE EST POUR VOUS:";A(1);" - POUR MOI:";A(2);CHR$(B);"." 
IF A(1)2>=11 THEN 1900 

IF A(2)>=11 THEN 1900 





LET J1=-1 

IF Z$="V" THEN 1160 
PRINT 

PRINT "A VOTRE TOUR." 
LET J2=1 

LET P2S-(INT(S/2)#2) 


PRINT "LA SOMME CST ELLE PAIRE OÙ IMPAIRE"; 
INPUT Af 
ASELEFT$(A$,1) 

IF A$="PU THEN 770 

IF AS="I" THEN AN0 
PRINT "///TAPEZ LE MNT PAIR OU IMPAIR." 
Gao 710 

IF P=l THEN 820 
PRINT MNAVPE, LA SOMME CST";S;CHR$(8);"." 
GOT0 450 

IF R=0 THEN 120 
GnTO 780 
PRINT "VOUS AVEFZ RAISON." 
LET ACL)=A(1)#1 
PRINT "MAINTENANT, DEVINEZ LA SOMME" 

INPUT 61 

IF G1<2 THEN 890 

IF G1212 TIFN 890 
GNTN 910 
PRINT "/// LA SOMME EST COMPRISE ENTRE 2 ET 12." 
corn 8an 

IF G12S THEN 940 
PRINT MNAVRC, LA SOMME EST";S;CHRS(B);"." 
GOTQ 450 
PRINT "VOUS AVEZ RAISON." 
LET A(1)=A(1)+2 
PRINT "QUELS SONT LES DEUX NOMBRES SUR CHAQUE DE" 
INPUT N1,N2 

IF NI<I THEN 1030 

IF N2<1 THEN 1030 

IF N1D6 THEN 1030 

IF N236 THEN 1930 

GNTN 1050 

PRINT "/// LES NOMBRES SONT COMPRIS ENTRE 1 ET 6." 
GoTn 960 

IF N1=D1 THEN 1090 

IF N2=D1 THEN 1110 

PRINT MNAVRE, LES NOMBRES SONT";D1;"ET";D2;CHR$(8);" 
GOTQ 450 

IF N2=D2 THEN 1130 

GOTN 1070 

IF NI=D2 THEN 1130 

GoTo 1070 

PRINT "VOUS AVEZ RAISON." 

LET A(1)=A(1)+3 

GOTO 450 
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1160 
1170 
1180 
1190 
1195 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1295 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1455 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1769 
1770 
1780 
1790 
18nn 
1810 
1820 
1830 
1835 
184n 
1850 
1860 
1870 
1880 
1Ran 
1900 
191n 
1920 
1930 
194n 
1950 
1960 
1965 
197n 
1980 
199n 
2000 
2010 
2020 
2030 
2040 
2050 


LET 22:0 

PRINT 

PRINT “A MON TOUR." 

PRINT "#ss CETTE FOIS CI, LES DEUX NOMBRES" 
PRINT "SONT";D1;"ET";D2;CHR$(8);"." 
#* LA SOMME EST";S;CHR£(8);" 
INT(2#RND(1)+1) 

IF 72=0 THEN 1240 

LET Z2:0 











THEN 1270 

PRINT "JE PARIE QUE LA SOMME EST PAIRE." 
GOTO 1280 

PRINT "JE PARIE QUE LA SOMME EST IMPAIRE." 
PRINT "AI JE TORT OÙ RAISON"; 
INPUT D$ 

D£=LEFT$(D$,1) 

IF Df="R" THEN 1340 

IF D$="T" THEN 450 

PRINT "///TAPEZ LE MOT ‘TORT' OU 'RAISON'." 
GOTO 1280 

LET A(2)=A(2)+1 

IF Al=1 THEN 1410 

LET B1=INT(S*RND(1)+1) 

IF 23=0 THEN 1390 

LET Z3:0 

LET B2=B1+B1+1 

GOTO 1430 

LET B1=FND(0) 

LET B2=81+81 

PRINT "JE PARIE QUE LA SOMME EST";B2;CHR$(8);"." 
PRINT "AI JE TORT OÙ RAISON"; 
INPUT D$ 

DS$=LEFT$(D$,1) 

IF D$="R" THEN 1500 

IF D$="T" THEN 450 

PRINT “/// TAPEZ LE MOT ‘TORT' OÙ 'RAISON'." 
GOTO 1440 

LET A(2)=A(2)+2 

IF 0222 TIEN 1550 

LET Cl=1 

LET C2=] 

GOTO 1810 

IF B2€>3 THEN 1590 

LET Cl=1 

LET C22=2 

GOTN 1810 

IF 82011 THEN 1630 

LET C1=5 

LET C2=6 

GOTA 1810 

IF A2C12 THEN 1670 

LET C126 

LET C2=6 

GOTN 1810 

IF B2>7 THEN 1740 

LET K1=92-1 

LET CI=INT(KI*RND(1)+1) 

IF Z4=0 TIHEN 1720 

LET Z4=0 

LET C2=02-C1 

GoTn 1810 















LET CI=(INT(K2#RND(1 )+1 )#K3) 

IF 2520 THEN 1800 

LET 25=0 

LET C2=n2-C1 

PRINT "A MON AVIS LES NOMBRES SONT" ;C1;"CT";C2;CHRE(B) 3". " 
PRINT "AI JE INRT OU RAISON"; 

INPUT D£ 

DS2LEFFT$(D$,1) 

IF D£="P" THEN 1880 

IF DE="T" THEN 450 

PRINT “/// TAPEZ LE HOT 'TORT' QU RAISON!" 
GOTN 1820 

LEFT A(2)=A(2)+3 

GOTO 450 

IF A(1)OA(2) THEN 1930 





IF 2200 TIEN 1160 

GOTN 67 

IF A(1)>A(2) THEN 2030 

PRINT 

PRINT "J'AI GAGNE, UN AUTRE JEU"; 
INPUT Cf 


C£=LEFTS(CE,1) 





IF Cf "THEN 2010 

PRINT // YAPFZ LE MAT "OUI! ON NON'." 
GATO 19610 

PRINT "A BICNTOT." 

END 

PRINT 

PPINT "VOIS AVFZ GAGNE,UN AUTRE JEU"; 
GOTN 1960 


Bocce (Jeu de boules) 


Ce programme simule le jeu italien 
Bocce appelé aussi « pétanque » ou tout 
simplement « jeu de boules ». 

Les instructions qui commencent à la 
ligne 1770 expliquent le jeu. 

Cette version est la version à quatre 
boules (Q=5). Augmenter le nombre de 
boules dans le jeu (augmenter Q) provo- 
quera une augmentation du temps de 
processing : en effet, les chances de 
collision entre les boules vont s'accroître 
et la position résultante de chacune des 
boules devra être recalculée. Malgré tout, 
le délai est court et on joue couramment 
avec six ou huit boules. Pour augmenter Q 
au-delà de 9 il faut redimensionner les 
tableaux à la ligne 1030. 

Lorsqu'il y a une collision, la cloche 
sonne (ligne 1500). 

Il est important de se souvenir que le 
but est de s'approcher le plus possible du 
cochonnet et non de le frapper. S'il y a 
collision, le cochonnet se déplace plus 
rapidement qu'une boule, car il est plus 
petit et plus léger. Un choc sans précau- 
tion peut transformer un beau jeu en un 
désastre. 

Bien jouer nécessite de l'imagination. 
Cela ira mieux si vous imaginez que vous 
êtes debout aux coordonnées 0.0 et que 
vous regardez suivant l'axe des X. 

Ce jeu et les descriptions qui sont 
autour ont été écrits par Victor Bendall de 
l'Université du East-Kentucky. Il est paru 
pour la première fois dans Creative 
Computing, juill.-août 1977. 





RUN 


BOCCE 
CREATIVE COMPUTING 
MORRISTOWN NEW JERSEY 


CE JEU SIMULE LE JEU DE BOULES. 
VOULFZ VOUS LES REGLES ?? OUI 


DANS CE JEU VOUS FAITES ROULER 4 BOULES SUCCESSIVEMENT VERS UNE CIBLE 
(APPELEE UN COCHONNET). LE BUT EST D'APPROCHER LES BOULES LE PLUS PRES 
POSSIBLE DU COCHONNET. LES BOULES ONT 10 CM. DE DIAMETRE ET SONT 
EQUILIBREES DE TELLE MANIERE QU'ELLES ROULENT D'UNE MANIERE CURVILIGNE. 
VOUS AUREZ À LES FAIRE ROULER SUIVANT UN ANGLE CALCULE 

PAR RAPPORT À UNE LIGNE QUI PASSE PAR VOUS AUX COORDONNEES 0,0 

ET PAR LE COCHONNET QUI A POUR COORDONNEES X,Y.UN ANGLE POSITIF FERA 
ROULER LA BOULE DANS LE SENS DES AIGUILLES D'UNE MONTRE.UN ANGLE NEGATIF 
LA FERA TOURNER DANS LE SENS INVERSE.LE COCHONNET FAIT 4 CM. 

DE LARGE ET ROULERA TOUT DROIT SI VOUS LE FRAPPEZ. 

-LES BOULES FRAPPEES PAR LES BOULES QUE VOUS AVEZ LANCEES PEUVENT 
TOURNER DANS D'AUTRES DIRECTIONS. 


CONSEIL.ESSAYEZ UNE VITESSE INITIALE DE 500 ET UN ANGLE DE 10. 


LE COCHONNET A POUR COORDONNEES 2171, 77. 


BOULE ! 
VITESSE? 500 
ANGLE? 10 


LE COCHONNET A POUR COORDONNEES 2171, 77. 
BOULE 1 À POUR COORDONNEES 2434.63,-494,24. C'EST À 622.138 DU COCHONNET. 


BAHI!IELOIGNEE DE PLUS DE 20 PIENSI 
LONGUE ET SUR LA DROITE. 


BOULE 2 
VITESSE? 480 
ANGLE? 9 


LE COCHONNET À POUR COORDONNEES 2171, 77. 
BOULE 1 A POUR COORDONNEES 2434.63,-494.24. C'EST À 622.138 DU COCHONNET. 
BOULE 2 À POUR COORDONNEES 2243.71,-455.536. C'EST À 530.477 DU COCHONNET. 


BAHIELOIGNEE DE PLUS DE 17 PIEDSI 
LONGUE ET SUR LA DROITE. 


BOULE 3 
VITESSE? 600 
ANGLE? 3 


LE COCHONNET A POUR COORDONNEES 2171, 77. 

BOULE 1 A POUR COORDONNEES 2434.63,-494.24. C'EST À 622.138 DU COCHONNET. 
BOULE 2 À POUR COORDONNEES 2243.71,-455.536. C'EST A 530.477 DU COCHONNET 
BOULE 3 A POUR COORDONNEES 3506.13,-710.248. C'EST A 1542.95 DU COCHONNET. 


BAHIELOIGNEE DE PLUS DE 50 PIEDSI 
LONGUE ET SUR LA DROITE. 


VITESSE? 300 
ANGLE? 5 


LE COCHONNET À POUR COORDONNEES 2171, 77. 
BOULE 1 A POUR COORDONNEES 2434.63,-494.24. C'EST À 622.138 DU COCHONNET. 


BOULE 2 À POUR COORDONNEES 2243.71,-455.536. C'EST À 530.477 DU COCHONNET 
BOULE 3 A POUR COORDONNEES 3506.13,-710.248. C'EST À 1542.95 DU COCHONNET 
BOULE 4 À POUR COORDONNEES 876.228,-178.163. C'EST À 1312.67 DU COCHONNET 


BAHIELOIGNEE DE PLUS DE 43 PIEDSI 
COURTE ET SUR LA DROITE. 
LA DISTANCE TOTALE DE TOUTES LES BOULES AU COCHONNET EST 4008.24 CM. 
NE JOUEZ PAS À CE JEU POUR DE L' ARGENTII 


AIMERIEZ VOUS RECOMMENCER ?? NON 





Ok 
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S PRINT CHR$(26) 

10 PRINT TAB(25);"BOCCE" 

20 PRINT TAB(19)3"CREATIVE COMPUTING" 

30 PRINT TAB(17)3"MORRISTOWN NEW JERSEY" 
40 PRINT:PRINT:PRINT 


1000 
1010 
1020 
1030 
1040 
1045 
1050 
1070 
1080 
1085 
1090 
1100 
1110 
1120 
1150 
1140 
1150 
1155 
1160 
1165 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1232 
1240 
1250 
1260 
1270 
1280 
1290 
1295 
1300 
1305 
1310 
1315 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1450 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 


Q=5 

PRINT "CE JEU SIMULE LE JEU DE BOULES.":PRINT 

INPUT "VOULEZ VOUS LES REGLES ?"3Z$ 

DIM B(9),B1(9),D(9),V(9),X(9),Y(9) 

PRINT:IF LEFT$(Z$,1)="Y" THEN GOSUB 1770 

P1=3.14159 

S1=0:52=0:A=-49.3 

X(1)=INT(2000+700#RND(1)): Y(1)=INT(200-400#RND(1)) 

PRINT "LE COCHONNET A POUR COORDONNEES"3;X(1);CHR$(8);","3Y(1);CHR$(8);"." 
PRINT 

FOR P=2 10 Q 

J=P:GOSUB 1570 

NEXT P 

FOR J=2 T0 Q 

D1=D1+D(3) 

NEXT J 

PRINT: PRINT " LA DISTANCE TOTALE DE TOUTES LES BOULES AU COCHONNET EST"; 
PRINT D1;"CM." 

IF D1 < Q“2 THEN PRINT "TIR MAGNIFIQUE! VOUS AVEZ L'OEILII" 

IF D1 < Q“2 THEN 1230 

IF D1<2*Q"2 THEN PRINT"EXCELLENT, MAIS POURRAIT ETRE MIEUX.":GOTO 1230 

IF D1 < 3*Q°2 THEN PRINT "BON, MAIS NECESSITE DES PROGRES.":GOTO 1230 

IF D1 < 6*Q”2 THEN PRINT "BEAU - VOUS AVEZ BESOIN DE PLUS DE PRATIQUE.":GOTO 1230 
IF D1 < 10#Q*2 THEN PRINT "MEDIOCRE - ESSAYEZ D'ETRE PLUS LOGIQUE.":GOTO 1230 
IF DL < 20*Q*2 THEN PRINT "VOTRE JEU À BESOIN DE BEAUCOUP DE TRAVAIL.":GOTO 1230 
PRINT "NE JOUEZ PAS À CE JEU POUR DE L' ARGENTII" 

FOR J=1 T0 Q 

8(3)=0:B1(J)=0:D(J)=0 

V(3)=0:X(3)=0:Y(3)=0 

NEXT J 

PRINT:INPUT "AIMERIEZ VOUS RECOMMENCER 7"; Y$ 


PRINT:IF LEFT$(Y$,1)="0" THEN 1050 
GOTO 1890 
K1=-20 
IF J=1 THEN K1=0 
1520 V(J)=ABS(V(3)#SIN(B(3)-B(K)))}:V(K)=ABS(V(2)*C0S(B(3)-BCK 
A1=A#C0S(B(J) )}#K1#*COS((P1/2)+B(3)) 1530 PUS tENNe docln Suis Fe ii 
A2=A#SIN(B(J))+K1#*SIN((P1/2)+B(3)) 1540 IF K=1 THEN V(K)=5#V(K) 
S3=V(J)*C05(B(J))*.05+.00125*A1 1550 IF J=1 THEN V(3)=5#V(3) 
S4=V(J)*SIN(B(3))#.05+.00125*A2 1560 RETURN 
B(D)=ATNC(V(I)#SIN(B(I) )+A2%.05)/(V(2)#C0S(B(J))+A1*.05)) 1570 PRINT "BOULE"; (2-1) 
IF B1(J)< O THEN S4=-54 1575 PRINT "mm" 
enr 1580 INPUT "VITESSE"; V(J):V(3)=ABS(V(3)) 
= " “; 
IF ABS(S5-X(1))<7 AND ABS(S6-V(1))<7 THEN K=1:GOSUB 1550 Pr De RER RS TN Lee 
ES LORS X OR )=O ED 1610 IF ABS(B1(J))> 89 THEN PRINT "ANGLE TROP GRAND.":GOT0 1290 
IF ABS (55 X(K))< 10 AND ABS(S6-Y(K))< 10 THEN GOSUB 1500 a AL PR IE SO EU UE EU 
ls - - < 0 0 1630 PRINT "LE COCHONNET A POUR COORDONNEES";X(1);CHR$(8);","3Y(1);CHR$(8);"." 
1640 FOR M=2 TO P 
IF V(2)<ABS(A#.05) THEN 1440 rh À - Ë -2))- 
V(3)=V(3)+(A*%.05):51=55:52=56:G0T0 1290 1655 DE ER à 
XO)2X (7) S5: Y(J2)=Y(3)+56:51=0:52=0: 55=0: 6-0 Asso ED eo en mouse 
ent be El = +56:51=0:52=0:55=0:56= 1670 PRINT"BOULE";(M-1);"A POUR COORDONNEES" ;X(M);CHR$(8);","3Y(M);CHR$(8); 
= “._c! " 
IF V(L)>ABS(A*.05) THEN J=L:GOTO 1290 1675 PL PAL LES 
B(L)=0:V(L)=0 1680 NEXT M 
Eu re 1690 PRINT 
,n OPA 
ant OUEN PART GRR OS 1700 IF D(P) < 10 THEN PRINT TAB(15);"EXCELLENT TIR! ";:GOTO 1740 


1710 1F D(P) < 20 THEN PRINT TAB(15);"BON TIR! ";:GOTO 1740 

1720 IF D(P)< 30 THEN PRINT TAB(15);"BEL ESSAI !";:GOT0 1740 

1730 IF D(P)>500 THEN PRINT TAB(5);"BAHIELOIGNEE DE PLUS DE";INT(D(P)/30.48); 

1735 IF D(P) > 500 THEN PRINT "PIEDS!" 

1740 IF X(P)>X(1) THEN PRINT "LONGUE ET "; 

1745 IF X(P)< X(1) THEN PRINT "COURTE ET "; 

1750 IF Y(P)>Y(1) THEN PRINT "SUR LA GAUCHE." 

1755 IF Y(P) < Y(1) THEN PRINT "SUR LA DROITE." 

1760 PRINT 

1765 RETURN 

1770 PRINT "DANS CE JEU VOUS FAITES ROULER";Q-13;"BOULES SUCCESSIVEMENT VERS UNE CIBLE" 
1780 PRINT "(APPELEE UN COCHONNET). LE BUT EST D'APPROCHER LES BOULES LE PLUS PRES 
1790 PRINT "POSSIBLE DU COCHONNET. LES BOULES ONT 10 CM. DE DIAMETRE ET SONT" 

1800 PRINT " EQUILIBREES DE TELLE MANIERE QU'ELLES ROULENT D'UNE MANIERE CURVILIGNE ." 
1805 PRINT "VOUS AUREZ A LES FAIRE ROULER SUIVANT UN ANGLE CALCULE" 

1810 PRINT " PAR RAPPORT A UNE LIGNE QUI PASSE PAR VOUS AUX COORDONNEES 0,0" 

1820 PRINT "ET PAR LE COCHONNET QUI A POUR COORDONNEES X,Y.UN ANGLE POSITIF FERA" 
1830 PRINT "ROULER LA BOULE DANS LE SENS DES AIGUILLES D'UNE MONTRE.UN ANGLE NEGATIF " 
1840 PRINT "LA FERA TOURNER DANS LE SENS INVERSE.LE COCHONNET FAIT 4 CM." 

1845 PRINT " DE LARGE ET ROULERA TOUT DROIT SI VOUS LE FRAPPEZ." 

1850 PRINT ".LES BOULES FRAPPEES PAR LES BOULES QUE VOUS AVEZ LANCE PEUVENT" 

1860 PRINT "TOURNER DANS D'AUTRES DIRECTIONS." 

1870 PRINT:PRINT "CONSEIL.ESSAYEZ UNE VITESSE INITIALE DE 500 ET UN ANGLE DE 10." 
1880 PRINT:PRINT:RETURN 

1890 END 
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IF J=1 THEN V(3)=V(9)/5 





Le Boga est un animal imaginaire ou 

une bête mythique de la famille des 
Hurkles. Comme un Hurkle, le Boga se 
cache dans une grille de dimensions 20 
par 20 au plus. Il vous envoie des 
indications sur la direction à prendre pour 
aller vers lui. Cependant, la principale 
différence entre le Boga et le Hurkle 
réside dans le fait que le Boga cherche à 
vous dénicher en même temps que vous 
le pourchassez. Vous n'êtes pas tenu de 
le renseigner après chacune de ses 
estimations de votre propre position. Il est 
apparemment doté d'un flair remarquable, 
et il joue tout seul. Quoi qu'il en soit, il est 
fair-play et vous laisse commencer. 
Ensuite, il prend son tour. Les tentatives 
se poursuivent alternativement jusqu'à ce 
que l’un ou l'autre, homme ou boga, ait 
localisé son partenaire. Au début du jeu, 
vous pouvez visualiser la grille si vous 
souhaitez rendre votre recherche légère- 
ment plus aisée. 
Gardez bien à l'esprit que les directions 
dans ce jeu sont définies comme l'indi- 
que la figure ci-dessous, c'est-à-dire, le 
nord est en haut et l’est à droite. 

Ce jeu fut créé par David Strickler. 


N 
O E 





RUN 


BOGA II 
CREATIVE COMPUTING 
MORRISTOWN, NEW JERSEY 


DESIREZ-VOUS DES EXPLICATIONS SUR CE JEU? OUI 


LE BOGA SE CACHE DANS UNE GRILLE (DONT VOUS SPECIFIEREZ LA LONGUEUR 
ET LA LARGEUR). ESSAYEZ DE DETERMINER SA POSITION À PARTIR DES INDICATIONS 
QUE JE VOUS DONNE. POUR CHAQUE TENTATIVE, DONNER 2 NOMBRES SEPARES PAR 
UNE VIRGULE. ATTENTION, N'OUBLIEZ PAS QUE LE BOGA 
VOUS CHERCHE AUSSIIIII 


FIXEZ LA TAILLE DE VOTRE GRILLE (20 MAXIMUM)? 15 
DESIREZ-VOUS VISUALISER LA GRILLE? OUI 


LT LE TT 
0123456789012345 

O x x 
DR nm mm 
2 Rs  m mm n 
CRE 
ARR mn nn 
SAR mm mm mn no 
6 nn nm nn où où x 
TR nn nn nn 
ÉR 
D Ro 
1O Où où où nn x 
JL RAR nn mn 
12 ARR mn nn x 
13 ARR nn nn 
LA RAR nn nn nn 
LS RAR mn nn 


CHOISISSEZ VOTRE POSITION? -1,16 


CHOISISSEZ VOTRE POSITION? 4,7 
CA Y EST,LE BOGA EST EN PLACEI 
DEVINEZ # 1 ? 7,7 

VOUS AVEZ ESSAYE 7 , 7. 


IL EST PLUS DANS LA DIRECTION NORDOUEST. 
LE BOGA VOUS CROIT EN 7 , 7. 


DEVINEZ # 2 ? 4,4 
VOUS AVEZ ESSAYE 4 , 4. 


IL EST PLUS DANS LA DIRECTION NORD. 
LE BOGA VOUS CROIT EN 5 , 7. 


DEVINEZ # 3 ? 2,4 
VOUS AVEZ ESSAYE 2 , 4. 


IL EST PLUS DANS LA DIRECTION SUD. 
LE BOGA VOUS CROIT EN 4 , 7. 


LE BOGA VOUS À RETROUVE EN 3 TENTATIVESI 
LE BOGA ETAIT EN 3 , 4. 
VOULEZ-VOUS REJOUER? OUI 


FIXEZ LA TAILLE DE VOTRE GRILLE (20 MAXIMUM)? 4 
DESIREZ-VOUS VISUALISER LA GRILLE? OUI 


01234 
OO * * + * + 
Lors 
2 
3 
4 ts + 


CHOISISSEZ VOTRE POSITION? 2,1 
CA Y EST,LE BOGA EST EN PLACEI 
DEVINEZ # 1 ? 2,2 

VOUS AVEZ ESSAYE 2 , 2. 
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Il, EST PLUS DANS LA DIRECTION NORD. 344 AG="" 





LE BOGA VOUS CROIT EN 2 , 2. 346 FOR X=0 T0 G 
Jar AG=Aÿ4"e 
DEVINEZ # 2 ? 1,2 350 NEXT X 
VOUS AVEZ DENICHE LE BOGA EN 2 TENTATIVESI 352 FOR X=20 INC 
354 PRINT USING "SL"; X3:PPINT TAP(S);A# 
LE BOGA ETAIT EN 1 , 2. 356 NEXT X 
300 IF G<2N TIEN PRINT 
VOULEZ-VOUS REJOUER? OUI 390 1z] 
FIXEZ LA TAILLE DE VOTRE GRILLE (20 MAXIMUM)? 4 AND INPUT "CHNISISSEZ VOTPE POSITINN"3;X1,YI 
DESIREZ-VOUS VISUALISER LA GRILIE? NON 411 IF XIDDG NR XI€N NP YIDR NP Y1€N THEN PRINT:COTN 40 
420 PRINT "CA Y FST,LE BOCA FST EN PLACE" 
CHOISISSEZ VOTRE POSITION? 0,4 440 X2=INT(PND(1)et) 
CA Y EST,LE BOGA EST EN PLACEI 450 Y2=INT(RND(1)#C) 
DEVINEZ # 1 ? 2,2 460 PRINT "DEVINEZ £" 
VOUS AVEZ ESSAYE 2 , 2. 470 INPUT X3,Y3 
471 IF X3G NP X3€N NR Y3DDG NP YSCN TUFN PPINT:GUIN 461 
IL EST PLUS DANS LA DIRECTION NORDEST. 4RN Kz=K+l 
LE BOGA VOUS CROIT EN 2 , 2. a90 F=F+1 
SQ0 IF K=IN THCN 104n 
DEVINEZ # 2 ? 0,3 SIN IF AUS(X3-X2)4APS(Y3-Y2)20 THEN ININ 
VOUS AVEZ DENICHE LE BOGA EN 2 TENTATIVESI S2N PRINT "VNIIS AVEZ FASAYE MX SM MY; CPE (AR); " 
530 PRINT 
LE BOGA ETAIT EN O , 3. San PRINT "IL FST PLIS MANS LA DIRECTINN "3; 
S50 IF X2=2X3 THFN 620 
VOULEZ-VOUS REJOUER? NON 560 IF X22X3 THFN G0n 
Ok 570 PRINT "ANRD'"; 


s9n GnTNn 62n 
600 PRINT "SUD"; 

620 IF Y2=Y3 THEN 700 

630 IF Y22Y3 THFA 670 

G&0 PRINT "NC ST"; 

66n GNTn 700 

670 PRINT "FSI"; 

690 RFM: LINFS 701-970 ANN JJIN2LISN2PNGAS CHESSING FOOPMILA 
JON PRINT" MI Ha THE 739 

71N XAZ=INT(.595) 

720 Ya=INT(.5S) 

730 PRINT LF GNGA VOIS CPNIT FAX" "YA CUPA (PR) 

740 Uzll+l 

750 PRINT "" 

760 G=ARBS(YI-Y4)+#ANS(XI-X4) 

770 IF Q20 THEN 9AN 





S PRINT CHR$(26) JAN 420 

6 CLEAR 300 . 790 IF YazYl THEN HAN 

10 PRINT TAB(26);"BOGA 11" ROC A=1 

14 PRINT TAB(20);"CREATIVE COMPUTING" AIN IF ABS(YA-Y1)<2 THEN An 

17 PRINT TAB(18);"MORPRISTOWN, NEW JERSEY" R2N GOSUR ]1an 

20 PRINT:PRINT:PRINT A3O IF YaCYI THEN A4 

30 INPUT "DESIREZ-VOUS DES EXPLICATIONS SUR CF JEU";n€ RAD Ya=INT(ANG(YA-A)) 

35 PRINT:PRINT As GOTN AA° 

40 IF LEFT$S(Q$,1)C"Y" THEN 220 P6N YA=IAT(ANS(YA+A)) 

70 PRINT " LE ROGA SF CACHE DANS UNE GRILLE (ONNT VOUS SPECIFIFPEZ LA LONGUFHP" A70 IF YaxG TUFN IN 

80 PRINT "ET LA LARGEUR). FSSAYEZ DE DETEPHINFP SA POSITION À PARTIR NFS INPICATINAS" 090 IF XA=X] TIFY 970 

90 PRINT "QUE JE VOUS DONNE. POP CHAQUE TFNTATIVE, DONNFP 2 AONNPFS SFPARES PAP" A9N Az] 

100 PRINT "UNE VIRGULE. ATTENTION,N'OUBLIEZ PAS QUE LF ANGA" 9nn IF ANS(X4-X1)<2 THFN 920 

105 PRINT "VOUS CHERCHE AUSSITIU I" 910 EnSir 11an 

110 PRINT:PRINT 920 IF XACX] Tips 950 

220 U=0 930 X4=IAT(ANS(XA-A) ) 

240 Kz1 9an Gntn 97m 

250 F20 950 Xa=2INT(ANS(X4+A ) ) 

260 INPUT "FIXEZ LA TAILLF PF VOTPE GRILLE (20 HAXIIMIM)MC 96N IF XA2R THEN 1130 

275 IF G>20 NP C<1 THEN PRINT:GOTN 260 970 GOTN 460 

280 526 DRN PPINT ML POCA VONG A PETONNVE FAMNMTFATATINES I" 
290 REM: PRINTS THE GRID 990 PPINT 

300 INPUT "DESIREZ-VOUS VISUALISEP LA GRILLE"3;7$ 1nnn Gorn 1n5n 

305 IF LEFT$(Z$,1)="N" THEN 380 1N1N PRINT "VOUS AVFZ DFXICHE LE BNGA FAMFMTPNTATIVESI" 
310 PRINT 1021 PRINT 

318 A$="" 1939 COTO 1050 

320 1F G<10 THEN 332 1Nan PPINT "VOUS AVEZ FPHISE TOUS VOS FSSATS." 
322 FOR X=10 T0 G 1050 PRINT "LE PARA FTAIT EAMX2M,MY2; CNP (RG 
324 XI=INT(X/10) 1060 PRINT 

326 A$=AS4CHRS(X 1448 )+" 1070 INPUT MVAULFZ=VONS PFANNEPM NE 

328 NEXT X 1980 IF LEFTE(NE,1)= TES 220 

330 PRINT TAB(25);A® 11nn GnTn 116n 

332 A$="" 1110 Y4=.5°G 

334 FOR X=0 T0 G 1120 GNTO nan 

336 X1=X-INT(X/10)#10 1130 Xa=.540 

338 A$=AS4CHRS(X1+48)+" 1140 A2=2 

340 NEXT X 1150 RFTURN 

342 PRINT TAB(5);A$ 1160 END 
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Bombrun 





(Course à la bombe) 


Ce jeu est la simulation extrêmement 
précise d’un avion bombardant une cible 
très petite. Vous pouvez spécifier si 
l'avion prend de l'altitude, s’il est en piqué, 
et indiquer l'angle de sa trajectoire en 
degrés. La vitesse devra être donnée en 
mètres par seconde. Vous devez aussi 
indiquer le point où la bombe sera lâchée. 
Le programme vous permet de passer 
quatre fois au-dessus de la cible. 

Une visée parfaite est possible mais 
très difficilement réalisable. Un tir à moins 
de quatre kilomètres de la cible peut être 
considéré comme « menaçant » alors que 
des tirs à l'extérieur de cette zone feront 
douter de votre connaissance des 
sciences physiques. 

Ce programme a été écrit par Jim 
Prelesnik. 


RUN 


COURSE A LA BOMBE 
CREATIVE COMPUTING 
MORRISTOWN, NEW JERSEY 


CE PROGRAMME SIMULE UNE COURSE À LA BOMBE.VOULEZ VOUS DES 
INSTRUCTIONS? OUI 


VOUS AVEZ LA POSSIBILITE DE FAIRE QUATRE PASSAGES AU 

DESSUS DE LA CIBLE,ET DE LACHER UNE BOMBE A CHAQUE 

PASSAGE. LES CHANGEMENTS D'ALTITUDE PEUVENT ETRE FAITS GRACE 

A LA COMMANDE ‘MONTEE/DESCENTE' EN TAPANT 'MONTEE' OU "DESCENTE", 
SUIVIE D'UNE VIRGULE ET DE L'ANGLE DESIRE (EN DEGRES).NE NOUVELLES 
VITESSES (ALLANT DE 300 A 900 PIEDS PAR SECONDE) PEUVENT 

ETRE ENTREES APRES LA QUESTION ‘VITESSE AERIENNE'.LES ANGLES DE 
“MONTEE/DESCENTE' , VARIANT DE O À 15 DEGRES,SERONT ADDITIONNES, 


COMME SPECIFIE,AU MOYEN DE LA COMMANDE ‘MONTEE/DESCENTE' POUR DONNER 


UN ANGLE NET D'INCLINAISON/DECLINAISON ENTRE O ET 60 DEGRES, 


MONTANT OU DESCENDANT.ON DOIT AUSSI MAINTENIR UNE ALTITUDE MINIMUM DE 
100 PIEDS.DEPASSER VOLONTAIREMENT UNE QUELCONQUE DE CES SPECIFICATIONS 


MIN/MAX ENTRAINERA L'ECRASEMENT DE VOTRE BOMBARDIER.DE MEME 

UNE COMMANDE DE LARGUAGE DE BOMBE DURANT UNE DESCENTE, DONNERA 

A VOTRE BOMBE UNE VITESSE INITIALE QUI REDUIRA LE TEMPS DE CHUTE, 
COMME LE FAIRE DURANT UNE COMMANDE DE MONTEE AUGMENTERA CE TEMPS. 
LA BOMBE SERA LACHEE IMMEDIATEMENT APRES LE PLUS RECENT ‘BILAN' 
PAR UNE COMMANDE ‘LARGUAGE',ET SERA GARDEE JUSQU'A DE PLUS AMPLES 
INFORMATIONS DE POSITION PAR LA COMMANDE ‘ATTENDRE".LA 

CIBLE FAIT UN PIED DE DIAMETRE.BONNE CHANCE! 


ENTREZ ‘RETURN' POUR COMMENCER LE JEU. 
**PREMIER** 
#4 BILAN*** 
TEMPS ECOULE... O SECONDES 


ANGLE ACTUEL... O DEGREES 
ANGLE TOTAL... O DEGRES 


VITESSE ACTUELLE... 305.00 PIEDS PAR SECONDE 
ALTITUDE... 155.93 PIEDS 
DISTANCE AU SITE... 4,500 PIEDS 


HEURE ESTIMEE D'ARRIVEE... 14.75 SECONDES 
COMMANDE DE LARGUAGE? ATTENDRE 
ATTENTE. 
ON MAINTIENT L'ANGLE RESULTANT ACTUEL? OUI 


VITESSE AERIENNE? 800 
#*##BILAN*** 


TEMPS ECOULE... 1 SECONDE 
ANGLE ACTUEL... O DEGREFS 


ANGLE TOTAL... O DEGRES 
VITESSE ACTUELLE... 800.00 PIEDS PAR SECONDE 
ALTITUDE... 155.93 PIEDS 
DISTANCE AU SITE... 3,700 PIEDS 
HEURE ESTIMEE D'ARRIVEE... 4.62 SECONDES 


COMMANDE DE LARGUAGE? ATTENDRE 
ATTENTE. 


ON MAINTIENT L'ANGLE RESULTANT ACTUEL? NON 
COMMANDE DE MONTEE/DESCENTE? DESCENTE, 10 


VITESSE AERIENNE? 600 


SI VOUS N'AUGMENTEZ PAS IMMEDIATEMENT VOTRE ALTITUDE JUSQU'A UN 


MINIMUM DE 100 PIEDS,UN CRASH EST IMMINENT. 
COMMANDE DE MONTEE/DESCENTE? MONTÉE, 20 


VOTRE BOMBARDIER NE PEUT PAS SUPPORTER LES TENSIONS CAUSEES 


PAR UN ANGLE INTRODUIT,DE PLUS DE 15 DEGRES.RECONSIDEREZ VOTRE CHOIX. 


COMMANDE DE MONTEE/DESCENTE? MONTEE, 12 


VITESSE AERIENNE? 500 
*XABILAN*** 


TEMPS ECOULE... 2 SECONDES 
ANGLE ACTUEL, COMMANDE... MONTEE, 12 DEGRES 
ANGLE TOTAL... 12 DEGRES EN MONTFE 
VITESSE ACTUELLE... 500.00 PIEDS PAR SECONDE 
ALTITUDE... 155.70 PIEDS 
DISTANCE AU SITE... 3,211 PIEDS 
HEURE ESTIMEE D'ARRIVEE... 6.57 SECONNES 


COMMANDE DE LARGUAGE? ATTENDRE 
ATTENTE. 


ON MAINTIENT L'ANGLE RESULTANT ACTUEL? OUI 


VITESSE AËRIENNE? 700 


*XABILAN*** 
TEMPS ECOULE... 3 SECONDES 
ANGLE ACTUEL... O DEGREES 


ANGLE TOTAL... 12 DEGRES EN MONTEE 
VITESSE ACTUELLE... 700.00 PIEDS PAR SECONDE 
ALTITUDE... 301.24 PIEDS 
DISTANCE AU SITE... 2,526 PIEDS 
HEURE ESTIMEE D'ARRIVEE... 3.69 SECONDES 


COMMANDE DE LARGUAGE? ATTENDRE 
ATTENTE. 


ON MAINTIENT L'ANGLE RESULTANT ACTUEL? OUI 


VITESSE AERIENNE? 750 
*X4BILAN*** 


TEMPS ECOULE... 4 SECONDES 
ANGLE ACTUEL. O DEGREFS 
ANGLE TOTAL. 12 DEGRES EN MONTEE 
VITESSE ACTUELLE... 750.00 PIEDS PAR SECONDE 
ALTITUDE. 457.17 PIEDS 
DISTANCE AU SITE... 1,793 PIEDS 
HEURE ESTIMEE D'ARRIVEE... 2.44 SECONDES 








COMMANDE DE LARGUAGE? ATTENDRE 
ATTENTE. 


ON MAINTIENT L'ANGLE RESULTANT ACTUEL? OUI 


VITESSE AERIENNE? 750 
***BILAN*** 


TEMPS ECOULE... 5 SECONDES 
ANGLE ACTUEL... O DEGREES 
ANGLE TOTAL... 12 DEGRES EN MONTEE 
VITESSE ACTUELLE... 750.00 PIEDS PAR SECONDE 
ALTITUDE... 613.11 PIEDS 
DISTANCE AU SITE... 1,059 PIEDS 
HEURE ESTIMEE D'ARRIVEE... 1.44 SECONDES 








COMMANDE DE LARGUAGE? ATTENDEZ 
ATTENTE. 


ON MAINTIENT L'ANGLE RESULTANT ACTUEL? OUI 


VITESSE AERIENNE? 300 
#***BILAN*** 


TEMPS ECOULE... 6 SECONDES 
ANGLE ACTUEL... O DEGREES 
ANGLE TOTAL... 12 DEGRES EN MONTEE 
VITESSE ACTUELLE... 300.00 PIEDS PAR SECONDE 
ALTITUDE... 675.48 PIEDS 
DISTANCE AU SITE... 766 PIEDS 
HEURE ESTIMEE D'ARRIVEE... 2.61 SECONDES 
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COMMANDE DE LARGUAGE? LARGUAGE 
BOMBE LARGUEE. 

TEMPS JUSQU'A L' EXPLOSION... 8.69779 SECONDES 

LA BOMBE À EXPLOSEE À 1786.76 PIEDS DERRIERE LE CENTRE DE LA CIBLE. O 
VOUS AVEZ ACCOMPLI JUSQU'ICI 1 COURSE.DESIRERIEZ VOUS 

FAIRE UN AUTRE PASSAGE? OUI 

VOTRE AVION À FAIT UN TOUR,ET EST MAINTENANT EN POSITION POUR 

FAIRE SON SECOND PASSAGE. 


ENTREZ ‘RETURN' LORSQUE VOUS ETES PRET. 


**PREMIER** 
#kABILAN*** 


TEMPS ECOULE. 

ANGLE ACTUEL. 

ANGLE TOTAL. 

VITESSE ACTUELLE. 
ALTITUDE. 

DISTANCE AU SITE. 

HEURE ESTIMEE D'ARRIVEE... 


O SECONDES 

O DEGREES 

O DEGRES 
515.16 PIEDS PAR SECONDE 
394.45 PIEDS 

4,500 PIEDS 

8.74 SECONDES 








COMMANDE DE LARGUAGE? ATTENDRE 
ATTENTE. 


ON MAINTIENT L'ANGLE RESULTANT ACTUEL? OUI 


VITESSE AERIENNE? 800 





**#*BILAN*** 

TEMPS ECOULE... 1 SECONDE 

ANGLE ACTUEL O DEGREES 
ANGLE TOTAL... O DEGRES 


VITESSE ACTUELLE... 800.00 PIEDS PAR SECONDE 
ALTITUDE 394.45 PIEDS 
DISTANCE AU SITE 3,700 PIEDS 
HEURE ESTIMEE D'ARRIVEE... 4.62 SECONDES 





COMMANDE DE LARGUAGE? ATTENDRE 
ATTENTE, 


ON MAINTIENT L'ANGLE RESULTANT ACTUEL? NON 
COMMANDE DE MONTEE/DESCENTE? DESCENTE, 10 


VITESSE AFRIENNE? 600 
***BILAN*** 


TEMPS ECOULE... 

ANGLE ACTUEL, COMMANDE... 
ANGLE TOTAL 

VITESSE ACTUELLE 
ALTITUDE 

DISTANCE AU SITF 

HEURE ESTIMEE D'ARRIVEE.., 


2 SECONDES 

DESCENTE, 10 DEGRES 

10 DEGRES EN DESCENTE 
600.00 PIEDS PAR SECONDE 
290.26 PIEDS 

3,109 PIEDS 

5.26 SECONDES 





COMMANDE DE LARGUAGE? ATTENDRE 
ATTENTE. 


ON MAINTIENT L'ANGLE RESULTANT ACTUEL? OUI 


VITESSE AERIENNE? 700 


**ABILAN*** 
TEMPS ECOULE... 3 SECONDES 
ANGLE ACTUEL O DEGREES 





ANGLE TOTAL O DEGRES EN DESCENTE 
VITESSE ACTUELLE... 700.00 PIEDS PAR SECONDE 
ALTITUDE... 168.70 PIEDS 
DISTANCE AU SITE 2,420 PIEDS 
HEURE ESTIMEE D'ARRIVEE... 3.51 SECONDES 





COMMANDE DE LARGUAGE? ATTENDRE 
ATTENTE, 


ON MAINTIENT L'ANGLE RESULTANT ACTUEL? OUI 

VITESSE AERIENNE? 700 

VOTRE BOMBARDIER N'A PAS REUSSI À MAINTENIR LA FAIBLE ALTITUDE 
QUE VOUS VOULIEZ,IL S'EST PEU APRES ECRASE. 

VOUS AUREZ PLUS DE CHANCE LA PROCHAINE FOIS. 


DURANT VOS 2-PASSAGES ,VOUS N'AVEZ MEME PAS REUSSI 


À MENACER LA CIBLE PAR UN COUP.VOUS AUREZ PLUS DE CHANCE LA PROCHAINE FOIS. 


AIMERIEZ VOUS VOUS REAPPROVISIONNER EN MUNITIONS ET REJOUER? NON 


REVISEZ LES LOIS PHYSIQUES SUR LA CHUTE DES CORPS, 
ET REVENEZ JOUER BIENTOT. 


5 PRINT CHRS (26) 

6 F$=" ##4.#4" 

19 PRINT TAB (27) "COURSE À LA BOMBE" 

13 PRINT TAB (20) "CREATIVE COMPUTING" 

45 PRINT TAB(18)"MORRISTOWN, NEW JERSEY" 

19 PRINT:PRINT 

20 PRINT"CE PROGRAMME SIMULE UNE COURSE À LA BOMBE.VOULEZ VOUS DES" 
25 X5=3000 

39 PRINT" INSTRUCTIONS" ; 

48 INPUT I$ 

50 IF LEFTS(1$,1)="O" THEN 99 ELSE GOTO 299 
98 PRINT CHRS (26) 
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95 PRINT "VOUS AVEZ LA POSSIBILITE DE FAIRE QUATRE PASSAGES AU " 

199 PRINT "DESSUS DE LA CIBLE,ET DE LACHER UNE BOMBE À CHAQUE " 

119 PRINT"PASSAGE. LES CHANGEMENTS D'ALTITUDE PEUVENT ETRE FAITS GRACE" 

128 PRINT"A LA COMMANDE 'MONTEE/DESCENTE' EN TAPANT 'MONTEE' OU "DESCENTE" ," 
130 PRINT"SUIVIE D'UNE VIRGULE ET DE L'ANGLE DESIRE (EN DEGRES).DE NOUVELLES" 
149 PRINT"VITESSES (ALLANT DE 398 À 909 PIEDS PAR SECONDE) PEUVENT" 

150 PRINT"ETRE ENTREES APRES LA QUESTION "VITESSE AERIENNE'.LES ANGLES DE " 
168 PRINT" 'MONTEE/DESCENTE' , VARIANT DE @ À 15 DEGRES,SERONT ADDITIONNES, " 
170 PRINT"COMME SPECIFIE,AU MOYEN DE LA COMMANDE 'MONTEE/DESCENTE' POUR DONNER" 
189 PRINT “UN ANGLE NET D'INCLINAISON/DECLINAISON ENTRE @ ET 68 DEGRES," 

198 PRINT "MONTANT OU DESCENDANT.ON DOIT AUSSI MAINTENIR UNE ALTITUDE MINIMUM DE" 
298 PRINT "198 PIEDS.DEPASSER VOLONTAIREMENT UNE QUELCONQUE DE CES SPECIFICATIONS" 
219 PRINT"MIN/MAX ENTRAINERA L'ECRASEMENT DE VOTRE BOMBARDIER.DE MEME" 

228 PRINT"UNE COMMANDE DE LARGUAGE DE BOMBE DURANT UNE DESCENTE , DONNERA" 

230 PRINT"A VOTRE BOMBE UNE VITESSE INITIALE QUI REDUIRA LE TEMPS DE CHUTE," 
248 PRINT"COMME LE FAIRE DURANT UNE COMMANDE DE MONTEE AUGMENTERA CE TEMPS." 
259 PRINT"LA BOMBE SERA LACHEE IMMEDIATEMENT APRES LE PLUS RECENT 'BILAN'" 
260 PRINT"PAR UNE COMMANDE ‘LARGUAGE' ,ET SERA GARDEE JUSQU'A DE PLUS AMPLES" 
279 PRINT*INFORMATIONS DE POSITION PAR LA COMMANDE "ATTENDRE" . LA" 

288 PRINT"CIBLE FAIT UN PIED DE DIAMETRE.BONNE CHANCE ! ": PRINT: PRINT 

285 LINE INPUT “ENTREZ ‘RETURN! POUR COMMENCER LE JEU. ";XX$ 

298 Z1=1008 

300 Z2=1000 

310 Z3=1000 

320 Z4=1000 

330 R=R+1 

348 W1=0 

358 x2=0 

360 W3=0 

370 W4=0 

380 T=0 

390 A1=0 

400 A=0 

418 VI=RND(1) 

428 V=V1*1000 

430 IF V<308 OR V>980 THEN 419 

448 Y1=RND(1) 

450 Y=Y1*500 

468 IF Y<109 THEN 449 

470 x=4500 

480 PRINT" 

490 PRINT" " 

500 E=X/V 

519 PRINT CHRS (26) ; TAB (34) "**PREMIER**" 

520 PRINT TAB (30) "*##BILAN*##" 


530 GOTO 1430 

540 W1=0 

550 Ww2=0 

560 W3=08 

570 W4=0 

580 PRINT" * 

598 PRINT"COMMANDE DE LARGUAGE" ; 
608 INPUT C$ 


619 IF LEFTS(C$S,1)="A" THEN 640 ELSE IF LEFTS(C$,1)="L" THEN 1689 : 
615 ELSE PRINT "COMMANDE INCONNUE.REPONDRE "ATTENDRE' OU 'LARGUAGE'.":GOTO 599 
649 PRINT"ATTENTE. * 

658 PRINT “ * 

668 GOTO 708 

678 A=A-Al 

680 T=T-1 

698 GOTO 778 

700 PRINT"ON MAINTIENT L'ANGLE RESULTANT ACTUEL"; 

710 INPUT PS 

720 PRINT" 

730 IF LEFTS(PS,1)="N" THEN 779 ELSE IF LEFTS(P$,1)="O" THEN 1130 
735 ELSE GOTO 700 

770 PRINT"COMMANDE DE MONTEE/DESCENTE" ; 

780 INPUT A$,Al 

790 PRINT" * 

800 IF Al<ÿ THEN 834 

810 IF A1>15 THEN 879 

828 GOTO 939 

830 PRINT"L'ANGLE ENTRE DOIT ETRE POSITIF.SI NECESSAIRE,CHANGEZ LA" 
848 PRINT"'MONTEE' PAR LA COMMANDE "DESCENTE" ,OU VICE VERSA." 

850 PRINT" " 

868 GOTO 779 

870 Wl=wl+1 

880 IF Wl=2 THEN 2120 

899 PRINT"VOTRE BOMBARDIER NE PEUT PAS SUPPORTER LES TENSIONS CAUSEES" 
900 PRINT"PAR UN ANGLE INTRODUIT,DE PLUS DE 15 DEGRES.RECONSIDEREZ VOTRE CHOIX." 
910 PRINT" " 

920 GOT 770 

930 IF AS="MONTEE" THEN 950 

940 Al=-Al 

950 A=A+Al 

960 IF A<-60 THEN 990 

970 IF A>60 THEN 1068 

988 GOTO 1148 

998 W2=W2+1 

1008 IF W2=2 THEN 2170 

1010 PRINT"VOTRE COMMANDE ‘DESCENTE’ VA DEPASSER L'ANGLE MAXIMUM" 
1020 PRINT"RESULTANT DE DESCENTE ,DE 6@ DEGRES,CE QUI VA PROVOQUER UN" 
1030 PRINT"VOL EN PIQUE IRREVERSIBLE.RECONSIDEREZ VOTRE CHOIX." 
1248 PRINT" * 

1258 GOTO 670 

1060 W3=W3+1 

1070 IF W3=2 THEN 2219 

1080 PRINT"VOTRE COMMANDE "MONTEE' VA DEPASSER L'ANGLE MAXIMUM" 
1990 PRINT"RESULTANT DE MONTEE,DE 68 DEGRES,CE QUI VA CASSER VOTRE" 
1108 PRINT"MACHINE ET FAIRE CRASHER VOTRE AVION.RECONSIDEREZ VOTRE" 
1195 PRINT"CHOIX" 

1118 PRINT" ” 

1128 GOTO 678 

1130 A1=0 

1148 PRINT"VITESSE AERIENE"; 

1158 INPUT V 

1168 IF V>900 THEN 1190 

1170 IF V<300 THEN 1238 

1188 GOTO 1298 

1198 PRINT"VOTRE BOMBARDIER N'EST PAS CAPABLE D'ATTEINDRE CETTE VITESSE." 
1208 PRINT"RENTREZ UNE VITESSE DE MOINS DE 908 PIEDS PAR SECONDE." 
1210 PRINT" * 

1220 GOTO 1158 

1230 W4=w4+l 


1248 IF W4=2 THEN 2250 1918 Z4=ABS(X) 





1258 PRINT"SI VOTRE VITESSE N'EST PAS AUGMENTEE IMMEDIATEMENT , VOTRE BOM-" 1928 Z1=Z10(1):Z2=210(2):23=Z10(3):Z4=210(4) 

1269 PRINT"BARDIER VA S'ECRASER À TERRE ET ETRE DETRUIT." 1921 FOR M=1 TO 4 

1270 PRINT" " 1922 FOR Ml= 4 TO 1 STEP-1 

1289 GOTO 1149 1923 IF Z19(M)<Z18(Ml) THEN Z19(M)=X5 

1290 T=T+1 1924 IF M=Ml AND M=1 THEN 1926 

1300 B=A*3.14159/189 1925 NEXT Ml 

1319 Y=Y+V#SIN(B) 1926 NEXT M 

1329 IF Y>109 THEN 1390 1930 PRINT" * 

1330 WS=WS+1 1948 IF X5<= 300 THEN 2009 

1340 IF W5=2 THEN 2290 1958 PRINT"DURANT VOS" ;R;CHRS (8) ;"-PASSAGES, VOUS N'AVEZ MEME PAS REUSSI" 
135 PRINT"SI VOUS N'AUGMENTEZ PAS IMMEDIATEMENT VOTRE ALTITUDE JUSQU'À UN" 1968 PRINT"A MENACER LA CIBLE PAR UN COUP.VOUS AUREZ PLUS DE CHANCE LA PROCHAINE FOIS." 
1368 PRINT"MINIMUM DE 190 PIEDS,UN CRASH EST IMMINENT." 1970 IF LEFTS(RS,1)="N" THEN 2590 

1379 PRINT" " 1989 GOTO 2848 

1388 GOTO 678 1998 GOTO 2619 

1399 X=X-V#COS (B) 2008 PRINT"DURANT VOS";R;CHRS (8) ;"-PASSAGES, VOUS AVEZ REUSSI À FRAPPER" 
1490 IF X<=0 THEN 2350 2014 PRINT"A MOINS DE";X5; "PIEDS DE LA CIBLE." : 

1419 E=X/ (V*COS (B)) 2020 PRINT" " 

1429 PRINT TAB (30) "#*#*#*BILAN*##" 2030 IF RS="NON" THEN 2599 

1438 PRINT" " 2040 PRINT"AIMERIEZ VOUS VOUS REAPPROVISIONNER EN MUNITIONS ET REJOUER"; 
1440 IF NOT(T=1)THEN 1479 2058 INPUT AS | 

1458 PRINT TAB(28) "TEMPS ECOULE... 1 SECONDE" 2060 IF LEFTS(AS,1)="O" THEN 2100 ELSE GOTO 2590 

1469 GOTO 1488 2198 R=0 

1470 PRINT TAB(28) "TEMPS ECOULE. ..";:PRINT USING "###";T;:PRINT * SECONDES" 2118 GOTO 298 

1488 IF NOT(Al=0) THEN 1510 2120 PRINT"VOUS AVEZ DECHIRE LES AILES DE VOTRE BOMBARDIER EN DEPASSANT" 
1498 PRINT TAB(11)" ANGLE ACTUEL ... @ DEGREES" 2138 PRINT"L'ANGLE MAXIMUM DE 15 DEGRES.LA PROCHAINE FOIS ECOUTEZ MOI." 
1598 GOTO 1559 2158 H=1 

1519 IF AS="MONTEE" THEN 1549 2168 GOTO 1928 

1520 PRINT TAB(11)" ANGLE ACTUEL, COMMANDE... DESCENTE," ;-Al ; "DEGRES" 2170 PRINT"L'ANGLE DE DESCENTE DESIRE À CAUSE UN PIQUE IRREVERSIBLE" 

1530 GOTO 1550 2188 PRINT"DONT LE RESULTAT EST LA DESTRUCTION DE VOTRE BOMBARDIER." 

1549 PRINT TAB(11)" ANGLE ACTUEL, COMMANDE...  MONTEE, ";Al ; "DEGRES" 2198 H=1 

1559 IF A<Q THEN 1590 2200 GOTO 1928 

1568 1F A>0 THEN 1619 2219 PRINT"LE MOTEUR DE VOTRE BOMBARDIER À CAPOTE DURANT LA MONTEE" 

1570 PRINT TAB(17)" ANGLE TOTAL... @ DEGRES" 2220 PRINT"SUIVANT L'ANGLE INTRODUIT PAR LA COMMANDE D'ANGLE." 

1589 GOTO 1620 2230 H=1 

1599 PRINT TAB(17)" ANGLE TOTAL... ";-Al;"DEGRES EN DESCENTE" 2248 GOTO 1928 

1608 GOTO 1620 2250 PRINT"LA VITESSE DE VOTRE BOMBARDIER ETAIT INSUFFISANTE POUR SUPPPORTER" 
1619 PRINT TAB(17)" ANGLE TOTAL... ";A;"DEGRES EN MONTEE" 2268 PRINT"SON POIDS,ET PAR CONSEQUENT IL S'EST CRASHE." 

1620 PRINT TAB(16) "VITESSE ACTUELLE. ..";:PRINT USING F$;V; 2270 H=1 

1625 PRINT " PIEDS PAR SECONDE" 2280 GOTO 1920 

1630 PRINT TAB (24) "ALTITUDE... ";:PRINT USING FS;Y;:PRINT " PIEDS" 2290 PRINT"VOTRE BOMBARDIER N'A PAS REUSSI À MAINTENIR LA FAIBLE ALTITUDE" 
1649 PRINT TAB(14)"DISTANCE AU SITE... "; 2309 PRINT"QUE VOUS VOULIEZ,IL S'EST PEU APRES ECRASE." 

1645 PRINT USING "##,###";X;:PRINT " PIEDS" 2310 PRINT"VOUS AUREZ PLUS DE CHANCE LA PROCHAINE FOIS." 

1650 PRINT TAB(7)"HEURE ESTIMEE D'ARRIVEE... ";:PRINT USING "##.##";E; 2320 H=1 

1655 PRINT " SECONDES" 2330 GOTO 1920 

1660 PRINT 2340 PRINT"VOTRE BOMBARDIER VIENT DE DEPASSER LA CIBLE,IL EST INUTILE DE" 
1675 GOTO 549 2350 PRINT"VOUS DIRE,QUE VOUS N'AVEZ PAS LONGTEMPS MENACE SON EXISTANCE ." 
1688 PRINT"BOMBE LARGUEE." 2368 PRINT" " 

1690 T3=(SQR((V*SIN(B) )}"2+64.4*Y)+V*SIN(B))/32.2 2370 IF R=2 THEN 2420 

17006 PRINT"TEMPS JUSQU'A L' EXPLOSION... ";T3;"SECONDES" 2380 IF R=3 THEN 2449 

1719 X=X-V#COS (B) *T3 2390 IF R=4 THEN 1920 

1728 X=INT(X*100)/109 2408 QS$="SECONDE" 

1725 IF X5>ABS(X) THEN X5=ABS(X) 2418 GOTO 2458 

1730 PRINT " " 2420 QS="TROISIEME" 

1748 IF X<-.5 THEN 1780 2430 GOTO 2458 

1759 IF X>.5 THEN 1804 2440 Q$="QUATRIEME ET DERNIER" 

1764 PRINT"FELICITATIONS, VOUS AVEZ FAIT UN TIR PARFAIT." 2458 IF R>1 THEN 2490 

1776 GOTO 2030 2468 PRINT"VOUS AVEZ ACCOMPLI JUSQU'ICI 1 COURSE.DESIRERIEZ VOUS" 

1780 PRINT"LA BOMBE À EXPLOSEE A";-X;"PIEDS DERRIERE LE CENTRE DE LA CIBLE."." 2478 PRINT"FAIRE UN AUTRE PASSAGE"; 

1799 GOTO 1818 2488 GOTO 2519 

1809 PRINT"LA BOMBE À EXPLOSEE A";X;"PIEDS DEVANT LE CENTRE DE LA CIBLE." 2490 PRINT"VOUS AVEZ ACCOMPLI JUSQU'ICI";R; "COURSES. AIMERIEZ VOUS FAIRE * 
1819 IF R=1 THEN 1858 2508 PRINT"UN AUTRE PASSAGE" ; 

1820 IF R=2 THEN 1870 2518 INPUT RS 

1830 IF R=3 THEN 1890 2520 IF LEFTS(RS,1)="O" THEN 2560 ELSE IF LEFTS(R$,1)="N" THEN 1920 

1840 IF R=4 THEN 1919 2525 ELSE GOTO 2509 

1850 Z1=ABS(X) ' 2568 PRINT"VOTRE AVION À FAIT UN TOUR,ET EST MAINTENANT EN POSITION POUR" 
1864 GOTO 2400 2570 PRINT"FAIRE SON ";®$;" PASSAGE. *: PRINT 

1870 Z2=ABS (X) 2575 LINE INPUT "ENTREZ 'RETURN' LORSQUE VOUS ETES PRET. ";XXS 

1889 GOTO 2429 2580 GOTO 330 

1890 Z3=ABS(X) 2590 PRINT:PRINT"REVISEZ LES LOIS PHYSIQUES SUR LA CHUTE DES CORPS, * 
1906 GOTO 2448 2608 PRINT"ET REVENEZ JOUER BIENTOT." 


2610 PRINT:PRINT: END 
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Bridge-it (Faites le pont) 


« Faites le pont » est un jeu de logique 
qui se joue au moyen d'une feuille de 
papier et d'un crayon. Un joueur est 
représenté par les « X », l'autre par les 
«O». Les «X>» et les «O» sont 
disposés en grille de telle manière que les 
«X» peuvent être joints les uns aux 
autres par une ligne, sans passer par un 
« O », et les « O » peuvent être joints les 
uns aux autres par une ligne, sans passer 
par un « X ». Le but du jeu est pour les 
« X » de tracer une ligne du haut jusqu'en 
bas du tableau. Les « O » doivent former 
une chaîne continue de droite à gauche du 
tableau. Les joueurs jouent alternative- 
ment et peuvent aller n'importe où sur la 
grille. N'importe 


RUN 


FAITES LE PONT 
CREATIVE COMPUTING 
MORRISTOWN, NEW JERSEY 


VOULEZ VOUS LE MODE D'EMPLOI? OUI 


LE BUT DE CE JEU EST POUR VOUS D'ALLER DE LA COLONNE 
GAUCHE À LA COLONNE DROITE EN CONNECTANT LES O. 
L'ORDINATEUR DOIT ALLER DE HAUT EN BAS EN CONNECTANT 
LES X. 


VOUS VOUS DEPLACEZ EN TAPANT LES COORDONNEES (X,Y) DES 
(COLONNE, LIGNE) DES ‘'O' DESQUELS VOUS PARTEZ APRES 
L'INSTRUCTION-ORDINATEUR: 


VOUS PARTEZ DE? 


ET EN TAPANT LES COORDONNEES DU 'O' VERS LEQUEL VOUS VOUS 
DEPLACEZ ,APRES L'INSTRUCTION-ORNINATEUR: 


POUR? 


VOUS POUVEZ VOUS DEPLACER VERTICALEMENT OU HORIZONTALEMENT, 
DIAGONALLEMENT.VOUS NE POUVEZ PAS VOUS DEPLACER VERTICALEMENT 
NI DANS LA PREMIERE NI DANS LA TREIZIFME COLONNE. L'ORDINATEUR 
JOUE LE PREMIER 


FAITES 'RETURN' POUR COMMENCER LE JEU. 

VOULEZ VOUS UN TABLEAU IMPRIME? OUI 

VOUS POUVEZ UTILISER CE TABLFAU POUR ECRIRE LES DEPLACEMENTS, 
OU,VOUS POUVEZ OBTENIR UN TABLEAU APRES CHAQUE DEPLACEMENT. 


LIT 
1234567890123 


brhr 
ONU 
Oo Oo 
x X 
[e] O 
* x 
9 Oo 
* x 
O Le 9 
x 
oO O 
* *< 
oO 9 
* < 
9 [e] 


HN & BP UD J D w 
»* 
>» 
»*< 
»* 
* 
x 


1234567891111 
0123 


TABLEAU (OUI OÙ NON)? NON 


JE VAIS DE 2,1 À 2,3 


Note : cette version est destinée à être exécutée sur 
imprimante. 


lesquels des deux 
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symboles (X ou O) peuvent être connectés 
lors d'un déplacement donné. 

Dans cette version du jeu, l'ordinateur 
est votre adversaire. L'ordinateur joue les 
«X» et vous jouez pour les «O ». 
L'ordinateur joue en premier, ce qui lui 
donne un très léger avantage. Si vous 
considérez que votre adversaire est trop 
fort, vous pouvez modifier le programme, 
afin de permettre au joueur de 
commencer le premier. À n'importe quel 
moment du jeu vous pouvez demander 
une impression du tableau et ainsi voir 
comment le jeu progresse. 

Ce programme a été écrit par Michael 
Kass, Miles Barel et Alan Segal. 


VOUS PARTEZ DE? 
POUR? 3,4 


1,4 


TABLEAU (OUI OÙ NON)? N 
JE VAIS DE 4, 3 A 4, 5 
VOUS PARTEZ DE? 3,2 

POUR? 3,4 
TABLEAU (OUI OU NON)? N 

JE VAIS DE 4 , 1 À 4, 3 


VOUS PARTEZ DE? 3,3 
POUR? 5,3 


DEPLACFMENT IMPOSSIBLE -- ESSAYEZ A NOUVEAU 


VOUS PARTEZ DE? 
POUR? 5,6 
TABLEAU (OUI OÙ NON)? N 


3,6 


JE VAIS DE 6 , 5 À 6 , 7 


VOUS PARTEZ DE? 5,4 
POUR? 5,6 


TABLEAU (OUI OÙ NON)? N 


JE VAIS DE 6 , 3 A 6,5 


VOUS PARTEZ DE? 
POUR? 7,8 


5,8 


TABLEAU (OUI OÙ NON)? N 


JE VAIS DE 8 , 7 A 8, 9 


VOUS PARTEZ DE? 7,10 


POUR? 9,10 


TABLEAU (OUI OÙ NON)? O 


1111 
1234567890123 


O0 O O0-010 O O 
XX XX X X 
O O-010 O O O 
X XIX X X X 
0-01010 O O O 
XIX X X X X 
01010 O O O O 
X XX X X X 
1234567891111 

0123 


HN & BU H D © 


JE VAIS DE 10 , 9 A 10, 11 560 PRINT 
570 PRINT"VOUS PARTEZ DE"; 
580 INPUT F,G 


VOUS PARTEZ DE? 9,8 590 PRINT"POUR"; 

POUR? 9,10 600 INPUT F1,G1 
610 PRINT 

TABLEAU (OUI OU NON)? N 620 GOSUB 2220:REM SOUSPROGRAMME ERREUR ET CHANGEMENT DE TABLEAU 
630 GOTO 420 

JE VAIS DE 10 , 7 À 10, 9 640 REM SOUSPROGRAMME GAGNER -- 





650 REM PREMIER TEST 
660 FOR H=1 TO 11 STEP 2 


VOUS PARTEZ DE? 7,6 670 J=12 
POUR? 7,8 680 1F O(H,J)=23 THEN 710 
690 NEXT H 
TABLEAU (OUI OÙ NON)? N 700 GOTO 980 
710 FOR I=1 T0 11 STEP 2 
JE VAIS DE 8 , 5 A 8, 7 720 J=2 
730 IF O(1,J)23 THEN 760 
740 NEXT I 
VOUS PARTEZ DE? 9,12 750 GOTO 980 
POUR? 11,12 760 REM AUTRES TESTS 
770 J=3+2 
TABLEAU (OUI OU NON)? N 780 IF J=12 THEN 960 
790 IF O(1,3)=3 THEN 870 
JE VAIS DE 12 , 11 À 12, 13 800 IF O(1+1,)+1)=2 THEN 890 
J'AI GAGNEIIII 810 IF I-1<0 THEN 840 
820 IF O(1-1,3-1)=2 THEN 920 
TABLEAU (OUI OU NON)? O 830 IF X(I+1,)+1)=2 THEN 890 


840 IF 1-1<0 THEN 980 
850 IF X(I-1,J-1) THEN 890 
860 GOTU 740 


870 J=3+2 
880 GUTO 780 
890 J=J 
1111 900 1=1+2 
1234567890123 910 GUIO 780 
13 XX X X X X 920 J=) 
12 0 O0 O O O-010 950 GOTO 980 
11 XX X X X X 960 PRINI"J'AI GAGNEIIII" 
10 O O O 0-010 O 970 E=5 
9 XX X XIX X 980 RETURN 
8 Oo 0 0-01010 © 990 REM SOUSPROGRAMME IMPRIMER TABLEAU -------- 
TX X XIX X X 1090 PRINT 
6 O O0-01010 O O 1100 PRINT 
5 X XIX X X X 1110 PRINT 
4 O-01010 O O O 1130 PRINT 
3 XIX X X X X 1140 PRINT 
2 01010 O O O O 1150 D=0 
1 XX XX X X 1160 PRINT TAB(13)"1111" 
1234567891111 1170 PRINT TAB(4)"1234567890123" 
0123 1180 FOR Y=13 TO 1 STEP -1 
1190 IF Y<10 THEN 1220 
1200 PRINT Y; 
1210 GOTO 1230 
1220 PRINT" "Y; 
1230 FOR X=1 TO 13 STEP 1 
1240 IF Y/2=INT(Y/2) THEN 1330 
2 PRINT CHR$(26):WIDTH 80 1250 IF X(X,Y)=0 THEN 1420 
S PRINT TAB(24);"FAITES LE PONT" 1260 UN X(X,Y) GOTO 1270,1290,1310 
10 PRINT TAB(20);"CREATIVE COMPUTING" 1270 PRINT'X "; 
20 PRINT TAB(18);"MORRISTOWN, NEW JERSEY" 1280 GOTO 1450 
30 1=1-2 1290 PRINT"X-"; 
42 PRINT 1300 GOTO 1450 
50 PRINT 1310 PRINT"XI"; 
70 PRINT'VOULEZ VOUS LE MODE D'EMPLOI"; 1320 GOTO 1450 
80 INPUT B4$ 1330 D=0 
90 PRINT 1340 IF O(X,Y)=20 THEN 1450 
100 IF LEFT$(B4$,1)="N" THEN 300 1350 ON O(X,Y) GOTO 1360,1380,1400 
110 PRINT CHR$(26) 1360 PRINT "O "; 
120 PRINT"LE BUT DE CE JEU EST POUR VOUS D'ALLER DE LA COLONNE " 1370 GOTO 1450 
130 PRINT'GAUCHE A LA COLONNE DROITE EN CONNECTANT LES 0." 1380 PRINT"O-"; 
140 PRINT"L'ORDINATEUR DOIT ALLER DE HAUT EN BAS EN CONNECTANT" 1390 GOTO 1450 
145 PRINTULES X." 1400 PRINT"Ol"; 
150 PRINT 1410 GOTO 1450 
160 PRINT"'VOUS VOUS DEPLACEZ EN TAPANT LES COORDONNEES (X,Y) DES" 1420 D=D+1 
170 PRINT'(COLONNE,LIGNE) DES "O' DESQUELS VOUS PARTEZ APRES" 1430 IF D>1 THEN 1450 
171 PRINT"L'INSTRUCTION-ORD INATEUR :" 1440 PRINT " "; 
180 PRINT 1450 NEXT X 
190 PRINT"VOUS PARTEZ DE?" 1460 GOSUB 1620 
200 PRINT 1470 NEXT Y 
210 PRINT"ET EN TAPANT LES COORDONNEES DU ‘O' VERS LEQUEL VOUS VOUS" 1480 PRINT TAB(4)"1234567891111" 
220 PRINT"DEPLACEZ ,APRES L'INSTRUCTION-ORDINATEUR :" 1490 PRINT TAB(13)"0123" 
230 PRINT 1580 PRINT 
240 PRINT"POUR?" 1590 PRINT 
250 PRINT 1600 PRINT 
260 PRINI"VOUS POUVEZ VOUS DEPLACER VERTICALEMENT OU HORIZONTALEMENT ," 1610 RETURN 
270 PRINT"DIAGONALLEMENT.VOUS NE POUVEZ PAS VOUS DEPLACER VERTICALEMENT * 1620 PRINT 
280 PRINT'NI DANS LA PREMIERE NI DANS LA TREIZIEME COLONNE L'ORDINATEUR" 1630 RETURN 
285 PRINT"JOUE LE PREMIER" 1640 REM SOUSPROGRAMME DEPLACEMENT ORDINATEUR ------"-- 
290 PRINT:LINE INPUT "FAITES 'RETURN' POUR COMMENCER LE JEU.";RESP$ 1650 B=B+1 
300 DIM X(20,20) 1660 IF B>1 THEN 1710 
320 DIM U(20,20) 1670 0(1,2)=3 
330 DIM 1(20,20) 1680 PRINT "JE VAIS DE 2,1 À 2,3" 
340 FOR X=1 TU 13 STEP 2 1690 B1=B1+1 
350 FUR Y=2 10 12 STEP 2 1700 IF B1>1 THEN 1890 
360 O(X,Y)=1 1710 FOR C=3 10 11 STEP 2 
370 X(Y,X)=1 1720 T(C,C+1)=1 
380 NEXT Y 1730 T(C-2,C+1)=1 
390 NEXT X 1740 GOTO 1790 
400 INPUT "VOULEZ VOUS UN TABLEAU IMPRIME" ;RESP$ 1750 NEXT C 
401 IF LEFT$(RESP$,1)="0" THEN GOSUB 10200 1760 1(2,3)=3 
410 PRINT 1770 1(7,12)=2 
420 PRINT"TABLEAU (OUI OR NON)"; 1780 GOTO 1890 
430 INPUT 8$ 1790 FOR Q=C+3 TO 12 STEP 2 
440 PRINT 1800 T(C-2,Q)=2 
450 IF LEFT$(B$,1)="N". THEN 490 1810 T(C-1,Q+1)=2 
480 GUSUB 990:REM PRINT BOARD SUBROUT INE 1820 T(C-1,Q-1)=2 
490 IF EC>S THEN 510 1830 NEXT Q 
SOU GOTO 3010 1840 FOR S=C 10 3 STEP -2 
510 GOSUB 1640:REM DEPLACEMENT ORDINATEUR 1850 T(C-1,5)=3 
520 GOSUB 640:REM SOUSPROGRAMME ORDINATEUR GAGNE 1860 T(C,S-1)23 
530 PRINT 1870 NEXT S 
540 IF E=5 THEN 420 1880 GOTO 1750 
550 GOSUB 2710:REM PLAYER WIN SUBROUTINE 1890 1F F>F1 THEN 1950 
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1900 IF F<>F1 THEN 1920 2720 FOR Hz=1 A 11 STEP 2 





1910 IF G>G1 THEN 1950 2730 1212 

1920 X=F : 2740 1F X(1,H)23 THEN 2770 

1930 Y=G 2750 NEXT H 

1940 GOTO 1970 2760 GOTO 3000 

1950 X2=F1 2770 FUR J21 10 11 STEP 2 

1960 Y=G1 2780 122 

1970 IF T(X,Y)=0 THEN 2210 2790 IF X(1,3)23 INEN 2820 

1980 1F FCF1 THEN 2000 2800 NEXT J 

1990 ON T(X-1,Y+1) GOTO 2010,2080,2150 2810 GOI0 3000 

2000 ON T(X,Y) GOT0 2010,2080,2150 2820 1=1+2 

2010 IF X=Y-1 THEN 2050 2830 IF 1=12 THEN 2970 

2020 O(x+2,Y)23 2840 IF X(1,3)23 INEN 2910 

2030 PRINT"JE VAIS DE "3X4+35","3Y-L;"A MX43;" "Vel 2850 IF X(1+1,J+1)=2 THEN 2930 
2040 GOTO 2210 2860 IF J-1<0 THEN 2890 

2050 O(X-2,Y)=3 2870 IF X(1-1,9-1)=2 THEN 2950 
2060 PRINT"JE VAIS DE "3X-15","3Y-l3 "A MX" V4) 2880 IF O(1+1,2+1)=22 THEN 2930 
2070 GOTO 2210 2890 IF J-1<0 THEN 3000 

2080 IF X(X-1,Y+1)23 THEN 2120 2900 GOTU 2808 

2090 X(X+1,Y-1)22 2910 12=1+2 

2100 PRINT"JE VAIS DE "3X4l;" "YU A Xe; MY) 2920 GOTO 2830 

2110 GUTU 2210 2930 J=3+2 

2120 O(X-2,Y+2)23 2940 GOTO 2830 

2130 PRINT"JE VAIS DE "3X-1" "3 Y4l "A MX" V4 2950 J=J-2 

2140 GUTO 2210 2960 GUTO 2830 

2150 IF X(X-1,Y+1)23 THEN 2190 2970 IF O(1,2)<>2 THEN 3000 

2160 X(X-1,Y+1)22 2980 PRINT"VOUS AVEZ GAGNE 111 FELICITATIONSI II" 
2170 PRINT"JE VAIS DE "3x5", "Yael; "A Xe; "Vel 2990 E=5 

2180 GOTU 2210 3000 RETURN 

2190 U(X,Y)=3 3010 END 

2200 PRINT"JE VAIS DE "5X+15","5V-15"A "Xl", "Val 10200 REM PROGRAMME TABLEAU IMPRIME ------- 
2210 RETURN 10400 LPRINT"VOUS POUVEZ UTILISER CE TABLEAU POUR ECRIRE LES DÉPLACEMENTS," 
2220 KEM SOUSPRUGRAMME ERREUR ET CHANGER TABLEAU--------- 10500 LPRINT"OU, VOUS POUVEZ OBTENIR UN TABLEAU APRES CHAQUE DEPLACEMENT." 
2230 IF FF] THEN 2280 10600 LPRINT 

2240 IF F=1 THEN 2630 10700 LPRINT 

2250 IF F=13 THEN 2630 10800 LPRINT 

2260 IF F1=13 THEN 2630 10900 LPRINT 

2270 IF G=G1 THEN 2630 11000 LPRINT 

2280 IF F/2=INT(F/2) THEN 2630 11100 LPRINT 

2290 IF F>13 THEN 2630 11300 LPRINT 

2300 IF G>12 THEN 2630 11400 LPRINT 

2310 1F G/2€> INT(G/2) THEN 2630 11500 D=0 

2320 IF FOINT(F) THEN 2630 11600 LPRINT TAB(13)"1111" 

2330 IF F<1 THEN 2630 11700 LPRINT TAB(4)"1234567890123" 
2340 IF G€1 THEN 2630 11800 FOR Y=13 TO 1 STEP -1 

2350 IF F1/2=INT(F1/2) THEN 2630 11900 1F Y<10 THEN 12200 

2360 IF F1213 THEN 2630 12000 LPRINT Y; 

2370 IF G1>12 THEN 2630 12100 GOTO 12300 

2380 IF G1/2 C>INT(G1/2) THEN 2630 12200 LPRINT" "Y; 

2390 IF FICINT(FL) THEN 2630 12300 FOR X=1 10 13 SIEP 1 

2400 IF U1<1 THEN 2630 12400 IF Y/2=INI(Y/2) THEN 13300 
2410 IF F=F1 THEN 2530 12500 1F X(X,Y)=0 THEN 14200 

2420 IF GG THEN 2630 12600 ON X(X,Y) GUTO 12700,12900,13100 
2430 IF ABS(F-F1)<>2 THEN 2630:REM IMPRIMER ERREUR 12700 LPRINT"X "; 

2440 1F F>F1 THEN 2490 12800 GOTO 14500 

2450 1F O(F,G)=2 THEN 2630 12900 LPRINT"X-"; 

2460 1F O(F,G)=3 THEN 2630 13000 GOTO 14500 

2470 U(F,G)22 13100 LPRINT"XI"; 

2480 GOTO 2700:REM RETURN 13200 GOTO 14500 

2490 IF O(F1,G1)=2 THEN 2630 13300 D=0 

2500 1F O(F1,61)=3 THEN 2630 13400 IF O(X,Y)=0 THEN 14500 

2510 O(F1,G1)22 13500 ON O(X,Y) GOTO 13600, 13800, 14000 
2520 GOTO 2700: REM RETURN 13600 LPRINT "0 "; 

2530 IF ABS(C-G1)<>2 THEN 2530:REM PRINT ERROR 13700 GOTO 14500 

2540 IF G>G1 THEN 2590 13800 LPRINT"0-"; 

2550 IF X(F-1,G+1)2=2 THEN 2630 13900 COTO 14500 

2560 IF X(F-1,G+1)=3 THCN 2630 14000 LPRINT"U!"; 

2570 X(F-1,6+1)23 14100 GOTO 14500 

2580 GUTU 2700:REM RETURN 14200 D2=D+] 

2590 1F X(F1-1,Gl+1)=2 THEN 2630 14300 IF D>1 THEN 14500 

2600 IF X(F1-1,Gl+1)=3 THEN 2630 14400 LPRINT " ‘; 

2610 X(F1-1,61+1)=3 14500 NEXT x 

2620 GOTU 27U0:REM RETURN 14600 GOSUB 16200 

2630 PRINT"'DEPLACEMENT IMPOSSIBLE -- ESSAYEZ A NOUVEAU" 14700 NEXT Y 

2640 PRINT 14800 LPRINT TAB(4)"1234567891111" 
2650 PRINT"VOUS PARTEZ DE"; 14900 LPRINT TAB(13)"0123" 

2660 INPUT F,G 15200 LPRINT 

2670 PRINT"POUR"; 15300 LPRINT 

2680 INPUT F1,GL 15600 LPRINT CHR$(12) 

2690 GOT0 2220 16100 RETURN 

2700 RETURN 16200 LPRINT 





2710 REM PROGRAMME JOUEUR GAGNE -- 16300 RETURN 
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Camel (Chameau) 





Dans ce jeu d'aventure, votre objectif 
est de traverser le grand désert de Gobi 
pendant 200 kilomètres. Vous êtes pour- 
chassé par une tribu de Pygmées. Vous 
avez un quart d’eau qui équivaut à 
6 verres. Ce quart pourra être renouvelé si 
vous trouvez une oasis. Si vous 
rencontrez un autre voyageur, VOUS pour- 
rez profiter d'un demi-quart supplémen- 
taire. Pendant cette longue traversée, 
vous serez exposé à toutes sortes de 
dangers, tels des tempêtes de sable, des 
Berbères sauvages ou d'éventuelles 
blessures de votre chameau. 

Attention : ce jeu est régi par les dures 
lois du hasard. || est donc très difficile de 
gagner. En dix tentatives, la distance 
maximum que nous avons pu parcourir 
est de 159 kilomètres. De plus, dans la 
plupart de nos essais, les dangers acca- 
blants ont causé notre démission après 7 
ou 8 kilomètres. 

Ce jeu fut proposé par « The Heath 
Users Group ». 


CHAMEAU 
CREATIVE COMPUTING 
MORRISTOWN, NEW JERSEY 


DESIREZ-VOUS DES EXPLICATIONS SUR CE JEU? OUI 

BIENVENUE À CE JEU. L'OBJECTIF EST DE TRAVERSER 
2 KILOMETRES A TRAVERS LE GRAND DESERT DU GOBI. 
UNE TRIBU DE PYGMEES VOUS POURCHASSE. 


DES INSTRUCTIONS VOUS SERONT PROPOSEES AUSSI SOUVENT QUE NECESSAIRE. 


#1 - BUVEZ UN COUP 

#2 - DROIT DEVANT VOUS ET PAS TROP VITE 
#3 - DROIT DEVANT VOUS ET MANIEZ VOUS 
#4 - HALTE POUR LA NUIT 

#5 - BILAN 

#6 - ESPEREZ DU SECOURS 





VOUS AVEZ UN QUART D'EAU QUI VOUS PERMETTRA DE BOIRE SIX FOIS. 


VOUS POUVEZ RENOUVELER VOTRE RATION D'EAU À UN OASIS. 


VOUS POUVEZ OBTENIR LA MOITIE D'UN QUART D'EAU SI VOUS TROUVEZ DU SECOURS. 


SI VOUS NE TROUVEZ PAS DE SECOURS APRES L'INSTRUCTION SIX,VOUS PERDEZ. 


BONNE CHANCE ET BONNE TRAVERSEE !1! 


VOUS ETES AU MILIEU DU DESERT VERS UN OASIS. 
VOUS AVEZ TRAVERSE KILOMETRES. 

QUELLE EST VOTRE INSTRUCTION? 3 

VOTRE CHAMEAU S'EST BLESSE A LA BOSSE. 
HEUREUSEMENT , LES PYGMEES ETAIENT À PIED 111! 
VOTRE CHAMEAU BRULE SUR LES SABLES DU DESERT 


VOUS AVEZ TRAVERSE 14 KILOMETRES. 
QUELLE EST VOTRE INSTRUCTION? 3 
VOTRE CHAMEAU BRULE SUR LES SABLES DU DESERT 


sn essees ATTENTION ---------- BUVEZ UN COUP 
VOUS AVEZ TRAVERSE 14 KILOMETRES. 

QUELLE EST VOTRE INSTRUCTION? 4 

VOTRE CHAMEAU VOUS REMERCIEI 

LES PYGMEES SONT 11 KILOMFETRES DERRIERE VOUS. 

VOUS AVEZ TRAVERSE 14 KILOMETRES. 

QUELLE EST VOTRE INSTRUCTION? 3 

VOUS ETES ARRIVE À L,OASIS -------- 

VOTRE CHAMEAU REMPLIT VOTRE GOURDE ET MANGE DES FIGUES. 
VOTRE CHAMEAU BRULE SUR LES SABLES DU DESERT 


LES PYGMEES SONT 18 KILOMETRES DERRIERE VOUS. 
VOUS AVEZ TRAVERSE 3 KILOMETRES. 

QUELLE EST VOTRE INSTRUCTION? 4 

VOTRE CHAMEAU VOUS REMERCIEI 

LES PYGMEES SONT 1 KILOMETRES DERRIERE VOUS. 
VOUS AVEZ TRAVERSE 3 KILOMETRES. 

QUELLE EST VOTRE INSTRUCTION? 1 

VOUS FERIEZ MIEUX DE CHERCHER UNE OASISI 
QUELLE EST VOTRE INSTRUCTION? 4 

VOTRE CHAMEAU VOUS REMERCIE! 

LES PYGMEES VOUS ONT CAPTURE. LA SOUPE AU CHAMEAU ET A 
L'HOMME FST LEUR PLAT FAVORI I1111 


DESIREZ-VOUS UN NOUVEAU CHAMEAU ET UN AUTRE JEU? OUI 
BONNE CHANCE ET BONNE TRAVERSEE !! 


VOUS ETES AU MILIEU DU DESERT VERS UN OASIS. 
VOUS AVEZ TRAVERSF KILOMETRES . 
QUELLE EST VOTRE INSTRUCTION? 3 
VOTRE CHAMEAU BRULE SUR LES SABLES DU DESERT 


VOUS AVEZ TRAVERSE 8 KILOMETRES. 

QUELLE EST VOTRE INSTRUCTION? 2 

DE SAUVAGES BERBERES DISSIMULES DANS LES DUNES VOUS ONT CAPTURES !11! 
HEUREUSEMENT, LE CHEF DE LA TRIBU LOCALE A BIEN VOULU PAYER VOTRE RANCON 
MAIS ...GARE AUX PYGMEESII! 

VOICI DE NOUVELLES SOUS-{INSTRUCTIONS : 

#7 - TENTEZ UNE EVASION 

#8 - ATTENDEZ LE PAIEMENT DE VOTRE RANCON 

CHOISISSEZ ENTRE LES DEUX: 

2 7 

BRAVOI VOUS AVEZ REUSSI À VOUS ECHAPPER I!11 

sers ATTENTION ---------- BUVEZ UN COUP 

VOUS AVEZ TRAVERSE 8 KILOMETRES. 

QUELLE EST VOTRE INSTRUCTION? 1 

VOUS FERIEZ MIEUX NE CHERCHER UNE OASIS! 

QUELLE EST VOTRE INSTRUCTION? 3 

VOTRE CHAMEAU BRULE SUR LES SABLES DU DESERT 


LES PYGMEES SONT i KILOMETRES DERRIERE VOUS. 
VOUS AVEZ TRAVERSE 12 KILOMETRES. 
QUELLE EST VOTRE INSTRUCTION? 3 
MAITRE INDIGNEI!IVOUS AVEZ CONDUIT VOTRE MONTURE VERS UNE MORT ATROCEIII 
VOUS AVEZ TROUVE LA MORT DANS LE DESERT. 
LES DINDONS SE PERCHENT,MAIS PAS SUR LE DOS DES CHAMEAUX!!1! 


DESIREZ-VOUS UN NOUVEAU CHAMEAU ET UN AUTRE JEU? OUI 
BONNE CHANCE ET BONNE TRAVERSEE !! 


VOUS ETES AU MILIEU DU DESERT VERS UN OASIS. 

VOUS AVEZ TRAVERSE KILOMETRES. 

QUELLE EST VOTRE INSTRUCTION? 2 : 
VOUS FETES ARRIVE À L,OASIS -------- 

VOTRE CHAMEAU REMPLIT VOTRE GOURDE ET MANGE DES FIGUES. 
VOTRE CHAMFAU APPRECIE CETTE ALLURE 

VOUS AVEZ TRAVERSE 8 KILOMETRES. 

QUELLE EST VOTRE INSTRUCTION? 2 

VOTRE CHAMEAU APPRECIE CETTE ALLURE 

VOUS AVEZ TRAVERSE 15 KILOMETRES. 

QUELLE EST VOTRE INSTRUCTION? 2 

VOUS ETES PRIS DANS UNE TEMPETE DE SABLE.....BONNE CHANCE! 
VOUS ETES DEPLACE DE 7 KILOMETRES. 

VOTRE CHAMEAU APPRECIE CETTE ALLURE 
ATTENTION ---------- BUVEZ UN COUP 
LES PYGMEES SONT 2 KILOMETRES DERRIERE VOUS. 

VOUS AVEZ TRAVERSE 7 KILOMETRES. 

QUELLE EST VOTRE INSTRUCTION? 1 

VOUS FERIEZ MIEUX DE CHERCHER UNE OASIS! 

QUELLE EST VOTRE INSTRUCTION? 2 

VOTRE CHAMEAU APPRECIE CETTE ALLURE 

LES PYGMEES VOUS ONT CAPTURE. LA SOUPE AU CHAMEAU ET À 
L'HOMME EST LEUR PLAT FAVORI 11111 





DESIREZ-VOUS UN NOUVEAU CHAMEAU ET UN AUTRE JEU? OUI 
BONNE CHANCE ET BONNE TRAVERSEE 11 


VOUS ETES AU MILIEU DU DESERT VERS UN OASIS. 

VOUS AVEZ TRAVERSE KILOMETRES . 

QUELLE EST VOTRE INSTRUCTION? 2 

DE SAUVAGES BERBERES DISSIMULES DANS LES DUNES VOUS ONT CAPTURES 111 
HEUREUSEMENT, LE CHEF DE LA TRIBU LOCALE A BIEN VOULU PAYER VOTRE RANCON 
MAIS ...GARE AUX PYGMEESII1 

VOICI DE NOUVELLES SOUS-INSTRUCTIONS : 

#7 - TENTEZ UNE EVASION 

#8 - ATTENDEZ LE PAIEMENT DE VOTRE RANCON 

CHOISISSEZ ENTRE LES DEUX: 

? 8 

VOTRE RANCON À ETE VERSEE. VOUS ETES LIBREII 

VOUS AVEZ TRAVERSE KILOMETRES . 

QUELLE EST VOTRE INSTRUCTION? 3 

DE SAUVAGES BERBERES DISSIMULES DANS LES DUNES VOUS ONT CAPTURES 111 
HEUREUSEMENT, LE CHEF DE LA TRIBU LOCALE A BIEN VOULU PAYER VOTRE RANCON 
MAIS ...GARE AUX PYGMEESII1I 

VOICI DE NOUVELLES SOUS-INSTRUCTIONS : 

#7 - TENTEZ UNE EVASION 

#8 - ATTENDEZ LE PAIEMENT DE VOTRE RANCON 

CHOISISSEZ ENTRE LES DEUX: 

? 7 

BRAVOI VOUS AVEZ REUSSI A VOUS ECHAPPER 1111 

ATTENTION ---------- BUVEZ UN COUP 

VOUS AVEZ TRAVERSE KILOMETRES. 

QUELLE EST VOTRE INSTRUCTION? 3 

VOUS ETES ARRIVE À L,OASIS -------- 

VOTRE CHAMEAU REMPLIT VOTRE GOURDE ET MANGE DES FIGUES. 

VOTRE CHAMEAU RBRULE SUR LES SABLES DU DESERT 





LES PYGMEES VOUS ONT CAPTURE. LA SOUPE AU CHAMEAU ET À 
L'HOMME EST LEUR PLAT FAVORI 11111 


DESIREZ-VOUS UN NOUVEAU CHAMEAU ET UN AUTRE JEU? NON 


930 PRINT "VOICI DE NOUVELLES SOUS-INSTRUCTIONS:" 








5 PRINT CHR#(26) 940 PRINT "E7 - TENTEZ UNE EVASION" 
10 PRINT TAB(26) ; "CHAMEAU'" 950 PRINT “E8 - ATTENDEZ LE PAIEMENT DE VOTRE RANCON'" 

20 PRINT TAB(20) ; "CREATIVE COMPUTING" 960 PRINT "CHOISISSEZ ENTRE LES DEUX:" 

30 PRINT TAB(18) ; "MORRISTOWN, NEW JERSEY" 970 INPUT X 

35 PRINT: PRINT:PRINT 980 IF X=8 THEN 1060 

110 PRINT "DESIREZ-VOUS DES EXPLICATIONS SUR CE JEU"; 990 XI=INT(1O*RND(1)) 

120 INPUT D$ 1000 IF XI<S THEN 1040 

130 IF LEFTS(D#,1)="N" THEN 320 1010 PRINT ‘BRAVO! VOUS AVEZ REUSSI A VOUS ECHAPPER!!!1" 

140 PRINT CHR#(26);" BIENVENUE À CE JEU. L'OBJECTIF EST DE TRAVERSER" 1020 Q=0 

150 PRINT ‘200 KILOMETRES A TRAVERS LE GRAND DESERT DU GOBI." 1030 GOTO 340 

160 PRINT ‘UNE TRIBU DE PYGMEES VOUS POURCHASSE." 1040 PRINT ‘ADIEU! VOUS AVEZ ETE MORTELLEMENT BLESSE AU COURS DE VOTRE EVASION ! " 
170 PRINT "DES INSTRUCTIONS VOUS SERONT PROPOSEES AUSSI SOUVENT QUE NECESSAIRE." 1050 GOTO 1410 

180 PRINT 1060 XI=INT(1O0"RND(1)) 

200 PRINT "INSTRUCTIONS :" 1070 REM 

210 PRINT 1080 IF XI>24 THEN 1100 

220 PRINT ‘hi - BUVEZ UN COUP" 1090 PRINT "VOTRE RANCON A ETE VERSEE. VOUS ETES LIBRE! !" 

230 PRINT “E2 - DROIT DEVANT VOUS ET PAS TROP VITE" 1095 Q=0 

240 PRINT "&3 - DROIT DEVANT VOUS ET MANIEZ VOUS" 1096 GOTO 340 

250 PRINT ‘#4 - HALTE POUR LA NUIT" 1100 PRINT ‘UN PEU DE PATIENCE,LE CHEF DE LA TRIBU EST EN TRAIN DE COLLECTER VOTRE RANÇON. 
260 PRINT "#5 - BILAN" VOTRE RANCON." 

270 PRINT “£6 - ESPEREZ DU SECOURS" 1110 GOTO 340, 

275 PRINT 1120 A=INT(IO RND(1)) 

280 PRINT VOUS AVEZ UN QUART D'EAU QUI VOUS PERMETTRA DE BOIRE SIX FOIS." 1130 IF A>2 THEN 1240 

290 PRINT “VOUS POUVEZ RENOUVELER VOTRE RATION D'EAU A UNE OASIS." 1140 PRINT ‘VOUS ETES ARRIVE À L'OASIS --=---"- ù 

300 PRINT "VOUS POUVEZ OBTENIR LA MOITIE D'UN QUART D'EAU SI VOUS TROUVEZ DU SECOURS." 1150 PRINT "VOTRE CHAMEAU REMPLIT VOTRE GOURDE ET MANGE DES FIGUES." 

310 PRINT "SI VOUS NE TROUVEZ PAS DE SECOURS APRES L'INSTRUCTION SIX, VOUS PERDEZ." 1160 Z=4 

320 PRINT ‘BONNE CHANCE ET BONNE TRAVERSEE ! !" 1170 S=6 

325 PRINT 1180 RETURN 

330 PRINT "VOUS ETES AU MILIEU DU DESERT VERS UN OASIS." 1190 PRINT "MAITRE INDIGNE!!!VOUS AVEZ CONDUIT VOTRE MONTURE VERS UNE MORT ATROCE!!! " 
335 GOSUB 2000 1200 GOTO 1410 

340 1F C>199 THEN 1210 1210 PRINT "VOUS AVEZ GAGNE!UNE SOIREE EST DONNÉE EN VOTRE HONNEUR..." 
350 Z=Z-1 1220 PRINT "....... LES PYGMEES COMPLOTENT CONTRE VOUS....... “ 

355 IF Z=1 THEN PRINT "= ATTENTION ---------- BUVEZ UN COUP" 1230 GOTO 1560 

360 IF Z<O THEN 1630 1240 XI=INT(IOOSRND(1)) 

370 P=P+1 1250 IF XI35 THEN 1350 

380 X2SINT (IO*RND(1)+2.5) 1260 PRINT "VOIS ETES DANS UNE TEMPETE DE SABLE..... BONNE CHANCE! " 

390 IF Q>O THEN 940 1270 XS=INT(1O#RND(1)) 

&0O IF P€4 THEN 470 1280 X6=INT(10 RND(1)) 

&1O CI=CI+X2 1290 IF X6€5 THEN 1320 

420 IF CI<C THEN 460 1300 C=C+X5 

430 PRINT ‘LES PIGMEES VOUS ONT CAPTURE. LA SOUPE AU CHAMEAU ET A" 1310 GOTO 1330 

44O PRINT "L'HOMME EST LEUR PLAT FAVORI! 111!" 1320 C=C-X5 

450 GOTO 1560 1330 PRINT “VOUS ETES DEPLACE DE";C;'"KILOMETRES. " 

460 PRINT "LES PIGMEES SONT "C-Cl; ‘'KILOMETRES DERRIERE VOUS." 1340 RETURN 

470 PRINT " VOUS AVEZ TRAVERSE": C;''KILOMETRES." 1350 XI=INT(1O0*RND(1)) 

480 PRINT "QUELLE EST VOTRE INSTRUCTION"; 1360 IF XI>5 THEN RETURN 

490 INPUT Y 1370 Ci=CI+1 

500 ON Y GOTO 830,610,680,760, 790 1380 PRINT “VOTRE CHAMEAU S'EST BLESSE À LA BOSSF ." 

550 T=INT(1O#RND(1)) 1390 PRINT HEUREUSEMENT, LES PYGMEES ETAIENT À PIED!!!" 

560 IF T<>1 THEN 1200 1400 RETURN 

570 PRINT ‘UNE PERSONNE VOUS A SECOURU ALORS QUE VOUS ETIEZ INCONSCIENT" 1410 U=INT(IO#RND(1)) 

580 S=3 1420 PRINT “VOUS AVEZ TROUVE LA MORT DANS LE DESERT." 

590 Z=4 1430 IF U>1 THEN 1460 

600 GOTO 340 1440 PRINT ‘' L'ASSOCIATION PROTECTRICE DES CHAMEAUX NE PAIERA PAS VOS FUNERAILLES!!! " 
610-F=F+1 1450 GOTO 1560 

620 IF F=8 THEN 1190 1460 IF U>3 THEN 1490 

630 GOSUB 880 1470 PRINT “VOTRE CORPS A ETE DEVORE PAR DES VAUTOURS ET DES CANNIBALES IMPORTES!!!" 
640 XI=INT(IO#RND(1)) 1480 GOTO 1560 

650 C=C+XI 1490 IF U>5 THEN 1520 

660 PRINT "VOTRE CHAMEAU APPRECIE CETTE ALLURE" 1500 PRINT "LE CHEF DE LA TRIBU SE SERT MAINTENANT DE VOTRE CRANE COMME D'UNE MONNAIE D'ECHANGE 
670 GOTO 340 1510 GOTO 1560 

680 F=F+3 1520 IF U>7 THEN 1550 

690 IF F>7 THEN 1190 1530 PRINT "DES GENS SI BETES NE DEVRAIENT PAS S'AVENTURER DANS LE DESERT!!!" 
700 GOSUB 880 1540 GOTO 1560 

710 K1=2#INT(IO*RND(1)) 1550 PRINT ‘’LES DINDONS SE PERCHENT, MAIS PAS SUR LE DOS DES CHAMEAUX!!!" 
720 C=C+X1 1560 PRINT 

730 PRINT "VOTRE CHAMEAU BRULE SUR LES SABLES DU DESERT" 1570 PRINT 

740 PRINT 1580 PRINT "DESIREZ-VOUS UN NOUVEAU CHAMEAU ET UN AUTRE JEU"; 

750 GOTO 340 1590 INPUT D$ 

760 PRINT "VOTRE CHAMEAU VOUS REMERCIE!" 1600 IF LEFT#(D#,1)="Y" THEN 320 

770 F=0 1620 GOTO 1650 

780 GOTO 350 1630 PRINT "VOUS N'AVEZ PLUS D'EAU...DESOLE MON VIEUX!" 

790 PRINT "IL RESTE À VOTRE CHAMEAU'"';7-F; "JOURS À VIVRE." 1640 GOTO 1410 

800 PRINT "IL VOUS RESTE L'EQUIVALENT DE‘";S;''VERRES DANS VOTRE GOURDE." 1650 

810 PRINT "VOUS POUVEZ OBTENIR";Z;'"INSTRUCTIONS SANS ETRE OBLIGE DE BOIRE." 1655 

830 S=$-1 1657 

840 IF SCO THEN 1200 1660 

850 PRINT "VOUS FERIEZ MIEUX DE CHERCHER UNE OASIS!" 2000 

860 Z=4 2010 

870 GOTO 480 2020 

880 A=INT(100%RND(1)) 2030 

890 IF A>5 THEN 1120 2040 

900 PRINT "DE SAUVAGES BERBERES DISSIMULES DANS LES DUNES VOUS ONT CAPTURE !1!" 2050 


910 PRINT ‘HEUREUSEMENT, LE CHEF DE LA TRIBU LOCALE A BIEN VOULU PAYER VOTRE RANÇON 2060 
920 PRINT ‘MAIS ...GARE AUX PYGMEES!!! " 2070 
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Chase (Poursuite) 


Poursuite vous fait entrer dans un 
labyrinthe formé de barrières sous haute 
tension et de postes de garde. Cela ne 
serait pas déplaisant si cinq robots inter- 
cepteurs n'étaient là que pour une chose : 
votre destruction. Si ces robots vous 
touchent... c’est la fin du jeu (et la vôtre !). 
Il y a un espoir : faire toucher les barrières 
aux robots ou les réunir (ils sont comme 
les humains, parfois ils préfèrent la ÿ 
solitude). Si vous les détruisez, vous êtes -1 
vainqueur ! Si vous vous trouvez dans une 
situation désespérée, vous pouvez 
toujours bondir au hasard (vous pourriez 


POURSUITE 
CREATIVE COMPUTING 
MORRISTOWN, NEW JERSEY 


VOUS ETES DANS UN LABYRINTHE DE FILS A HAUTE TENSION 

CINQ MACHINES DES SERVICES DE SECURITE ESSAYENT DE VOUS DETRUIRE 
VOUS ETES LE ‘*' LES INTERCEPTEURS SONT LES ‘+ 

LES ZONES MARQUEES ‘'X' SONT SOUS HAUTE TENSION 

VOTRE SEULE CHANCE DE SURVIE EST DE POUSSER CHAQUE 

INTERCEPTEUR DANS UN ‘'X'.----- BONNE CHANCE----- 

LES DEPLACEMENTS SONT 


PLUS DE DEPLACEMENT POUR LE RESTE DU JEU 
ABANDON, SITUATION DESESPEREE. 
UN ENORME SAUT (MAIS MALHEUREUSEMENT FAIT AU HASARD) 


nu 


ENTREZ ‘RETURN' POUR COMMENCER LE JEU. 


LES DEPLACEMENTS SONT 7.8.9 


vous retrouver sur une barrière ou sur un TN CRE 
garde). ee = ABANDON 


A la fin du jeu, vous pouvez rejouer 
avec des conditions initiales semblables 


SAUT AU HASARN 


ou différentes. 


XXXXXXXXXXXXXXXXXXXX 


É . Pur A X X X X 
Je crois que ce jeu a été inventé par For + x 
Mac Oglesby. Il a ensuite été modifié par Hu X ue 
Bill Cotter, puis amélioré par Arnold Love- XX 4* x 
ridge. Une version intermédiaire a été K À À. PRE 
ié é j x XX d x 
publiée dans le numéro de Creative CDR TR 
Computing de janv.-févr. 1976. 
? 9 
XXXXXXXXXXXXXXXXXXXX 
X XX X X 
X X 
X X + X X 
X + 4+* x x 
XX X 
X X X X 
X X X X + x 
X X X X 
XXXXXXXXXXXXXXXXXXXX 
8-3 
XXXXXXXXXXXXXXXXXXXX 
X XX X X 
X X 
X X X X 
X + X X 
XX + +* X 
X X + X X 
X X X X X 
X X X 
XXXXXXXXXXXXXXXXXXXX 
? 7 


*** VOUS AVEZ ETE DETRUIT PAR UN ORDINATEUR CHANCEUX *#* 


UN AUTRE TOUR (O/N)? O 
MEME DISPOSITION (O/N)? N 


LES DEPLACEMENTS SONT 7.8.9 
PLUS DE DEPLACEMENT 


ABANDON 


0 
wii 


SAUT AU HASARD 


XXXXXXXXXXXXXXXXXXXX 
X X+ x 
X X X X x 
X X +XX x 
X + XX 
x + x 
x x x 
x: * X 
X X X + X 
XXXXXXXXXXXXXXXXXXXX 
? 6 

XXXXXXXXXXXXXXXXXXXX 
X X X 
X X X X + X 
X X XX X 
x + XX 
x + X 
x + x X 
X " + X 
X X X 
XXXXXXXXXXXXXXXXXXXX 
? 6 


*** VOUS AVEZ ETE DETRUIT PAR UN ORDINATEUR CHANCEUX *** 





UN AUTRE TOUR (O/N)?°N 
Ok 
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5 PRINT CHR$(26) 680 1F Y9=10 THEN 1070 












10 PRINT TAB(26) ; "POURSUITE" 690 ON Y9 GOTO 820,800,780,840,890,760,700,720,740 
20 PRINT TAB(20);"CREATIVE COMPUTING" 700 J=J-1:K=K-1 

30 PRINT TAB(18);"MORRISTOWN, NEW JERSEY" 710 GOTO 890 

40 PRINT:PRINT:PRINT 720 J=J-1 

41 PRINT "VOUS ETES DANS UN LABYRINTHE DE FILS A HAUTE TENSION" 730 GOTO 890 

42 PRINT "CINQ MACHINES DES SERVICES DE SECURITE ESSAYENT DE VOUS DETRUIRE" 740 J=J-1:K=K+1 

60 PRINT "VOUS ETES LE ‘*' LES INTERCEPTEURS SONT LES "+" 750 GOTO 890 

70 PRINT "LES ZONES MARQUEES ‘X' SONT SOUS HAUTE TENSION" 760 K=K+1 

80 PRINT "VOTRE SEULE CHANCE DE SURVIE EST DE POUSSER CHAQUE" 770 GOTO 890 

90 PRINT "INTERCPTEUR DANS UN 'X'.----- BONNE CHANCE----- " 780 J=J4+1:K=K+1 

100 PRINT "LES DEPLACEMENTS SONT 7.8.9" 790 GOTO 890 

110 PRINT " 4.6" 800 J=J41 

120 PRINT " 1.2.3" 810 GOTO 890 

130 PRINT 820 J=J+1:K=K-1 

140 PRINT "10 = PLUS DE DEPLACEMENT POUR LE RESTE DU JEU" R30 GOTO 890 

150 PRINT "-1 = ABANDON, SITUATION DESESPEREE ." 640 K=k-1 

160 PRINT " O = UN ENORME SAUT (MAIS MALHEUREUSEMENT FAIT AU HASARD)" 850 GOTO 890 

170 PRINT 860 PRINT "$6.000.000 SAUTI II" 

175 LINE INPUT "ENTREZ 'RETURN' POUR COMMENCER LE JEU. ";XX$ 870 J=INT(2+8#RND(1)) 

180 DIM A(10,20),41(10,20),N(12),L(5),M(5),L1(5),M1(5) 880 K=INT(2#18#RND(1)) 

190 REM 890 IF A(J,K)=ASC("X") THEN 1260 

210 FOR B=1 TO 10 900 A(J2,K2)=ASC(" ") 

220 FOR C=1 T0 20 910 A(J,K)=A5C("#") 

230 X2INT(10*RND(1)) 920 GOTO 1070 

240 IF X=5 THEN 270 930 REM MOUVEMENT DES INTERCEPTEURS 

250 A(B,C)=ASC(" ") 940 IF A(X,Y)=ASC("X") THEN 1040 

260 GOTO 280 950 X2=X:Y2=Y 

270 A(B,C)=ASC("X") 960 X=SGN(J-X) :Y=SGN(K-Y) 

280 NEXT C 970 X=X+X2:Y=Y+Y2 

290 NEXT B 980 IF A(X,Y)=ASC("#") THEN 1050 

300 FOR D=1 T0 10 990 IF A(X,Y)=ASC(" ") THEN 1020 

310 A(D,1)=ASC("X"):A(D,20)=ASC("X") 1000 A(X2,Y2)=ASC(" ") 

320 NEXT D 1010 RETURN 

330 FOR F=1 T0 20 1020 A(X,Y)=ASC("+") 

340 A(1,F)=ASC("X"):A(10,F)=ASC("X") 1030 A(X2,Y2)=ASC(" 

350 NEXT F 1040 RETURN 

360 GOTO 410 1050 G9299 

370 H=INT(2+8*RND(1)) 1060 RETURN 

380 I=INT(2+18*RND(1)) 1070 FOR N9=1 T0 5 

390 IF A(H,I)CDASC(" ") THEN 370 1080 X=L(N9):Y=M(N9) 

400 RETURN 1090 G9=0 

410 GOSUB 370 1100 GOSUB 940 

420 A(H,1)=2ASC("#") 1110 IF G9 ©> O THEN 1240 

430 J=H:K2=] 1120 L(N9)2X:M(N9)=Y 

440 FOR N9=1 TO 5 1130 NEXT N9 

450 GOSUB 370 1140 FOR N9=1 10 5 

460 A(H,I)=ASC("+") 1150 IF A(L(N9),M(N9)) <> ASC(" ") THEN 1170 
470 L(N9)=H:M(N9)=1 1160 A(L(N9),M(N9) )=ASC ("#4") 

480 NEXT N9 ; 1170 NEXT N9 

490 FOR Bl=1 TO 10:FOR B2=1 TO 20:A1(B1,B2)=A(B1,B2):NEXT B2:NEXT B1 1180 FOR N9=1 T0 5 

500 FOR B1=1 T0 5:L1(B1)=L(B1):M1(B1)=M(B1):NEXT B1 1190 IF A(L(N9),M(N9)) <> ASC("X") THEN 540 
520 J1=J:K1=K 1200 NEXT N9 

530 Y9-=0 1210 PRINT:PRINT "VOUS AVEZ DETRUIT TOUS VOS ADVERSAIRES - VOUS AVEZ GAGNE" 
540 PRINT CHR$(26):PRINT "LES DEPLACEMENTS SONT 7.8.9"; 1220 GOTO 1290 

541 PRINT TAB(25);"10 = PLUS DE DEPLACEMENTS'":PRINT TAB(24);"4.*.6"; 1230 PRINT:PRINT "ABANDONNE, EH." 

542 PRINT TAB(25);"-1 = ABANDON":PRINT TAB(24);"1.2.3"; 1240 PRINT:PRINT "### VOUS AVEZ ETE DETRUIT PAR UN ORDINATEUR CHANCEUX #*##1 
543 PRINT TAB(26);"0 = SAUT AU HASARD":PRINT:PRINT 1250 GOTO 1290 

544 FOR D2=1 TO 10 1260 PRINT:PRINT "HAUTE TENSION!IIIIIIIII" 
550 FOR B2=1 T0 20 1270 PRINT "##### Zap ##### VOUS ETES MORT! 11" 
560 N$=CHR$(A(D2,B2)) 1280 PRINT 

570 PRINT N$; 1290 PRINT:PRINT "UN AUTRE TOUR (0/N)"; 
580 NEXT B2 1300 INPUT N9$ 

590 PRINT 1310 IF N9$ <> "O" THEN 1400 

600 NEXT D2 1320 PRINT "MEME DISPOSITION (0/N)"; 

610 IF Y9 <> 10 THEN 640 1330 INPUT N9$ 

620 PRINT 1340 IF N9$ <> "O" THEN 190 

630 GOTO 890 1350 FOR 8121 T0 10:FO0R B2=1 T0 20:A(B1,B2)=A1(B1,B2):NEXT B2:NEXT B1 
640 PRINT:INPUT Y9:PRINT 1360 FOR 8B1=1 TO 5:L(B1)=L1(B1):M(B1)=ML(B1):NEXT B1 
650 J2=J:K2=kK 1380 J=J1:K=K1 

660 IF Y9=0 THEN 860 1390 GOTO 530 

670 IF Y9 < O THEN 1230 1400 END 
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Chuck-A-Luck 





(Les dés sont jetés) 


CHUCK-A-LUCK 
CREATIVE COMPUTING 
MORRISTOWN, NEW JERSEY 


CHOISISSEZ UN NOMBRE DE 1 À 6. JE VAIS ROULER 3 DES. 
SI VOTRE NOMBRE EST EGAL À UN DE,JE PAYE. 
DEUX DES, 2:1 3 DES, 3:1 


MISEZ O (ZERO) POUR CESSER DE JOUER. 


VOUS AVEZ $ 500. MISEZ. 
? 100 
CHOISISSEZ UN NOMBRE? 3 
2 2 2 
VOUS N'AVEZ EGALE AUCUN DE. 
VOUS PERDEZ $ 100. 


VOUS AVEZ $ 400. MISEZ. 
? 50 

CHOISISSEZ UN NOMBRE? 1 
4 1 5 

VOUS AVEZ EGALE 1 FOIS. 
VOUS AVEZ GAGNE $ 50. 


VOUS AVEZ $ 450. MISEZ. 


? 50 VOUS AVEZ $ 150. MISEZ. 


CHOISISSEZ UN NOMBRE? 5 ? 50 
3 3 6 

VOUS N'AVEZ EGALE AUCUN DE. 1 4 

VOUS PERDEZ $ 50. VOUS AVEZ EGALE 


VOUS AVEZ GAGNE $ 50. 


VOUS AVEZ $ 400. MISEZ. 


? 100 VOUS AVEZ $ 200. 
CHOISISSEZ UN NOMBRE? 2 ? 100 

6 ds) 1 CHOISISSHZ UN NOMBRE? 5 
VOUS N'AVEZ EGALE AUCUN DE. 2 5 


VOUS PERDEZ $ 100. VOUS AVEZ EGALE 
VOUS AVEZ GAGNE 


VOUS AVEZ $ 300. MISEZ. 


? 100 VOUS AVEZ $ 300. 
CHOISISSEZ UN NOMBRE? 5 2? -7 
6 1 6 NE SOYEZ PAS MALIN!II 


VOUS N'AVEZ EGALE AUCUN DE. 
VOUS PERDEZ $ 100. 


? 100 
VOUS AVEZ $ 200. MISEZ. CHOISISSEZ UN NOMBRE? 3 
? 100 2 2 
CHOISISSEZ UN NOMBRE? 3 VOUS N'AVEZ EGALE AUCUN DE. 
1 6 4 VOUS PERDEZ $ 100. 


VOUS N'AVEZ EGALE AUCUN DE. 
VOUS PERDEZ $ 100. 


? 300 
VOUS AVEZ $ 100. MISFZ. LA MAISON NE FAIT PAS CREDIT 1111 
? 100 7 
CHOISISSEZ UN NOMBRE? 5 VOUS AVEZ $ 200. MISEZ. 
4 5 6 ? 100 
VOUS AVEZ EGALE 1 FOIS. CHOISISSEZ UN NOMBRE? 2 
VOUS AVEZ GAGNE $ 100. 6 4 


VOUS N'AVEZ EGALE AUCUN DE. 
VOUS PERDEZ $ 100. 


VOUS AVEZ $ 200. MISEZ. 
? 100 

CHOISISSEZ UN NOMBRE? 2 
6 6 4 ? 100 
VOUS N'AVEZ EGALE AUCUN DE. 


VOUS PERDEZ $ 100. TRICHEJRIILIIIL 


CHOISISSEZ UN NOMBRE? 3 


VOUS AVEZ $ 100. MISEZ. L 6 


? 50 VOUS N'AVEZ EGALE AUCUN DE. 
VOUS PERDEZ $ 100. 


CHOISISSEZ UN NOMBRE? 3 
4 3 6 

VOUS AVEZ EGALE 1 FOIS. 

VOUS AVEZ GAGNE $ 50. Ok 


CHOISISSEZ UN NOMBRE? 1 


VOUS AVEZ $ 300. MISEZ. 


VOUS AVEZ $ 200. 


VOUS AVEZ $ 100. 


CHOISISSEZ UN NOMBRE? 7 


Ce jeu est généralement pratiqué sur 
les champs de foire, dans les casinos de 
seconde classe, et dans les tripots. Il a 
pris son essor sur le territoire des Etats- 
Unis, mais trouve son origine dans les 
maisons de jeux européennes du xvii° 
siècle. Durant sa longue histoire, ce jeu a 
eu de nombreux noms tels « sweatcloth », 
« chuckerluck », « chuck luck » et « bird 
cage ». 

Chaque joueur mise sur un des six 
nombres : de 1 à 6. Une fois les paris 
fermés, le « croupier » secoue trois dés 
dans son godet grillagé, attend qu'ils 
s'immobilisent ou bien les jette sur le 
tapis. Si le nombre parié par un des 
joueurs apparaît sur la face d'un des dés, 
le joueur gagne la somme qu'il a misée. S'il 
apparaît sur deux dés, ou sur trois dés, il 
gagne respectivement deux ou trois fois la 
somme qu'il a misée. 

La version informatisée de « Chuck-a- 
luck » a été écrite par Michael Tanoff. 


10 PRINT CHR$(26) 


100 

110 

120 

130 

140 

150 

160 

170 

172 

180 
190 

195 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
332 
3354 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 


PRINT TAB(23);"CHUCK-A-LUCK" 

PRINT TAB(20);"CREATIVE COMPUTING" 

PRINT TAB(18);"MORRISTOWN, NEW JERSEY" 

PRINT:PRINT:PRINT 

PRINT "CHOISISSEZ UN NOMBRE DE 1 À 6. JE VAIS ROULER 3 DES." 
PRINT "SI VOTRE NOMBRE EST EGAL A UN DE,JE PAYE." 

PRINT "DEUX DES, 2:1 3 DES, 3:1" 

PRINT:M=500 

PRINT "MISEZ O (ZERO) POUR CESSER DE JOUER.":PRINT:PRINT 
PRINT:PRINT "VOUS AVEZ $";M;CHR$(8);". MISEZ." 

INPUT 8 

IF B = O0 THEN END 

IF B > M THEN 410 

IF B > O THEN IF B*100=INT(B*100) THEN 230 


GOTO 420 

PRINT "CHOISISSEZ UN NOMBRE"; 

INPUT N 

IF INT(N)=N AND N > O AND N < 7 THEN 270 
PRINT "TRICHEURI11111":GOT0 230 


A=INT(RND(1)#6)+1:PRINT Aj" “3tD=INT(RND(1)*6)+1:PRINT D;" 
C=INT(RND(1)#*6)+1:PRINT C;" 
1=0 

IF A=N THEN T=T+l 

IF D=N THEN T=1+#1 

IF C=N THEN T=T+#1 

IF T=0 THEN PRINT "VOUS N'AVEZ EGALE AUCUN DE." ELSE 
IF T=1 THEN PRINT "VOUS AVEZ EGALE 1 FOIS." 

ELSE PRINT "VOUS AVEZ EGALE";T; "FOIS." 

ON T GOTO 380,390,400 

PRINT "VOUS PERDEZ $";B;CHR$(8);"." 
M=M-B:IF M<= O THEN 430 

GOTO 180 

PRINT "VOUS AVEZ GAGNE $";B;CHR$(8);" 
PRINT "VOUS AVEZ GAGNE $";B*2;CHR$(8); 
PRINT "VOUS AVEZ GAGNE $";B*3;CHR$(8);". 
PRINT "LA MAISON NE FAIT PAS CREDIT 111!":GOTO 180 
PRINT "NE SOYEZ PAS MALIN!!!":GOTO 180 

PRINT 

PRINT 

END 











Close Encounters 
(Rencontres aériennes) 





Dans ce jeu, vous êtes placé sur la 
trajectoire d'un O.V.N.. Le programme 
vous place au point 0,0. Vous recevez des 
renseignements sur la course de 
l'O.V.N.. : lieu où il se trouve, en 
longitude et latitude, et sa vitesse. Vous 
pouvez choisir entre deux attitudes, ou 
bien vous essayez de désintégrer cet 
O.V.N.I., ou bien vous attendez, espérant 
que le frottement de l'air fera dévier sa 
course, ou peut-être même le brûlera. 

Une bonne connaissance des systèmes 
de coordonnées mathématiques peut 
vous aider. Néanmoins, l'expérience 
acquise au cours des premières parties 
vous permettra d'élaborer une stratégie 





personnelle. 
L'auteur de ce programme est Chris 
Falco. 
RENCONTRES AERIENNES KILOMETRES VITESSE LONGITUDE LATITUDE TRAJECTOIRE 
CREATIVE COMPUTING = D OU OUT 
MORRISTOWN, NEW JERSEY 12,000.0 (eo) 0 0 2 
11,941.3 3,525 -3 -5 2 
11,844.3 5,816 -10 -9 5 
VOUS ETES SITUE AU POINT DE COORDONNEES (0,0).UN OVNI 11,683.8 9,634 -19 -18 5 
SE DIRIGE DROIT VERS VOUS 11,429.3 15,270 -19 -27 -4 
11,141.3 17,278 -28 -27 5 
AU PREMIER CONTACT,LA TRAJECTOIRE DE L'OVNI EST DONNEE PAR O DEGRES LONGITUDE 10,745.3 23,761 -34 -32 6 
ET O DEGRES LATITUDE. 10,247.7 29,854 -43 -40 7 
(IL TOMBE À LA VITESSE OF O KILOMETRES/PAR HEURE) 9,644.4 36,198 -48 -45 7 
8,970.4 40,438 -56 -45 15 
VOUS AVEZ LE CHOIX SUIVANT: 8,212.8 45,456 -63 -47 20 
A)VOUS POUVEZ TENTER DE LE DESINTEGRER.OU BIEN 7,356.5 51,379 -64 -49 19 
B)VOUS ATTENDEZ,EN ESPERANT QUE LE FROTTEMENT DE L'AIR 6,448.9 54,455 -72 -57 19 
FERA DEVIER LA TRAJECTOIRE DE L'OVNI,CE DERNIER 5,460.7 59,294 -75 -57 22 
MANQUERA AINSI SA CIBLE. 4,366.1 65,676 -82 -59 27 
3,187.5 70,718 -85 -61 28 
QUE DECIDEZ-VOUS (A OU B)? B 1,913.4 76,445 -87 -70 21 
568.2 80,711 -87 -78 13 


tn IMPACT - À - 82,727-KILOMETRES-PAR-HEURE ---------- 
JOLI TRAVAIL.LE FROTTEMENT DE 6% A PROVOQUE UNE DEVIATION DE 
LA TRAJECTOIRE DE L'OVNI. LES COORDONNEES DE L'IMPACT SONT 
MAINTENANT ( 6 , -6 )}. VOUS L'AVEZ EUI 

UN AUTRE ESSAI? OUI 

CHOIX (A OÙ B)? A 
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ESSAYEZ DE DESINTEGREFR L'OVNI AVANT QU'IL NE 
SE RAPPROCHE TROP PRES DE VOUS.SI LA 
VITESSE 
DE L'OVNI DEPASSE 13667 K.P.H., VOS MISSILES SONT SANS EFFETI 
--VOTRE OEIL ELECTRONIQUE INDIQUE QUE VOUS AVEZ 2 
MINUTES POUR DETRUIRE CET OVNI 
AVANT QU'IL NE SOIT TROP PRES DE VOUS. 


--L'ORDINATEUR INDIQUE EN PREMIERE MESURE UNE TRAJECTOIRE APPROXIMATIVE DE. 95 


ENTREZ UNE TRAJECTOIRE DANS LE TABLEAU CI-DESSOUS : 


TEMPS VITESSE LONGITUDE LATITUDE TRAJECTOIRE 
0.0 5,667.0 41 123 ? 95 

0.5 7,366.0 36 118 ? 98 

1.0 9,065.0 31 113 ? 94 

1.5 10,764.0 .26 108 ? 92 

2.0 12,463.0 21 103 ? 90 
nm mme ATTENTION==--- 


LE - TEMPS - ECOULF - EST-DE - 2 - MINUTES 

SI - VOUS - PROJETIEZ - DE DESINTEGRER -L'OVNI -LA -FORCE -DE 
L'EXPLOSION - VOUS DETRUIRA - AUSSII 

UN AUTRE ESSAI? OUI 

CHOIX (A OÙ B)? À 


--VOTRE OEIL ELECTRONIQUE INDIQUE QUE VOUS AVEZ 4 

MINUTES POUR DETRUIRE CET OVNI 

AVANT QU'IL NE SOIT TROP PRES DE VOUS. 

--L'ORDINATEUR INDIQUF EN PREMIERE MESURE UNE TRAJECTOIRE APPROXIMATIVE DE. 79 
ENTREZ UNE TRAJECTOIRE DANS LE TABLEAU CI-DESSOUS : 


510 PRINT "POUR CETTE TENTATIVE, VOUS AVEZ DIRIGE VOTRE MISSILE DROIT DEVANT,SI BIEN QUE" 


TEMPS VITESSE LONGITUDE LATITUDE TRAJECTOIRE 520 PRINT "LORS DU TIP,DANS ENVIRON"F"HEURES, IL PASSERA"; 
ee em 530 PPINT " A TRAVERS" 
0.0 3,144.0 48 110 ? 80 San PRINT "VOTRE HABITACLE!IIIIIITIT AU REVOIRIIIIII":GOTO 660 
0.5 4,828.0 41 103 ? 85 550 IF A<200 GNT SAN 
120 6,512.0 34 96 2? 85 SGN PRINT "EAU TRAVAIL!VOTRE MISSILE SE DIRIGE -----" DROIT SUR" 
1.5 8,196.0 27 89 ? 85 570 PRINT "LA RUSSIE III VOS ENNUIS COMMENCENT!1":C0TO 660 
2.0 9,880.0 20 82 ? 78 SAN IF AZ=C-1 THEN 670 
2.5 11,564.0 13 75 ? 78 590 IF A=C+l THEN 710 
DESOLE--LA VITESSE DE L'OVNI À DEPASSE 11,144KM/H GQN X=X+#V+1200:Y2Y-1+5:727-1+9:C27-V+5 
SA VITESSE EST TROP GRANDE POUR QUE VOUS PUISSIEZ LE DETECTERI 610 NEXT T 
DONC, VOUS ETES PERDUI 620 PRINT:PRINT Mann ATTENTION==mmm mm " 
630 PRINT "LE = TEMPS = ECOULE = EST-DE -"3M; 
UN AUTRE ESSAI? NON "2 MINUTES ." 
ok 640 PRINT "SI = VOUS = PROJETIEZ = DE DESINTEGRER -L'OVNI -LA -FORCE -DE" 
CSN PRINT "L'EXPLOSION = VOUS DETRUIRA = AUSSI! ": 
PRINT 


660 GOTN 750 

670 PRINT "VOUS ALLIFZ LE MANONER DE PEU," 
GPO PRINT "MAIS VOUS ETES PASSE SI PRES QUE" 
G90 PRINT "VOUS L'AVFZ DETRUITI":PRINT 

700 GAIN 750 

710 PPIAT "VOUS AVEZ VISE JUSTE, ":GOT0 680 


720 PRINT MPANTASTINNENLEL VOIS L'AVEZ EU EN MILLE" 
730 PRINT "VOUS NEVEZ ETRE TRES ADROIT!":PRINT 
740 PPINAT 


790 PRINT MIN AUTRE FSSAI" 3: INPUT J$:1F LEFTÉ(2$,1)="N" THEN 1220 
760 SOU 1100 

770 GOSUR 1n70 

790 PPINT:PPRINT:GOTN 340 


























790 PRIAT 

5 PRINT CHR$(26) Ann F=0 
100 PRINT TAB(21)3"RENCONTRES AERIENNES" GUN AZIRT(PAN(T)#5)+1:C27-Y4A 
110 PRINT TAB(20);"CREATIVE COMPUTING" 920 M2=1200n 
120 PRINT TAB(18);"MORRISTOWN, NEW JERSEY" 930 PRINT CHP£(26 KILOHCTRES","VITESSI “,"LATITUDE", "TRAJECTOIRE" 
130 COSUB 1100 San PRINT "- 
140 PRINT:PRINT 150 Pax41 
150 PRINT "VOUS ETES SITUE AU POINT DE COORDONNEES (0,0).UN OVNI" PGN PRINT USING "£L,LEE.L  SEL,SEE £££ £££ ££"; 
160 PRINT "SE DIRIGE DROIT VERS VOUS" EX V2, 0 
170 PRINT AN C=7-Y 
180 PRINT "AU PREMIER CONTACT,LA TRAJECTOIRE DE L'OVNI EST DONNEE PAR"Y"DEGRES "3 RAN X=X4TAT(PND(1)#5000)42000:Ha2H-X/60 
190 PRINT "LONGITUNE" R90 Y=Y-INT(RND(1)#10):Z2Z-INT(RND(1)#10):C27-Y+A°2 
200 PRINT "ET"Z"DEGRES LATITUDE." 9N0 IF X-P>S700 THEN FaF+l 
210 PRINT "(IL TOMBE A LA VITESSE OF"X"KILOMETRES/PAR HEURE)" 910 1F PDO THEN 8SN 
215 PRINT 920 PPINT 
220 PRINT "VOUS AVEZ LE CHOIX SUIVANT: " 930 PRINT Mn IMPACT = A = "32PRINT USING "£L,LEE";X 3e 
230 PRINT "A)VOUS POUVEZ TENTER DE LE DESINTEGRER.OU BIEN" PRINT = KILOMETRFS = PAP -HEURC 
240 PRINT "B)VOUS ATTENDEZ,EN ESPERANT QUE LE FROTTEMENT DE L'AIR" à 940 IF F<22 TIEN 980 
250 PINT " FERA DEVIER LA TRAJECTOIRE DE L'OVNI,CE DERNIER " 959 PRINT "JOLI TRAVAIL.LE FROTIEMENT DE"3F3;CHR$(8);"% A PRAVOQUE UNE DEVIATION DE" 
260 PRINT "  MANQUERA AINSI SA CIBLE 960 PRINT "LA TPAJECINIRE DFE L'OVNI. LES CONRNONNEES DE L'IMPACT SONT" 
270 PRINT "AUF DECIDEZ-VOUS (A OÙ B)"; 970 POINT MMAIATENANT ("F", "O-F"). VOUS L'AVEZ EUI":GOTN 1020 
290 IF LEFT$(D$,1)="B" THEN 790 9nN PRINT 2-LT = CENTRE = NF = CONTROLE = À = L'ECOUTF = DES = TRAJECTOIRES - ";Aÿ"s"A45" 
300 PRINT CHR$(26);"ESSAYEZ DF DESINTEGRER L'OVNI AVANT QU'IL NE" 990 PFINT VIENT D'ORSERVER L'EXPLOSION AU POINT DE COORDONNEES ("N-F", 0). " 
310 PRINT "SE RAPPROCHE TROP PRES DE VOUS.SI LA" 1NNQ A=(A+2)*A 
320 PRINT "VITESSE" 1010 PRINT "LA DESTRUCTION A ETC CONSTATEE"A"3"KILONMETRES . AUCUN SURVIVANT. "PRINT 
330 PRINT “ DE L'OVNI DEPASSE"H"K.P.H,, VOS MISSILES SONT SANS EFFETI" 1020 INPUT MIN AUTRE FSSAI"; 95 
340 PRINT "--VOTRE OEIL ELECTRONIQUE INDIQUE QUE VOUS AVEZ "M"MINUTES POUR DE TRUIRE 1930 IF LFFTE(J€,1)2"N" THEN 1220 
350 PRINT "AVANT QU'IL NE SOIT TROP PRES DE VOUS. ":PRINT CET OVNI" 1040 GOSUR 1100 
360 C=Z-Y4+I-INT(RND(1)#4)+#1 1nsa GnstR 11070 
370 PRINT "--L'ORDINATEUR INDIQUE EN PREMIERE MESURE UNE TRAJECTOIRE APPROXIMATIVE 1N6N PRINT:PPINT:GOTO 300 
380 PRINT DE."3C4#F 1070 IAPUT "CHOIX (A NU R)";D€ 
390 PRINT "FNIPREZ UNF TRAJECTOIRE DANS LE TARLEAU CI-DESSOUS :":PRINT LOAN IF LEFTE(D£,1)="P" THEN 790 
40N PRINT 1090 RETURN 
410 PRINT "TEMPS", "VITESSE", "LONGITUDE", "LATITUDE", "TRAJECTOIRE" 1100 J2INT(RNN(1)#20)4#1:V=INT(PAD(1)#400)+200:F=INT(RAN(1)#5)+1 
412 PRINT "= M Mennnnnn 0 DALIEERNERRE " 1110 X2INT(PNN(1)#5000)+2001 :HzX+8000:Q2 INT (RND(1)#5)+1 
420 FOR T=0 10 5 STEP .5 1120 Z=INT(RND(1)#14nN):IF Z<100 THEN 1120 
430 PRINT USING "££.£ £,£E££.£ £££ £E£ MT, X,Y,Z3t 1130 Y=INT(PAN(1)#60):1F Y<4N THEN 1130 

PRINT "3 INPUT A 1140 IF X>=23000 THEN 1161 
&GN IF T2INT(T) AND TH THEN 620 1150 H25:0010 121N 
450 IF X<zH THEN 490 1160 IF X>23700 TIEN 1180 
460 PRINT "DESOLE-LA VITESSE DE L'OVNI A DEPASSE ";:PRINT USING "££,£££";H3;: 1170 H2=4:G0T0 1210 

PRINT " K.P.H." 11A0 IF X>=4700 THEN 1200 
470 PRINT "SA VITESSE EST TROP GRANDE POUR QUE VOUS PUISSIEZ LE DETECTERI" 1190 123:GNT0 1210 
480 PRINT "DONC, VOUS ETES PERDU! ":PRINT:GOT0 750 1200 H22 
490 IF A=C TIEN 720 1210 RETURN 
500 IF AD10 THEN 550 1220 ENO 
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olumn (Colonne) 


Ce programme est la version pour 
ordinateur d'un ancien tour de cartes, qui 
n'a jamais cessé d’enthousiasmer les 
non-initiés. Le donneur, ou magicien, 
prend vingt et une cartes au hasard, en 
fait trois tas de sept cartes chacun. Vous 
lui indiquez ensuite la colonne (ou pile) qui 
contient votre carte. |l rassemble alors les 
colonnes de droite à gauche, en plaçant 
celle de droite au-dessus, et distribue à 
nouveau le jeu horizontalement; la 
seconde carte de la colonne de droite 
devient la première carte de la colonne du 
milieu; la troisième carte de la colonne de 
droite devient la première de la troisième 
colonne, etc... Après que le magicien ait 
réparti les cartes de cette façon, vous lui 
indiquez à nouveau la colonne où se 
trouve votre carte. Alors il retournera les 
cartes une à une et désignera la vôtre dès 
son apparition. Ne me demandez pas 
comment il procède ! Peut-être le décou- 
vrirez-vous dans le programme; en tout 
cas « cela marche à tous les coups ». 

Ce programme a été écrit par Alan 
Barnes. 
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RUN 


COLONNE 
CREATIVE COMPUTING 
MORRISTOWN, NEW JERSEY 


CE PROGRAMME VA VOUS MONTRER UN TOUR DE CARTE.APRES LA PREMIERE 

DONNE ,TIREZ UNE CARTE ET TAPEZ LE NUMERO DE LA COLONNE QUI LA CONTIENT. 
LE DONNEUR VA ENSUITE RAMASSER LES CARTES ,UNE COLONNE À LA FOIS, - 
ET LES ALLONGER À NOUVEAU HORIZONTALEMENT.A CHAQUE FOIS QU'IL A 
FINI,TAPEZ LE NUMERO DE LA NOUVELLE QUI CONTIENT VOTRE 

CARTE.APRES LA DERNIERE DONNE,LE DONNEUR RETOURNERA LES 

CARTES ,UNE PAR UNE, JUSQU'A CE QU'IL ATTEIGNE LA CARTE 

QUE VOUS AVEZ TIREE. 


5 DE CARREAU 5 DE COEUR 6 DE CARREAU 
8 DE TREFLE 2 DE COEUR ROI DE PIQUE 

8 DE PIQUE 6 DE TREFLE VALET DE COEUR 
REINE DE TREFLE AS DE PIQUE 2 DE CARREAU 
VALET DE TREFLE VALET DE PIQUE 2 DE TREFLE 

10 DE TREFLE 9 DE CARREAU ROI DE TREFLE 
REINE DE COEUR REINE DE CARREAU REINE DE PIQUE 


QUELLE EST LA COLONNE QUI CONTIENT VOTRE CARTE ?? 3 


5 DE COEUR 2 DE COEUR 6 DE TREFLE 
AS DE PIQUE VALET DE PIQUE 9 DE CARREAU 
REINE DE CARREAU 6 DE CARREAU ROI DE PIQUE 
VALET DE COEUR 2 DE CARREAU 2 DE TREFLE 
ROI DE TREFLE REINE DE PIQUE 5 DE CARREAU 

8 DE TREFLE 8 DE PIQUE REINE DE TREFLE 


VALET DE TREFLE 10 DE TREFLE REINE DE COEUR 


QUELLE EST LA COLONNE QUI CONTIENT VOTRE CARTE ?? 2 


5 DE COEUR AS DE PIQUE REINE DE CARREAU 
VALET DE COEUR ROI DE TREFLE 8 DE TREFLE 
VALET DE TREFLE 2 DE COEUR VALET DE PIQUE 

6 DE CARREAU 2 DE CARREAU REINE DE PIQUE 

8 DE PIQUE 10 DE TREFLE 6 DE TREFLE 

9 DE CARREAU ROI DE PIQUE 2 DE TREFLE 

5 DE CARREAU REINE DE TREFLE REINE DE COEUR 


QUELLE EST LA COLONNE QUI CONTIENT VOTRE CARTE ?? 3 


AS DE PIQUE 
ROI DE TREFLE 

2 DE COEUR 

2 DE CARREAU 
10 DE TREFLE 
ROI DE PIQUE 
REINE DE TREFLE 
REINE DE CARREAU 
8 DE TREFLE 
VALET DE PIQUE 
REINE DE PIQUE 
6 DE TREFLE 

2 DE TREFLE 
REINE DE COEUR 
5 DE COEUR 
VALET DE COEUR 
VALET DE TREFLE 


OUAISII1 VOTRE CARTE EST : 
REINE DE PIQUE. 


VOULEZ VOUS LE REVOIR? NON 


10 PRINT CHR$(26) 

100 PRINT TAB(26) ;"COLNNNE 

119 PRINT TAR(20); "CREATIVE COMPUTING" 

120 PRINT TAB(18);"MORRISTOWN, NEW JERSEY" 

130 PRINT:PRINT 

140 PRINT "CE PROGRAMME VA VOUS MONTRER UN TOUR DE CARTE.APRES LA PREMIERE" 
150 PRINT "DONNE,TIREZ UNE CARTE ET TAPEZ LE NUMERO DE LA COLONNE QUI LA CONTIENT." 
169 PRINT "LE DONNEUR VA ENSUITE RAMASSER LES CARTES,UNE COLONNE A LA FOIS," 
170 PRINT "ET LES ALLONGEP A NOUVEAU HORIZONTALEMENT.A CHAQUE FOIS QU'IL A" 
180 PRINT "FINI, TAPEZ LE NUMERO DE LA NOUVELLE QUI CONTIENT VOTRE" 
190 PRINT "CARTE.APRES LA DERNIERE DONNE ,LE DONNEUR RETOURNERA LES" 
200 PRINT "CARTES,UNE PAR UNE, JUSQU'A CE QU'IL ATTEIGNE LA CARTE" 
205 PPIAT "QUE VOUS AVEZ TIREC." 

210 PRINT:PRINT 

220 DIM A(21),8(21) 

230 FOR X=1 T0 21 

240 J=0 

250 T=INT(52*(RAD(1))) 

270 FOP Yzl TO X-1 

280 IF A(Y)aT THEN 250 

290 NEXT Y 

309 A(X)2T 

310 NEXT X 

320 Nan 

330 FOP Iz1 19 3 

340 FOR 7z1 T0 21 

350 IF A(Z)=4*(INT(A(Z)/4)) THEN 470 

360 IF A(Z)-2=4#(INT(A(Z)/4)) THEN 440 

370 IF A(7)-3=4#(INT(A(Z)/4)) THEN 410 

300 C$="PIQUE S" 

399 D£="" 

400 COTON 490 

410 C$="COENRS" 

420 Df="" 

430 GNTN 490 

&4Q C$="TREFLES" 

a5a.n£=u" 

460 GNTN 490 

470 CS="CARREAUX" 

480 D6="DS" 

49N N=N+l 

500 IF N © 4 THEN 530 

510 PRINT 

520 N=1 

530 IF A(Z) > 35 THEN 580 

540 PRINT TAPC(N-1)#25);INT(A(Z)/4)+423"0F "3C$5D$; 

550 IF J=5 THEN 900 

560 IF J=10 THEN 980 

570 GANTO 710 

580 IF INT(A(Z)/4)29 THFN 670 

590 IF INT(A(Z)/4)=10 THFN 650 

600 IF INT(A(Z)/4)=11 THEN 630 

610 AS="VALET" 

620 GNTO 680 

630 AS="REINE" 

64n GOTN 6AN 

650 A$="ROI" 

660 GNTO 680 

670 A$="AS" 

680 PRINT TAB((N-1)#25);A$;" DE "3C£3D$; 

690 IF J=5 THEN 900 

700 IF J=10 THEN 980 

710 NEXT Z 

720 PRINT:PRINT 

730 PRINT "QUELLE CST LA COLONNE QUI CONTIENT VOTRE CARTE ?"; 
740 INPUT K 

750 IF K<1 DR K > 3 THEN PRINT:PRINT "(1-3)":GOTO 730 

760 PPINT:PRINT 

770 21 

780 S=K+2-3#INT((K+1)/3) 

790 GOSUB 940 

800 S=K 

819 GNSUR 940 

820 S=K+1-3*INT(K/3) 


‘e IT LL CL IÈLL 
830 GOSUB 940 DLL Les ee 


840 FOR C=1 T0 21 

850 A(C)=B(C) 

860 NEXT C 

870 NEXT I 

880 J=5 

890 FOR Z=1 TO 11+INT(IO#*RND(1)+1):N=0:GOTO 350 
900 PRINT:NEXT Z:PRINT 

910 PRINT "OUAISII! VOTRE CARTE EST : "3 
920 N=1 

930 J=10:Z=11:GO0T0 350 

940 FOR R=S T0 S+18 STEP 3 

950 B(T)=A(R) 


960 T=T+1 
970 NEXT R:RETURN 
980 PRINT ".":PRINT 





990 PRINT “VOULEZ VOUS LA REVOIR";:INPUT T$ 
1000 IF LEFT$(T$,1)="O" THEN PRINT:PRINT:GOTO 230 
1010 END 
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Concentration 





Ce jeu de cartes d'enfants conçu pour un 
nombre quelconque de joueurs est aussi 
appelé « casse-tête chinois ». Il est facile 
d'y participer. Ce jeu est un excellent test 
pour votre mémoire et votre sens de 
l'observation. Cette version informatisée 
diffère du vrai jeu car elle ne fait participer 
qu'un seul joueur. Dans le jeu normal, un 
des joueurs bat les cartes et les étale sur 
le tapis, en cachant la face significative, et 
en prenant garde qu'aucune carte ne 
touche l'autre. Chaque joueur essaye de 
constituer des paires : 2 rois, 2 dix. Le 
premier retourne deux cartes au hasard et 
les montre à ses adversaires. Si ces deux 
cartes sont de même rang, par exemple : 
deux as ou deux dames, il les garde et a le CONCENTRATION 
droit de retourner deux autres cartes. I] 
continue jusqu'à ce qu'il retourne deux 
cartes qui ne sont pas semblables. Ces 
cartes sont alors remises face contre 


CREATIVE COMPUTING MORRISTOWN NEW JERSEY 


PREMIERE CARTE? 1 


tapis, à leur position précédant le tirage. SECONDE CARTE? 2 

C'est alors le tour du second joueur. PARRRANANEENERRRANRENNEENEENNN 
Celui-ci retourne une carte. Si elle est de 

même rang qu'une carte précédemment PREMIERE CARTE? 13 
retournée, il doit essayer de la retrouver SECONDE CARTE? 2 


: : EXNANENENSENNNSNANENENNANANNUN 
parmi les cartes qui. sont encore sur le 


tapis. En cas de réussite, il ramasse la 


paire ainsi constituée. Il continue jusqu'à PREMIERE CARTE? 53 

ce qu'il retourne deux cartes de rangs dif- IL N'Y À QUE 52 CARTES DANS LE JEU,ET NON PAS 53. 
férents. Le jeu continue jusqu’à ce que PRÉNRRE CARTER SE 

toutes les cartes aient été ramassées. Le BCOONNO DORA RER NOOOOOOOUE 


gagnant est celui qui a le plus de paires de 


cartes à la fin du jeu. PREMIERE CARTE? 2 


Dans cette version informatisée, les ne Ë 
cartes sont numérotées de 1 à 52 sur la VOTRE SCORE EST MAINTENANT 1. VOUS AVEZ TIRE 4 FOIS. 
face cachée. Lorsque vous retournez ARE CRÈTE? À 
deux cartes leur rang s'inscrit sur le SECONDE CARTE? 49 

, . UEL MATCH --RET 

terminal. Si elles ne sont pas semblables, VOTRE SCORE EST MAINTENANT 2. VOUS AVEZ TIRE 5 FOIS. 
leur rang est effacé, et une succession de D Pur EEE 
caractères quelconques apparaît. Cette SECONDE CARTE? 29 
situation est analogue à celle qui consiste a M RAA ARE AAA AAAR 
à replacer les cartes face contre table. De 
plus, dans cette version, il n'y a qu'un PREMIERE CARTE? 26 
joueur qui essaie de former 26 paires SECONDE CARTE 31 


, . EXRALESEEÉENENSNRNNERNNARENNENX 
dans un nombre d'essais record. 


C'est un jeu amusant sur un terminal 


CRT. Vous pouvez chercher à le modifier PREMIERE CARTE? 43 
, : SECONDE CARTE? 48 
pour faire jouer deux personnes ou plus. CDPEDDE D LUC DLL DELLE LR CODE LEE 


5 P 
10 
15 
20 
30 
40 
50 
200 
210 
220 
230 
240 
250 
260 
270 
275 
280 
290 
300 
340 
350 
360 
370 
372 
374 
376 
380 
390 
400 
410 
412 
413 
416 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 


RINT CHR$(26) 

PRINT TAB(25) ;"CONCENTRATION" 
PRINT 

PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN NEW JERSEY" 
PRINT 
PRINT 

PRINT 

DIM C$(52) 

FOR X=1 T0 52 

READ E$ 

C$(X)=ES$ 

NEXT X 

REM --  MELANGE ET DONNE 
FOR Z=1 T0 51 

K$=c$(Z) 
L=INT((53-Z)#*RND(1)+1) 
C$(Z)=C$(L+Z-1) 

C$(L)=K$ 

NEXT 7 

REM -- DEBUT DU JEU 

FOR N=1 TO 26 

PRINT:PRINT "PREMIERE CARTE"; 
INPUT U 

IF U > O AND U € 53 THEN 380 


PRINT "IL N'Y A QUE 52 CARTES DANS LE JEU,ET NON PAS";U;CHR$(8);"." 
GOTO 360 

LET G=1 

1F C$(U)=" " THEN 840 

PRINT "SECONDE CARTE"; 

INPUT W 

IF W > O AND W <53 THEN 420 

PRINT "IL N'Y A QUE 52 CARTES DANS LE JEU,ET NON PAS";W;CHR$(B);"." 
GOTO 400 

LET Gz=2 

IF C$(W)=" " THEN 840 

IF U <> W THEN 470 


PRINT "VOUS NE POUVEZ PAS TIRER DEUX FOIS LA MEME CARTE!" 
GOTO 400 
IF MID$(C$(U),1,1)=MID$(C$(W),1,1) THEN 580 


PRINT MEMSU3"EST "3C$CU) ,"E"W3"EST CSC), 

FOR I=1 TO 50 

PRINT; 

NEXT I 

GOSUB 10000:PRINT CHR$(13) ; "HHHHHHHHHHHHHHHHHHHHHHHHHHHHHH!! ; : GOSUB 20000 


PRINT CHR$(13);"IILIIIIIIIIIIIIILIIIIILIIIIIII";:GOSUB 20000 
PRINT CHR$(13) ;""XXXXXXXXXXXXXXXXXXXXXXIIOOXNXX 
PRINT 


560 PRINT 

570 GOTO 630 

580 PRINT "QUEL MATCH --";C$(U) ,C$(W) 

590 LET C$(U)=" " 

600 LET C$(w)=" " 

610 LET S25+1 

620 PRINT "VOTRE SCORE EST MAINTENANT";S;CHR$(8);". VOUS AVEZ TIRE"3;N; "FOIS." 
630 NEXT N 

640 REM -- LES RESULTATS 

650 LET S1=5/(N/4) 

660 PRINT "VOUS AVEZ MARQUE" ;S3;"SUR"3;N;CHR$(8);". C'EST "; 

670 ON S1+1.5 GOTO 680,700,720,760 

680 PRINT "FAIBLE." 

690 GOTO 770 

700 PRINT "BEAU." 

710 GOTO 770 

720 PRINT "BON." 

730 GOTO 770 

740 PRINT "EXCELLENT ! ! 1" 

750 GOTO 770 

760 PRINT ". . . AAAH . . . OUH....TU DOIS AVOIR TRICHE!" 

770 PRINT 

780 PRINT "VEUX TU REJOUER"; 

790 INPUT Z$ 

800 1F LEFT$(Z$,1)="0" THEN 260 

810 PRINT 

820 PRINT "REVIENS! 1" 

830 END 

840 PRINT "VOUS AVEZ DEJA APPARIE CETTE CARTE." 

850 IF G=1 THEN 360 

860 GOTO 400 

870 DATA “AP ,"2P","3pa Mgpu "Spa Méps,n7pn,MBp,M9pu,M1DP" MVP "REP" 
875 DATA "ROP" 

880 DATA "ACO","2C0","3C0","4C0","5C0","6C0", "700", "BCU", "900", "1UCO", "VCO" , "REC 
0" 

885 DATA "ROICO" 

890 DATA “ACA","2CA","3CA", "4CA", "SCA ,M6CA","7CA","BCA","9CA" ,"LOCA, "VCAM "REC 
an 

895 DATA "ROICA" 

900 DATA "AT" ,"2T" MST" MT" MS TM MT" M7 TM M BT" "OT" "LOT" M VTM,MRET" 
905 DATA "ROT" 

910 END 

10000 FOR XX=1 10 4000:NEXT 

10010 RE TURN 

20000 FOR YY=1 10 2000:NEXT 

20010 RETURN 
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Condot (Petits carrés) 





Vous avez peut-être joué à ce jeu que 
tous les enfants connaissent. Le principe 
est de relier des points en vue de 
matérialiser le plus grand nombre de 
carrés possible. Le joueur qui relie les 
deux points qui permettent de terminer un 
carré se l’approprie. Après cette victoire, il 
a le droit de rejouer, ce qui peut lui 
permettre de cumuler les victoires dans 
certains cas. Une grille prévue pour 
9 carrés servira de support de jeu. 

Voici un exemplaire de grille avec les 
coordonnées qu'il faut citer pour relier 
2 points. 


(1,2) (1,4) (1,6) 

(2,1) (2,3) (2,5) (2,7) 
(3,2) (3,4) (3,6) 

(4,1) (4,3) (4,5) (4,7) 
(5,2) (5,4) (5,6) 

(6,1) (6,3) (6,5) (6,7) 
(7,2) (7,4) (7,6) 


Vous pourrez remarquer combien l'ordi- 
nateur enregistre vite le déplacement de 
son adversaire. Vous trouverez peut-être 
que le jeu évolue plutôt lentement, surtout 
pour les 3 ou 4 premiers déplacements. 
Mais ne vous impatientez pas car, une 
fois que les carrés commencent à se 
matérialiser, le jeu se conclue rapidement. 

L'expérience acquise au cours des 
premières parties vous incitera peut-être à 
modifier quelque peu ce programme. 
Nous pouvons vous suggérer ces 
quelques modifications; faire en sorte : 


1. de visualiser la grille après que les 
2 joueurs aient décidé de leur déplace- 
ment (et non à chaque déplacement 
effectué); 

2. de conclure le jeu dès qu'un des 
joueurs s'est approprié la majorité des 
carrés; 

3. d'inscrire les initiales d’un joueur dans 
le carré qu'il vient de s'approprier. 


Ce programme a été conçu par Chuck 
Lund et rédigé par Pete Olivieri. Il parut 
pour la première fois dans Creative 
Computing, janv.-févr. 1976. 


PETITS CARRES 


CREATIVE COMPUTING 
MORRISTOWN, NEW JERSEY 


CE PROGRAMME JOUERA AUX PETITS CARRES AVEC VOUS. 
LE JEU S'EFFECTUERA SUR UN TABLEAU 4 X 4.LORSQUE 
VOUS VOULEZ VOUS DEPLACER, VOUS N'AVEZ QU'A TAPER 
LES COORDONNEES DE L'ESPACE ENTRE LES DEUX POINTS QUE 
VOUS VOULEZ RELIER.INDIQUEZ CHACUN DE VOS DEPLACEMENTS 


EN TAPANT LE NUMERO DE LA LIGNE,UNE VIRGULE ET CELUI DE LA COLONNE. 


LE COIN EN HAUT,A GAUCHE DU TABLEAU EST LE 1,1. 
ALLONS-Y. 


VOTRE DEPLACEMENT? 1,1 
VOUS NE VOULEZ QUAND MEME PAS METTRE UNE LIGNE ICIIIII 


VOTRE DEPLACEMENT? 1,2 


MON DEPLACEMENT 


VOTRE DEPLACEMENT? 7,5 
VOUS NE VOULEZ QUAND MEME PAS METTRE UNE LIGNE ICIIIII 


VOTRE DEPLACEMENT? 7,4 


MON DEPLACFEMENT 


VOTRE DEPLACEMENT? 1,6 


36 


MON DEPLACEMENT 


VOTRE DEPLACEMENT? 2,1 


MON DEPLACEMENT 


MON DEPLACEMENT 


VOTRE DEPLACEMENT? 


VOTRE DEPLACEMENT? 


A+ 4. 4 


Li 
A 
« 


MON DEPLACEMENT 


MON DEPLACEMENT 


4,3 
D « 
q . 
. Li 
Li . 
: { 
« . 
: u q 
- à : 
: { 
« Li 5 
. : { 
« 


VOTRE DEPLACEMENT? 


VOTRE DEPLACEMENT? 5,4 


A. 


A. 


VOUS 


1 PRINT 
2 PRINT 
3 PRINT 
à PRINT 
5 PRINT 
6 PRINT 
7 PRINT 
8 PRINT 
9 PRINT 


A 
+ A4. 4. 


A+ A: 


4, € 


A 


T € 


H 


al 


MON DEPLACEMENT 


A 
q 


4. 4: 


A CORRE EE 


A: 


A 


VOTRE DEPLACEMENT? 2,1 


NE VOULEZ QUAND MEME PAS METTRE UNE LIGNE ICIIIII 


CHR$(26) ;TAB(26) ; "PETITS CARRES":PRINT 
TAB(20) ; "CREATIVE COMPUTING" 
TAB(18) ;"MORRISTOWN, NEW JERSEY":PRINT 


"CE PROGRAMME JOUERA AUX PETITS CARRES AVEC VOUS 
"LE JEU S'EFFECTUERA SUR UN TABLEAU 4 X &.LORSQU 





"VOUS VOULEZ VOUS DEPLACER,VOUS N'AVEZ QU'A TAPER" 


"LES COORDONNEES DE L'ESPACE ENTRE LES DEUX POINTS QUE" 


10 PRINT "VOUS VOULEZ RELIER.INDIQUEZ CHACUN DE VOS DEPLACEMENTS" 


11 PRINT "EN TAPANT LE NUMERO DE LA LIGNE ,UNE VIRGULE ET CELUI DE LA COLONNE." 


12 PRINT "LE COIN EN HAUT,A GAUCHE DU TABLEAU EST LE 1,1." 


13 PRINT 
14 PRINT 
20 DIM A 
30 V=0 

40 FOR R 
50 FOR C 
60 IF R/ 
70 IF C/ 
80 ACR,C 
90 GOTO 

100 A(R, 
110 NEXT 
120 NEXT 
130 IF V 
200 GOSU 
210 PRIN 
220 INPU 


"ALLONS-Y." 
(12,12) 


=1 TO 12 
=1 T0 12 
2=INT(R/2) THEN 100 
2 = INT(C/2) THEN 100 
)=-50 

110 

C)=0 

C 

R 
=1 THEN 200 

B 1000 

T:PRINT "VOTRE DEPLACEMENT"; 
TX,Y 


225 PRINT CHR$(26) 


230 IF X 


=INT(X) THEN 260 


240 PRINT "VOUS NE VOULEZ QUAND MEME PAS METTRE UNE LIGNE ICI!II" 
250 GOTO 210 


260 IF ( 


X-1)*(X-7) > O THEN 240 


265 X=X+2 


270 IF ( 


Y-1)*(Y-7) > O THEN 240 


272 Y=Y+2 


280 IF ( 


X4Y+1)/2 © INT((X+Y+1)/2) THEN 240 


290 IF A(X,Y) <> O THEN 240 


300 A(X, 
310 IF X 


320 IF A(X-2,Y)+A(X-1,Y+1)+A(X-1,Y-1) ©> 150 THEN 


330 P=1 


Y)=50 
/2 =INT(X/2) THEN 380 


340 A(X-1,Y)=1 


350 IF A(X+2,Y)+A(X+1,Y+1)+A(X+1,Y-1) <> 150 THEN 


360 A(X+1,Y)=1 
370 GOTO 200 


380 IF A(X,Y-2)+A(X+1,Y-1)+A(X-1,Y-1) ©> 150 THEN 


390 A(X, 
400 P=1 


410 IF A(X,Y+2)+A(X+1,Y+1)+A(X-1,Y+1) <> 150 THEN 


420 A(X, 


Y-1)=1 


Y+1)=1 


430 GOTO 200 

440 IF P=1 THEN 200 

450 GOSUB 1000 

460 PRINT:PRINT "MON DEPLACEMENT" 


470 FOR 
480 FOR 


490 IF A(R-1,C)+A(R+1,C)+A(R,C-1)+A(R,C+1) <> 150 


R=4 TO 10 STEP 2 
C=4 TO 10 STEP 2 


500 A(R,C)=-1 
510 IF A(R-1,C) <> O THEN 550 
520 A(R-1,C)250 


530 IF A(R-3,C)+A(R-2,C-1)+A(R-2,C+1) <> 150 THEN 


540 LET 


ACR-2,C)=-1 


550 IF A(R+1,C) <> O THEN 590 
560 A(R+1,C)=50 


570 IF A(R+3,C)+A(R+2,C-1)+A(R+2,C+1) <> 150 THEN 


580 A(R+2,C)=-1 

590 IF A(R,C-1) <> O THEN 630 

600 A(R,C-1)=50 

610 IF A(R,C-3)+A(R-1,C-2)+A(R+1,C+2) ©> 150 
620 A(CR,C-2)=-1 

630 IF A(R,C+1) <> O THEN 450 


350 


440 


410 


440 


THEN 680 


450 


450 


THEN 450 
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VOTRE DEPLACEMENT? 3,2 


H 4 H «4 LU 
Tr. CT LI 
E « 


VOTRE DEPLACEMENT? 5,2 
T OH TH 9 «4 
T H 4 C «4 « 

T _ Li 
VOTRE DEPLACEMENT? 6,3 
TH 4 H 9 «4 
T H 4 C «a « 

T H _ « 


640 A(R,C+1)=50 


VOTRE DEPLACEMENT? 6,5 
TH TH 4 «4 
TH 1 C «4 Lt 
T H 9 H 4 Lt 

VOTRE DEPLACEMENT? 5,6 
T OH 4 H 4 4 
T H 4 C 4 « 
TH 9 H 9 H 

VOTRE DEPLACEMENT? 3,6 
TH T1 H 4 H «4 
TH 1 € 4 H 4 
TH 1 H 4 KH «4 

VOUS AVEZ GAGNEITI 


VOULEZ VOUS RECOMMENCER? NON 


650 IF A(R,C+3)+A(R-1,C+2)+A(R+1,C+2) ©> 150 THEN 450 


660 A(R,C+2)=-1 

670 GOTO 450 

680 NEXT C 

690 NEXT R 

692 IF E > 1 THEN 730 

700 IF A(12-X,12-Y)C0 THEN 730 
710 A(12-X,12-Y)250 

712 IF E > 1 THEN 870 

720 GOTO 200 

730 FOR R=3 TO 9 

740 FOR C=3 T0 9 

750 IF (R+C)/2=INT((R+C)/2) THEN 850 
760 IF A(R,C) <> O THEN 850 

780 IF R/2 = INT(R/2) THEN 830 


790 IF A(R-2,C)#A(R-1,C-1)+A(R-1,C+1) = 100 THEN 850 
800 IF A(R+2,C)+A(R+1,C-1)+A(R+1,C+1) =100 THEN 850 


810 A(R,C)=50 
820 GOTO 200 


830 IF ACR,C-2)+A(R-1,C-1)+A(R+1,C-1)=100 THEN 850 
840 IF A(R,C+2)+A(R-1,C+2)+A(R+1,C+1) <> 100 THEN 810 


850 NEXT C 

860 NEXT R 

862 IF E > 1 THEN 700 

870 R=INT(RND(1)*7)+3 

880 C=INT(RND(1)#7)+3 

881 IF R/2=INT(R/2) THEN 885 
882 IF C/2=INT(C/2) THEN 900 
883 GOTO 870 

885 IF C/2 <> INT(C/2) THEN 900 
886 GOTO 870 

900 1F A(R,C)<> O THEN 870 

910 A(R,C)=50 

920 GOTO 200 

930 PRINT "VOULEZ VOUS RECOMMENCER"'; 
940 INPUT B$ 

950 IF LEFT$(B$,1)="0" THEN 40 
960 RUN "MENU" 

1000 P=0 

1010 0=0 

1020 E=0 

1030 FOR R2=3 TO 9 

1040 FOR C=3 T0 9 

1050 1F A(R,C) <> O THEN 1080 
1060 PRINT "  "; 

1070 GOTO 1240 

1080 IF A(R,C) <> -50 THEN 1110 
1090 PRINT " . "; 

1100 GOTO 1240 

1110 IF A(R,C) <> -1 THEN 1140 
1120 PRINT "CC"; 

1130 GOTO 1170 

1140 IF A(R,C) ©> 1 THEN 1200 
1150 PRINT "H"; 

1170 D=D+A(R,C) 

1180 E=E+1 

1190 GOTO 1240 

1200 IF R/2 = INT(R/2) THEN 1230 
1210 PRINT " _"; 

1220 GOTO 1240 

1230 PRINT " ù ; 

1240 NEXT C 

1245 PRINT 

1250 NEXT R 

1260 IF E >=9 THEN 1280 

1270 RETURN 

1280 IF D > O THEN 1310 

1290 PRINT "J'AI GAGNE" 

1300 GOTO 930 

1310 PRINT "VOUS AVEZ GAGNEI 1!" 
1320 GOTO 930 

1400 END 


Convoy (Convoi) 


CONVOI 


CREATIVE COMPUTING, MORRISTOWN, NEW JERSEY 


INSTRUCTIONS? OUI 


CE JEU DE BATAILLE NAVALE SE JOUE SUR UNE MATRICE 1 -1 . 

VOUS ETES UN SOUS-MARIN; L'ORDINATEUR EST UN CARGO ET SES DEUX 
DEUX DESTROYERS.LE BATEAU PART DE LA CASE 1 ET SE DEPLACE 
AU HASARD VERS LA CASE 1,SE DEPLACANT DE ,1,2,OU 3 CASES A 
LA FOIS.UN DES DESTROYERS PART DE LA CASE 78 ET SE DEPLACE 

AU HASARD DE ,1,2 OU 3 CASES À LA FOIS,A LA RECHERCHE DU 
SOUS-MARIN;L'AUTRE DESTROYER RESTE À UNE CASE DU BATEAU EN 
ESCORTE.LE SOUS-MARIN PART DE LA CASE 12,PEUT MONTER, 
DESCENDRE, ALLER À GAUCHE OU À DROITE D'UNE CASE À LA FOIS, 

ET SE DEPLACER 2 FOIS PAR TOUR;IL À DES TORPILLES QU'IL 

PEUT LANCER UNE PAR UNE, SUIVANT TOUTE DROITE.APRES CHAQUE 
DEPLACEMENT DU SOUS-MARIN,LE PERISCOPE PEUT RECHERCHER DANS 
CHAQUE CASE ADJACENTE LE BATEAU.DES RAPPORTS DF RECONNAISANCE 
AU HASARD SERONT FAITS. 


LE DEROULEMENT DU JEU EST LE SUIVANT: 


- LE BATEAU ET LES DESTROYERS SE DEPLACENT 
— VOUS VOUS NEPLACEZ 

- VOUS POUVEZ LANCER UNE TORPILLE 

LE PERISCOPE RECHERCHE 

- VOUS VOUS DEPLACEZ A NOUVEAU 

- RETOUR AU 1 


aunpunr 
0 


ENTREZ "RETURN' POUR CONTINUER. 


LE SOUS-MARIN GAGNE SI VOUS REUSSISSEZ À TOUCHER LE BATEAU 
AVEC 4 TORPILLES,SANS ALLER DANS UNE CASE OCCUPEE PAR UN 
DESTROYER. 


A LA QUESTION 'FEU?' REPONDRE: ‘NON','G','D','H','B','GH','GB','DH', OU ‘DB'. 
‘G' = GAUCHE, 'D' = DROITE, ‘'H' = HAUT, 'B' = BAS, ‘GH' = GAUCHE HAUT, 
‘DH' = DROITE HAUT, 'DB' = DROITE BAS. 





VOULEZ VOUS UN TABLEAU? OUI 


1 2 3 4 5 6 7 æ 9 1 
YA 12, 19 14 15.16 17 18 19 2 
21 22 23 24 25 26 27 28 29 3 
31 32. 33 34 35 36 37 38 39 4 
41 42 43 44 45 46 47 48 49 5 
51 52 53 54 55 56 57 58 59 6 
61 62 63 64 65 66 67 68 69 7 
71 72 73 74 75 76 77 78 79 8 
A1 82 83 84 85 86 87 88 89 9 
91 92 93 94 95 96 97 98 99 1 
LE DESTROYER À BOUGE. 
BATEAU DEPLACE. 
LE SOUS-MARIN EST MAINTENANT EN 12. 
DESTROYER DERNIEREMENT VU EN 78. 
DEPLACEMENT DU SOUS-MARIN 
? 13 
DEPLACEMENT DU SOUS-MARIN 
? 14 
SOUS-MARIN EN 14. 
BATEAU DERNIEREMENT VU EN 100. 
DEPLACEMENT DU SOUS-MARIN 
FEU? NON ? 48 
DEPLACEMENT DU SOUS-MARIN 
PERISCOPE LEVE. ? 58 
BATEAU NON EN VUE. BATEAU EN 68. 
ESCORTE TRES PROCHEI 
RECON. INDIQUE BATEAU EN 99. BATEAU DEPLACE. 
LE SOUS-MARIN EST MAINTENANT EN 14. SOUS-MARIN EN 58. 
DESTROYER DERNIEREMENT VU EN 78. BATEAU DERNIEREMENT VU EN 68. 
DEPLACEMENT DU SOUS-MARIN 
? 15 FEU? NON 
DEPLACEMENT DU SOUS-MARIN 
? 16 PERISCOPE LEVE. 
LE DESTROYER À ROUGE. BATEAU EN 68. 
BÉTEAUMREPLACE®S ESCORTE TRES PROCHEI 
LE SOUSSMARINTESTAMATNTENANRRENULEE LE SOUS-MARIN EST MAINTENANT EN 58. 
DESTROYER DERNIEREMENT VU EN 78. DÉSTROY ER DEBNT CREMENT VU (EN 72 
DEPLACEMNENT, DUXÉOUS-URRIN DEPLACEMENT DU SOUS-MARIN ° 
? 17 r< 
DEPLACEMENT DU SOUS-MARIN au SN a 
? 18 RE : 


DESTROYER TRES PROCHE EN 66. 
DEPLACEMENT DU SOUS-MARIN 

2 56 

DESTROYER TRES PROCHE EN 66. 
LE DESTROYER À BOUGE. 

BATEAU DEPLACFE. 


SOUS-MARIN EN 18. 
BATEAU DERNIEREMENT VU EN 99. 


FEU? NON 


PERISCOPE LEVE. 
BATEAU NON EN VUE. 
RECON. AERIENNE INDIQUE DES BOITES DE CONSERVES EN 73. 


LE SOUS-MARIN EST MAINTENANT EN 18. 
DEPLACEMENT DU SOUS-MARIN 

? 28 

DEPLACEMENT DU SOUS-MARIN 

? 38 

LE DESTROYER À BOUGE. 

BATEAU DEPLACE. 


LE SOUS-MARIN EST MAINTENANT EN 38. 
DESTROYER DERNIEREMENT VU EN 73. 
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Ce jeu est une bataille navale qui se 
déroule sur une grille 10 sur 10. Vous êtes 
un sous-marin et l'ordinateur remplit le 
rôle du convoi qui est composé d’un cargo 
et de deux destroyers. L'un des 
destroyers navigue aux côtés du cargo, 
tandis que l’autre recherche le sous-marin 
et essaie de le détruire. Ce dernier 
destroyer peut bouger de zéro à trois 
cases à la fois, à votre recherche. Le 
premier reste à une case du cargo. Le 
sous-marin part de la case 12 et peut 
bouger à gauche, à droite ou en bas, une 
seule case à la fois, avec deux mouve- 
ments par tour. Il détient quatre torpilles 
qu'il peut lancer une à une dans une 
direction rectiligne quelconque, horizonta- 
lement, verticalement, ou suivant une 
diagonale. 

Le jeu est terminé quand le sous-marin 
a détruit le cargo, ou quand l’un des deux 
destroyers a pris le sous-marin. 


70 PRINT CHR$(26) 

80 PRINT TAB(33)"CONVOI":PRINT 

90 PRINT TAB(15)"CREATIVE COMPUTING, MORRISTOWN, NEW JERSEY" 
95 PRINT:PRINT 

100 PRINT "INSTRUCTIONS"; 

110 INPUT B$ 

120 IF LEFT$(B$,1)= 
125 PRINT CHR$(26) 
130 PRINT "CE JEU DE BATAILLE NAVALE SE JOUE SUR UNE MATRICE 10-10." 

140 PRINT "VOUS ETES UN SOUS-MARIN;L'ORDINATEUR EST UN CARGO ET SES bi 
145 PRINT"DEUX DESTROYERS.LE BATEAU PART DE LA CASE 100 ET SE DEPLACE" 
150 PRINT"AU HASARD VERS LA CASE 1,SE DEPLACANT DE 0,1,2,0Ù 3 CASES A" 
155 PRINT"LA FOIS.UN DES DESTROYERS PART DE LA CASE 78 ET SE DEPLACE" 

160 PRINT"AU HASARD DE 0,1,2 OU 3 CASES A LA FOIS,A LA RECHERCHE OÙ " 

165 PRINT"SOUS-MARIN;L'AUTRE DESTROYER RESTE A UNE CASE DU BATEAU EN" 

166 PRINT"ESCORTE.LE SOUS-MARIN PART DE LA CASE 12,PEUT- MONTER," 

167 PRINT"DESCENDRE ,ALLER A GAUCHE OU A DROITE D'UNE CASE A LA FOIS," 

190 PRINT"ET SE DEPLACER 2 FOIS PAR TOUR;IL A DES TORPILLES QU'IL" 

200 PRINT'PEUT LANCER UNE PAR UNE,SUIVANT TOUTE DROITE.APRES CHAQUE" 

210 PRINT"DEPLACEMENT DU SOUS-MARIN,LE PERISCOPE PEUT RECHERCHER DANS" 
220 PRINT"CHAQUE CASE ADJACENTE LE BATEAU.DES RAPPORTS DE RECONNAISANCE" 
221 PRINT"AU HASARD SERONT FAITS.";PRINT 

225 PRINI"LE DEROULEMENT DU JEU EST LE SUIVANT:" 

230 PRINT 

240 PRINT"1 - LE BATEAU ET LES DESTROYERS SE DEPLACENT" 

245 PRINT"2 - VOUS VOUS DEPLACEZ" 

250 PRINT"3 - VOUS POUVEZ LANCER UNE TORPILLE" 

270 PRINT"4 - LE PERISCOPE RECHERCHE" 





THEN 300 


275 PRINT"S - VOUS VOUS DEPLACEZ A NOUVEAU" 
280 PRINT"6 - RETOUR AU 1" 
281 PRINT 


282 LINE INPUT "ENTREZ "RETURN! POUR CONTINUER. ";XX$:PRINT CHR$(26) 
283 PRINT"LE SOUS-MARIN GAGNE SI VOUS REUSSISSEZ A TOUCHER LE BATEAU" 
285 PRINT"AVEC 4 TORPILLES,SANS ALLER DANS UNE CASE OCCUPEE PAR UN" 
286 PRINT"DESTROYER." PRINT 
287 PRINT"A LA QUESTION ‘FEU?' REPONDRE: 'NON','G','D','H','B','GH','GB','DH', 0 
U ‘DB'.": 
PRINT 
288 PRINT"'G' = GAUCHE, 'D' = DROITE, 'H' = HAUT, 'B' = BAS, 'GH' = GAUCHE HAUT, 
289 PRINT"'DH' = DROITE HAUT, ‘DB' = DROITE BAS." 
300 PRINT:PRINT"VOULEZ VOUS UN TABLEAU"; 
310 INPUT B$ 
320 IF LEFT$(B$,1)="N" THEN 420 
330 PRINT 
340 PRINT 
350 PRINT" 1 2 3 4 5 6 7 8 9 10" 
360 FOR 121 10 9 
370 FOR J=1 T0 10 
380 PRINT USING "££E "31*10+); 
390 NEXT J 
400 PRINT 
410 NEXT I 
420 PRINT:PRINT 
440 D=12 
450 T=4 
460 5=100 
470 C=78 
480 C2=78 
490 L=100 
500 IF C=-100 THEN 550 
510 GOTO 2780 
520 Y3=0 
530 M1=0 
540 GOTO 580 
550 M1=0 
560 IF S=2 THEN 1230 
570 Y3=1 
580 IF S=3 THEN 1230 
590 IF S=11 THEN 1230 
600 IF 5212 THEN 1230 


610 
620 
630 
640 
650 


IF S=21 THEN 1230 
X=RND(1) 

IF X>.4 THEN 690 

IF X>.2 THEN 710 

IF X>.05 THEN 670 

660 GOTO 1020 

670 S1=0 

680 GOTO 720 

690 S1=2 

700 GOTO 720 

710 Si=1 

720 X=RND(1) 

730 1F X<.75 THEN 760 

740 P1=1 

750 GOTO 830 

760 Pl=-1 

770 GOTO 830 

780 IF S=10*INT(S/10) THEN 820 

790 GOTO 860 

800 IF S=1+(10*INT(S/10)) THEN 820 
810 GOTO 866 

820 P1=P1*(-1) 

830 M2=P1*((INT(2*(RND(1)))*5)+1) 
840 IF M2=1 THEN 780 

850 IF M2=-1 THEN 800 

860 IF M1=M2*(-1) THEN 820 

870 C1=5+M2 

880 IF Cl=1 THEN 1230 

890 IF C1=D THEN 2720 

900 IF Cl=C THEN 820 

910 IF C1<1 THEN 820 

920 1F C1>100 THEN 820 

930 M1=M2 

940 S=C1 

950 
960 
970 


IF C6<2 THEN 950 

IF C6>100 THEN 950 

980 IF Cé= D THEN 2700 

990 IF Sl=1 THEN 670 

1000 IF S1=2 THEN 710 

1010 C3=0 

1020 PRINT"BATEAU DEPLACE ." 
1030 IF Y3=0 THEN 1060 

1040 X1=0 

1050 GOTO 2340 

1060 PRINT 

1070 X1=1 

1080 PRINT"SOUS-MARIN EN";D;CHR$(8);"." 


1090 PRINT"BATEAU DERNIEREMENT VU EN";L;CHR$(8);"." 


1100 PRINT:PRINT"FEU"; 
1110 INPUT A$ 

1120 IF LEFT$(A$,1)="N" THEN 1730 
1130 IF A$="G" THEN 1250 
1140°IF A$="D" THEN 1270 
1150 IF A$="H" THEN 1290 
1160 IF A$="B" THEN 1310 
1180 IF A$="GH" THEN 1330 
1185 IF A$="GB" THEN 1350 
1190 IF A$="DH" THEN 1370 
1200 IF A$="DB" THEN 1390 


1210 PRINT'REPONDEZ 'NON', 'G', 'D', ‘H', 'B', 


1220 GOTO 1100 
1230 PRINT"BATEAU AU PORT." 
1240 GOTO 2750 

1250 P1=-1 

1260 GOTO 1400 

1270 PI=1 

1280 GOTO 1400 

1290 P1=-10 

1300 GOTO 1400 

1310 P1=10 

1320 GOTO 1400 

1330 P1=-11 

1340 GOTO 1400 

1350 P1=9 

1360 GOTO 1400 

1370 P1=-9 

1380 GOTO 1400 

1390 P1=11 

1400 D1=D 

1410 D1=D1+P1 

1420 PRINT D1; 

1430 IF D1=S THEN 1500 

1440 IF D1=C THEN 1520 

1450 IF D1<11 THEN 1600 
1460 IF D1>90 THEN 1640 
1470 IF D1=10*INT(D1/10) THEN 1560 


1480 IF D1=1+(10*INT(D1/10)) THEN 1580 
1490 GOTO 1410 

1500 PRINT"BOUMI! LE CARGO EST DETRUITI!" 
1502 PRINT:PRINT"VOUS AVEZ GAGNE!!" 
1504 Q=1 

1510 GOTO 2750 

1520 PRINT"OUAHI! DESTROYER COULE." 





1550 GOTO 1710 

1560 IF D=10*INT(D/10) THEN 1410 
1570 GOTO 1680 

1580 IF D=1+(10*INT(D/10)) THEN 1410 
1590 GOTO 1680 

1600 1F D>10 THEN 1680 

1610 IF D1<2 THEN 1680 

1620 IF D1>9 THEN 1680 

1630 GOTO 1410 

1640 IF D<91 THEN 1680 

1650 IF D1<92 THEN 1680 

1660 IF D1>99 THEN 1680 

1670 GOTO 1410 

1680 T=T-1 

1690 PRINT"MANQUE ." 

1700 IF T=0 THEN 2740 

1710 PRINT T;"TORPILLES GAUCHES." 
1720 GOTO 1100 


‘DH! 


ou 


C6=S+((INT(2*RND(1))#(-2))+1)#((INT(2#RND(1))*9)41) 


‘GH', 'GB', 


‘DB'." 


1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1850 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2050 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2250 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2350 
2340 
2550 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2750 
2740 
2750 
2751 
2752 
2753 
2754 
2755 
2756 
2757 
2760 
2761 
2762 
2770 


PRINT 

Y=0 

PRINT" PERISCOPE LEVE." 
Y2=0 

IF S=D THEN 1930 

IF S=D-1 THEN 1930 
IF S=D+1 THEN 1930 
IF S=D-10 THEN 1930 
IF S=D+10 THEN 1930 
IF S=D-9 THEN 1930 
IF S=D+9 THEN 1930 
IF S=D-11 THEN 1930 
IF S=D+11 THEN 1930 
IF Y=1 THEN 1960 
PRINT"'BATEAU NON EN VUE." 
X=RND (1) 

IF X<.35 THEN 1960 
PRINT 
PRINT'RECON. 
Y2=-1 
PRINT'BATEAU EN";S;CHR$(8);"." 
Y2=Y2+1 

L=S 

IF C=D THEN 2280 

IF C6=D THEN 2700 

IF C=D+1 THEN 2260 

IF C6=D+1 THEN 2240 

IF C=D-1 THEN 2260 

IF C6=D-1 THEN 2240 

IF C=D+9 THEN 2260 

IF C6=D+9 THEN 2240 

IF C=D-9 THEN 2260 

IF C6=D-9 THEN 2240 

IF C=D+10 THEN 2260 

IF C6=D+10 THEN 2240 

IF C=D-10 THEN 2260 

IF C6é=D-10 THEN 2240 

IF C=D+11 THEN 2260 

IF C6=D+11 THEN 2240 

IF C=D-11 THEN 2260 

IF C6=D-11 THEN 2240 

IF C=D+2 THEN 2260 

IF C=D-2 THEN 2260 


INDIQUE "; 











IF +20 THEN 2260 
IF -20 THEN 2260 
IF 100 THEN 2320 
IF Y=1 THEN 2330 


X=RND(1) 

IF X<.6 THEN 2320 
PRINT"RECON. AERIENNE 
GOTO 2300 
PRINT"ESCORTE TRES PROCHE !" 

GOTO 2320 

PRINT"DESTROYER TRES PROCHE EN";C;CHR$(8) ;"." 

GOTO 2300 

PRINT"DESTROYER AU DESSUS DE LA TETE." 

GOTO 2660 

C2=C 

C3=1 

IF Y=0 THEN 2340 

RETURN 

PRINT 

PRINT"LE SOUS-MARIN EST MAINTENANT EN"3;D;CHR$(8);"." 
IF C3=1 THEN 2390 

IF C=-100 THEN 2390 

PRINT"DESTROYER DERNIEREMENT VU EN";C2;CHR$(8);"." 
D2=0 

PRINT'DEPLACEMENT DU SOUS-MARIN 

Y=1 

INPUT X 

IF X2=D THEN 2560 

IF X<2 THEN 2640 

IF X>100 THEN 2640 

IF XZINT(X) THEN 2480 


INDIQUE DES BOITES DE CONSERVES EN";C;CHR$(8) ;"." 





GOTO 2640 

IF X=D+1 THEN 2530 

IF X=D-1 THEN 2550 

IF X=D+10 THEN 2560 

IF X=D-10 THEN 2560 

GOTO 2640 

IF D=10*INT(D/10) THEN 2640 
GOTO 2560 

IF X=10*INT(X/10) THEN 2640 
D=x 

GOSUB 1760 

IF D2=1 THEN 2610 

D2=1 

GOTO 2400 

IF X1:0 THEN 3060 


IF C=-100 THEN 550 

GOTO 2780 

PRINT"IMPOSSIBLE ." 

GOTO 2400 

X=RND(1) 

IF X<.8 THEN 2700 

PRINT"LA CHARGE DE PROFONDEUR A RATE!" 

GOTO 2300 

PRINTAIELILE SOUS-MARIN EST ATTAQUE A COUP DE CHARGES DE PROFONDEUR!" 
GOTO 2750 

PRINTMLE BATEAU EST AU DESSUS DE LA TETE." 

GOTO 550 

PRINT"MUNITIONS EPUISEES." 
PRINT 

IF Q=0 THEN 2754 

Q1=Q1+1 

GOTO 2755 

Q2=Q2+1 

PRINT"SCORE: ORDINATEUR";Q2;" - 
PRINT 

Q=0 

PRINT "NOUVEAU JEU"; 

INPUT N$ 

IF LEFT$(N$,1)= 
GOTO 420 


SOUS-MARIN";Q1;CHR$(8) ;"." 





N'" THEN 3080 
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2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 
2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 


M1=0 
s1=0 

X=RND(1) 

IF XC.6 THEN 2840 

Pl=1 

GOTO 2850 

P1=-1 
M2=(P1#((INT(2#RND(1)))#9)+1) 
IF M2=1 THEN 3000 

IF M2=-1 THEN 3020 

IF MI=M2*(-1) THEN 3040 
C1=C+M2 

IF C1=D THEN 2700 

IF C1=S THEN 3040 

IF C1<2 THEN 3040 

IF C1>100 THEN 3040 

M1=M2 

C=C1 

IF S1=1 THEN 550 

S1=1 

PRINT"LE DESTROYER A BOUGE ." 
GOTO 2800 

IF C=10#INT(C/10) THEN 3040 
GOTO 2880 

IF C=1+(10*INT(C/10)) THEN 3040 
GOTO 2880 

P1=P1#*(-1) 

GOTO 2850 

IF Y2=0 THEN 1060 

GOTO 520 

END 


Corral 





Corral est un programme de jeu qui a 
été inspiré par Harry (diminutif pour 
Aragon), un cheval acheté pour une jeune 
fille dans un élan d'indulgence. Harry, 
dans son style inimitable, nous a beau- 
coup appris à propos de la psychologie de 
la race chevaline, de sa nourriture et des 
soins à lui apporter. Une part de cette 
psychologie gagnée à l'arraché trouve 
son illustration dans ce jeu qui est une 
simulation uni-dimensionnelle du pro- 
blème posé pour approcher Harry sous un 
autre prétexte que la nourriture, problème 
à deux, voire trois, dimensions. Il faut 
pouvoir représenter le jeu sur un support 
papier à l'aide de terminaux habituels. 
C'est principalement pourquoi on a réduit 
l'alter ego d'Harry dans l'ordinateur. Quoi 
qu'il en soit, l'effet est suffisamment 
spectaculaire sur un écran vidéo. 

L'enclos proprement dit est limité par 
deux rangées de barrières séparées par 
21 espaces. Le cow-boy «C» entre 
toujours par la barrière la plus à gauche 
alors que le cheval « H » trottine joyeuse- 
ment quelque part entre les positions 10 et 
18 avec un penchant pour la droite. Cette 
tendance et les autres bizarreries dans le 
comportement du cheval sont dictées par 
deux matrices de données (lignes 90 et 
100) conçues pour faire varier, selon les 
données, l'attitude du cheval, de la docilité 
à la rébellion. 

Si le cheval déguerpit, une procédure 
est prévue (Ig 450) pour s'assurer qu'il ne 
s'approchera pas de moins d'un espace 
du cow-boy. Il arrive que le cheval s'enfuie 
vers une position favorable au cow-boy, 
tout comme dans la vie courante, mais le 
plus souvent, c'est le contraire qui se 
produit, en particulier lors d'une 
manœuvre d'approche inconsidérée du 
cow-boy. Donc prenez bien garde à ce 
que le cow-boy ne franchisse jamais, en 
une seule fois, plus de la moitié de la 
distance qui le sépare du cheval sauf, bien 
sûr, lorsqu'il le côtoie. 

La probabilité pour que le cheval rue à 
l'approche du cow-boy est évaluée par le 
test logique à la ligne 500. Dans ce cas, le 
malheureux cow-boy est au tapis pour 
cinq coups au plus, pendant que le cheval 
s'éloigne au petit galop du lieu qui a vu 
son triomphe. Et si cela doit se produire 


plus d'un certain nombre (aléatoire) de 
fois, le jeu se termine sur l'évacuation du 
cow-boy en ambulance. 

De temps en temps, le cheval se lance 
dans une ronde autour du cow-boy. Mais 
n'oubliez pas que les générateurs de 
nombres aléatoires n'ont pas d'âme, et le 
résultat est souvent une ruade en traître 
alors que la capture semblait imminente. 
Par ailleurs, on pourra considérer que 
vous êtes devenu un cow-boy accompli si 
la capture se fait en trois coups et n'a pas 
occasionné de blessure. Mais, comme le 
dit le proverbe, on est habile ou on ne l'est 
pas. Dans ce dernier cas, le programme 


CEPLELELELLLLLLLLLLLILLILLLILLELLLE ES) 


CELELS CORRAL LELLE] 
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autorise au plus cent tentatives, avant de 
renvoyer le cow-boy malchanceux à ses 
chères études. 

Les amateurs de graphiques multi- 
colores seront sans nul doute déçus par 
des symboles aussi prosaïques que H et 
C désignant le cheval et le cow-boy. Une 
animation du jeu, remplie de couleurs 
avec des effets sonores (produits par un 
synthétiseur de musique et de parole) et 
un cheval qui parle, pourquoi pas, ne 
devrait pas être trop difficile à mettre en 
œuvre. 

Ce programme a été conçu et écrit par 
Colin Keay. 


VOUS ETES LE COWBOY.ALLEZ ATTRAPER VOTRE CHEVAL DANS LE CORRALI 


VOULEZ VOUS DES INSTRUCTIONS COMPLETES? OUI 


VOUS VOUS DEPLACEZ VERS VOTRE CHEVAL DE 1 À 5 PAS À LA FOIS. 
SI VOUS ALLEZ AU DELA DE LA MOITIE DE LA DISTANCE 


QUI VOUS SEPARE DE LUI IL VA S'EMBALLERI 


IL PEUT AUSSI S'EMBALLER S'IL EST PROCHE DE LA BARRIERE. 
SI VOUS ETES À 2 PAS DE LUI,IL PEUT RUER.SOYEZ PRUDENTI 


APRES ‘?" 

ac H Li 
1 LU C H 4 
2 Li c H4 
3 LU [ei H4 
4 Li c H4 
5 Li cC H 4 
6 LU H C Li 
7 Li H -C Li 
8 Li H C A 
9 LU HC Li 
1 Li H C LU 
li LI HC LU 

Li # Li 


TAPEZ UN CHIFFRE DE 1 TO 5 POUR LE PROCHAIN DEPLACEMENT DU COWBOY. 


D 9 0 0 0 
+ N NU UI 


EMBALLE 2 À 


9 4 © + 
bhhbhhk 


YOUPPIEI! MAINTENANT ESSAYEZ DE VOIR SI VOUS POUVEZ L'ATTRAPER EN MOINS DE DEPLA 


CEMENTS. 


UN AUTRE RASSEMBLEMENT? OUI 
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LT 
TZ 
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2? 2 

EMBALLE 72 
232 
St 
2 À 
? 1 
? 1 
@ À 
? 1 
21 

EMBALLE ? i 
2? 


DEPLACEMENT INTERDIT.ESSAYEZ ENCORE. 
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2 
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DECENENENEUENTEUEN) 


RENE EN EN ETES 


DENEN 


? 


COUP DE PIED 


EMBALLE 
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EMBALLE 
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49 +0 29 0 «9 
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COUP DE PIED 


EMBALLE 


ASSEZIVOUS FERIEZ MIEUX DE FAIRE LA CUISINE! 


UN AUTRE RASSEMBLEMENT? NON 
Ok 
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3 PRINT CHR$(26) 


S PRINT "* ELITE TT I LIST ITS SSI TSSS ST 
10 PRINT " CORRAL MARNE 

19 PRINT "sssssnensesmensenenenenensnse net, PRINT: PRINT 

20 DIM A(21) 

30 DIM S(2,9) 

70 FOR 1=1 T0 2:FOR J=0 TO 9 

80 READ S(I,J):NEXT J:NEXT I 

90 DATA 0,1,2,3,3,2,2,1,0,-1 

100 DATA 1,2,35,4,5,4,3,2,1,0 

110 PRINT "Vous etes le Cowboy.Allez attraper votre cheval dans le corral!":PRI 
NT 

120 LINE INPUT "Voulez vous des instructions complètes? ";F$:PRINT 

130 IF LEFT$(F$,1)="N" OR LEFT$(F$,1)="n" THEN 190 

140PRINT "Vous vous déplacez vers votre cheval de 1 à 5 pas à la fois." 
150 PRINT "Si vous allez au delà de la moitié de la distance" 

151 PRINT "qui vous sépare de lui il va s'emballer!" 

160 PRINT "Il peut aussi s'emballer s'il est proche de la barrière." 

170 PRINT "Si vous etes à 2 pas de lui,il peut ruer.Soyez prudent!" 

180 PRINT 

190 PRINT "Après ‘'?' tapez un chiffre de 1 to 5 pour le prochain déplacement du 
Cowboy." 

200 C=1:L=1:K=0:M=0:N=0:GOSUB 590 

210 IF R>5 THEN Q=-Q 

220 H=13+Q:GOSUB 600 

230 T=2+P:PRINT 

240 B$=" " 

250 FOR J=1 T0 21:A(J)=32:NEXT 

260 A(C)=67:A(H)=72 

270 PRINT USING "£££";N;: PRINT "M, : PRINT "Ü'"; 

280 FOR J=1 TO 21:PRINT CHR$(A(J));:NEXT 

290 PRINT "ùü",B$; 

300 X=ABS(H-C):L=SGN(H-C) 

310 N=N+1:1F K>0 THEN 540 

320 IF N>100 THEN 730 

330 INPUT D 

340 IF D>0 AND D<6 THEN 360 

350 PRINT "Déplacement interdit.Essayez encore.",;:GOT0 320 

360 E=C+L*D:IF El OR E>21 THEN 350 

370 C=E:GOSUB 590 

380 G=P:H=H+L*G:GOSUB 600 

390 IF X<2*D AND D>1 THEN 440 

400 IF H>1 AND H<20 THEN 480 

410 GOSUB 590 

420 IF R>2 THEN 480 

430 IF X>7 THEN 240 

440 G=9+2*P:H=H-L*G:L=-L:GOSUB 600 

450 IF ABS(H-C)>1 THEN 470 

460 H=H-3#L:GO0OSUB 600 

470 B$="EMBALLE “:GOT0 250 

480 IF ABS(H-C)>2 THEN 240 

490 GOSUB 590 

500 IF R>3 THEN 570 

510 GOSUB 590 

520 K=P+2:M=M+1:H=H-5#L:GOSUB 600 

530 B$="COUP DE PIED":GOT0 250 

540 IF M>T THEN 630 

550 K=K-1:PRINT:GOSUB 590 

560 H=H+L*(P+1):GOSUB 600:G0T0 240 

570 IF H=C THEN 650 

580 GOTO 240 

590 R=INT(1O#RND(1)):P=S(1,R):Q=S(2,R) :RETURN 

600 IF H<1 THEN H=1 

610 IF H>21 THEN H=21 

620 RETURN 

630 PRINT:PRINT "Ces coups de pieds vous ont envoyé à l'Hopital!" 

640 PRINT "Rétablissez vous vitel":GOT0 700 

650 FOR J=1 T0 21:A(J)=32:NEXT:A(C)=35 

660 PRINT ,"ù"; 

670 FOR J=1 TO 21:PRINT CHR$(A(J));:NEXT 

680 PRINT "ù" 

690 PRINT:PRINT "YOUPPIE!!I Maintenant essayez de voir si vous pouvez l'attraper 
en moins de déplacements.":PRINT 
700 INPUT "Un autre rassemblement";F$ 
710 IF LEFT$(F$,1)="0" OR LEFT$(F$,1)= 
720 GOTO 740 

730 PRINT:PRINT:PRINT "Assezl!Vous feriez mieux de faire la cuisine!":GOT0 700 
740 ED . 




















* THEN 200 


Countdown 





(Compte à rebours) 


Ce programme est basé sur le pro- 
gramme « Devinette » où l'ordinateur 
choisit un nombre au hasard et vous 
donne des indications : «trop haut », 
«trop bas», jusqu'à ce que vous le 
trouviez. Le programme « Compte à 
rebours » corse la recherche en réduisant 
le nombre d'essais, le maximum étant fixé 
à un chiffre inférieur à 10. Si au bout de 
ces essais, votre recherche est infruc- 
tueuse, votre école explose. Si vous 
utilisez une bonne stratégie, vous pouvez 
deviner le nombre en quatre essais 
seulement, et même moins. S'il vous faut 
plus de quatre essais le bâtiment explose. 
Pour rendre ce jeu encore plus inté- 
ressant, vous pouvez fixer le maximum 
d'essais à trois. Pour cela, il vous suffit de 
donner la valeur trois au lieu ae quatre à la 
donnée « T », à la ligne 45. 

L'auteur de ce programme est Mark 
Chambers. 


1 PRINT CHRS (26) ; TAB (24) ; "COMPTE À REBOURS" 
2 PRINT TAB (28) ; "CREATIVE COMPUTING" 

3 PRINT TAB (18) ;"MORRISTONN, NEW JERSEY" 
4 PRINT:PRINT:PRINT 

5 A=INT (RND(1)*18) 

6 T=0 
7 N=0 

15 PRINT "VOUS AVEZ ACTIVE LE MECANISME D'AUTO-DESTRUCTION "; 

28 PRINT "DE L'ECOLE." 

25 PRINT "SI VOUS LE VOULEZ, VOUS POUVEZ ARRETER LE MECANISME. * 

27 PRINT "POUR LE FAIRE,TAPEZ LE NOMBRE CORRECT, " 

35 PRINT "QUI ARRETERA LE COMPTE À REBOURS." 

37 PRINT "JE VOUS EN SUPPLIE!! IL N'Y À PAS DE TEMPS À PERDRE! 1111" 
44 PRINT:PRINT "QUEL EST IL";:INPUT X:PRINT 

45 IF T=4 THEN 98 

47 GOTO 209 

59 REM 

75 PRINT "VOTRE NOMBRE NE CONVIENT PASI1" 

80 PRINT "S'IL VOUS PLAIT,ESSAYEZ À NOUVEAU! ! 11":T=T+1 

81 IF T=2 THEN 96 

82 IF T=3 THEN 195 

83 GOTO 44 

85 PRINT "CORRECTI111":LET N=5 

98 PRINT "LE COMPTE À REBOURS À ETE ARRETE." 

92 PRINT “VOUS AVEZ SAUVE L'ECOLE1" 

93 PRINT "(AVEZ VOUS VU VOTRE VIEUX RECEMMENT ?)" 

94 LET T=10 

95 INPUT "ESSAYEZ VOUS ENCORE" ;AS$:IF LEFTS(A$,1)="O" THEN 1 ELSE 1989 
96 PRINT "LE TEMPS DIMINUE,S'IL VOUS PLAIT FAITES VITEIII11111" 

97 GOTO 44 

98 PRINT:PRINT: PRINT: PRINT 

99 PRINT TAB (32) ; "TROP TARD" \ 

199 PRINT:PRINT:PRINT:PRINT TAB (32) }\*### /" 

191 PRINT TAB(31);"— BOUM —"* 

192 PRINT TAB(32);"/ *###" 

193 PRINT:PRINT:PRINT 

194 INPUT "ESSAYEZ VOUS ENCORE" ;A$:1F LEFTS (A$,1)="O" THEN 1 ELSE 1889 
195 PRINT “DEPECHEZ VOUS,LE COMPTE A REBOURS APPROCHE DE ZEROI1111" 
119 GOTO 44 

200 IF X<A THEN PRINT "TROP PETITI1111":GOTO 58 

219 IF X>A THEN PRINT "TROP GRANDI1111":GOTO 58 

225 IF X=A THEN 85 

1908 END 


RUN 
COMPTE À REBOURS 
CREATIVE COMPUTING 
MORRISTOWN, NEW JERSEY 


VOUS AVEZ ACTIVE LE MECANISME D'AUTO-DESTRUCTION DANS L'ECOLE. 
SI VOUS LE VOULEZ,VOUS POUVEZ ARRETER LE MECANISME. 

POUR LE FAIRE,TAPEZ LE NOMBRE CORRECT, 

QUI ARRETERA LE COMPTE A REBOURS. 

JE VOUS EN SUPPLIEII IL N'Y À PAS DE TEMPS A PERDREIIIII 


QUEL EST IL? O 


TROP PETITIIIII 
VOTRE NOMBRE NE CONVIENT PASII 
S'IL VOUS PLAIT,ESSAYEZ A NOUVEAUIIII 


QUEL EST IL? 1 


TROP PETITIIIIL 

VOTRE NOMBRE NE CONVIENT PASII 

S'IL VOUS PLAIT,ESSAYEZ A NOUVEAUIIII 

LE TEMPS DIMINUE,S'IL VOUS PLAIT FAITES VITEIIIIIIII 


QUEL EST IL? 2 


CORRECTIIII 

LE COMPTE À REBOURS A ETE ARRETE. 

VOUS AVEZ SAUVE L'ECOLEI 

(AVEZ VOUS VU VOTRE VIEUX RECEMMENT ?) 
ESSAYEZ VOUS ENCORE? OUI 


COMPTE À REBOURS 
CREATIVE COMPUTING 
MORRISTOWN, NEW JERSEY 


VOUS AVEZ ACTIVE LE MECANISME D'AUTO-DESTRUCTION DANS L'ECOLE. 
SI VOUS LE VOULEZ,VOUS POUVEZ ARRETER LE MECANISME. 

POUR LE FAIRE,TAPEZ LE NOMBRE CORRECT, 

QUI ARRETERA LE COMPTE A REBOURS. 

JE VOUS EN SUPPLIEII IL N'Y À PAS DE TEMPS À PERDREIIIII 


QUEL EST IL? O 

TROP PETITIIIII 

VOTRE NOMBRE NE CONVIENT PASII 

S'IL VOUS PLAIT,ESSAYEZ A NOUVEAUIIII 

QUEL EST IL? 2 

TROP PETITIIIII 

VOTRE NOMBRE NE CONVIENT PASII 

S'IL VOUS PLAIT,ESSAYEZ A NOUVEAUIIII 

LE TEMPS DIMINUE,S'IL VOUS PLAIT FAITES VITEIIIIIIII 
QUEL EST IL? 4 

TROP GRANDIIIII 

VOTRE NOMBRE NE CONVIENT PASII 

S'IL VOUS PLAIT,ESSAYEZ A NOUVEAUIIII 

DEPECHEZ VOUS,LE COMPTE À REBOURS APPROCHE DE ZEROIIIII 
QUEL EST IL? 2 

TROP PETITIIIII 

VOTRE NOMBRE NE CONVIENT PASII 

S'IL VOUS PLAIT,ESSAYEZ A NOUVEAUIIII 


QUEL EST IL? 2 


TROP TARD 


LELE] / 


-- BOUM -- 


VALLLLI 
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Cup (La tasse) 





Le jeu de la tasse est un ingénieux petit 
jeu dans lequel une tasse est localisée 
trente lignes en dessous du niveau de 
votre imprimante, sur le papier où sur 
l'écran de votre vidéo et à un certain 
nombre d'espaces, choisi au hasard, 
allant de un à soixante à partir de la marge 
de gauche. La force d'attraction de la 
gravité varie de une à dix lignes par 
seconde au carré. On vous demande 
alors dans le programme quelle poussée 
vous voudriez donner à la balle, de la 
gauche vers la droite, exprimée en 
espaces par seconde. Le programme 
trace alors le chemin parcouru par la balle, 


à partir de la marge gauche du papier 1 PRINT CHR$(26);TAB(27);"LA TASSE" 


comme si elle tombait dans la tasse, avec 2 PRINT TA8(20) 3 CREATIVE COMPUTING" 
3 PRINT TAB(18);"MORRISTOWN, NEW JERSEY" 
un peu de chance. à PRINT:PRINT 
Une légère connaissance des lois de la EST) 
physique peut vous aider si vous espérez So LS UN 
x à = on + 
mettre la balle dans la tasse dès le 60 PRINT LA TASSE SE TROUVE 30 L'ICNES PLUS BAS ETPSLS ESPACES PLUS LOI 
i 60 PRINT "LA FORCE D'ATTRACTION DE LA GRAVITE EST";G;"L IGNES/SECONDE/SECONDE ." 
premier COUP. De toute façon, vous 80 PRINT "QUELLF POUSSEE HORIZONTALE VOULEZ-VOUS DONNER A LA BALLE" 
pouvez essayer et vous tromper plusieurs 90 PRINT "(EN ESPACES/SECONDE )"'; 
fois et y arriver généralement au bout de DS PTE 
quatre où cinq essais. 110 PRINT "LES RESULTATS PEUVENT PRENDRE ENTRE 30 ET 90 SECONDES." 
. PTE Z. . 5 INT:PRINT 
Le jeu de la tasse a été écrit par 116 FOR XXL TO SOOOINEXTIPRINT CHR$(26) 
Jonathan Freidin 120 FOR S1=1 10 30:FOR S2:1 T0 60:5(51,52)=0:NEXT :NEXT 


130 LET 5(30,L)=S(30,L-1)=5(30,L+1)=5(29,L-1)=5(29,L+1)21 
140 FOR Z=1 TO SQR(60*G)/G STEP .01 

150 LET Y=1#7%2 

160 LET X=6/2*7°2 

170 IF X>30.5 OR X<.5 OR Y>60.5 OR Y<.5 THEN 300 

180 IF INT(X)=29 AND INT(Y)=L THEN 310 

190 IF INT(X)+1=29 AND INT(Y)+1=L THEN 310 


RUN 200 IF INT(X)=29 AND INT(Y)=L-1 THEN 310 
LA TASSE 210 IF INT(X)+1=29 AND INT(Y)+1=L-1 THEN 310 

CREATIVE COMPUTING 220 IF INT(X)=29 AND INT(Y)=L+l THEN 330 
MORRISTOWN, NEW JERSEY 230 IF INT(X)+1=29 AND INT(Y)+1=L+l THEN 330 


240 LET S(X,Y)22 
250 FOR D=1 TO 5 


LA FORCE D'ATTRACTION DE LA GRAVITE EST 4 LIGNES/SECONDE/SECONDE. 260 IF Y<6 THEN 290 
QUELLE POUSSEE HORIZONTALE VOULEZ-VOUS DONNER À LA BALLE 270 LET S(X,Y-D)=0 
(EN ESPACES/SECONDE)? 8 280 NEXT D 

290 NEXT Z 
LES RESULTATS PEUVENT PRENDRE ENTRE 30 ET 90 SECONDES. 300 GOTO 340 

310 LET W=1 

320 GOTO 335 

330 LET W=2 


335 LET S(29,L)22 
337 GOTO 345 
340 LET Ww=0 
345 LET P$=" *." 
360 LET S(30,L)=1:5(30,L-1)=1:5(30,L+1)=1: 
365 LET S(29,L-1)=1:5(29,L+1)21 
370 FOR X=1 10 30 
380 FOR X1=1 T0 60 
390 IF S(X,X1)<>0 THEN 420 
400 NEXT X1 
410 CGOTO 500 
420 FOR Y=1 T0 60 
430 PRINT MID$(P$,S(X,Y)+1,1); 
440 IF X=29 OR X=30 THEN 490 
450 IF Y=60 OR Y=1 THEN 490 
460 IF Y=1 OR Y=59 THEN 500 
470 IF S(X,Y)=2 AND S(X,Y+1)=0 THEN 500 
480 IF S(X,Y)=1 AND S(X,Y+1)=0 AND S(X,Y+2)=0 THEN 500 
490 NEXT Y 
500 PRINT 
510 NEXT X 
520 PRINT 
530 IF W=1 THEN 570 
540 IF W=2 THEN 590 
550 PRINT:PRINT "VOUS AVEZ RATE ;ESSAYEZ ENCORE .":PRINT 
560 GOTO 60 
570 PRINT:PRINT "DANS LE MILLE! !":PRINT 
580 GOTO 600 

“ : 590 PRINT:PRINT "VOUS N'AVEZ PAS REUSSI,MAIS LA BALLE A REBONDI SUR LA TASSE." 
“… 600 PRINT:PRINT "VOULEZ-VOUS REJOUER"; 
610 INPUT A$ 
620 IF LEFT$(A$,1)="0" THEN 30 
VOUS AVEZ RATE;ESSAYEZ ENCORE. 630 END 
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Dealer x 5 





(Le choix de la donne) 


Au début de ce jeu, vous disposez de 
$100. Ensuite, vous participez à cinq jeux 
de cartes étroitement inspirés des jeux de 
casino, mais quelque peu modifiés. Ces 
cinq jeux sont longuement expliqués dans 
les règles. 

Thomas Carey est l’auteur de ce jeu. 


LE CHOIX DE LA DONNE 
CREATIVE COMPUTING 
MORRISTOWN, NEW JERSEY 


CE PROGRAMME SIMULE L'EMISSION DE T.V AMERICAINE,DEALER'S CHOICE. 
VOUS AVEZ $100 POUR DEBUTER.AMUSEZ VOUS BIEN. 


POUR LE PREMIER JEU,NOUS ALLONS FAIRE TOURNER LA ROUE DE LA CHANCE. 
LE BUT EST SIMPLE.DEVINEZ QUELLE COULEUR VA APPARAITRE SUR LA 

ROUE ET VOUS SEREZ PAYE SUIVANT CES TAUX SI VOUS AVEZ RAISON. 

LES TAUX SONT LES SUIVANTS: 


1 
3 


CARREAUX À UN TAUX DE 11 CONTRE 1 
COEURS À 3 CONTRE 1 


2 = PIQUES À 1 CONTRE 1 . 
4 = TREFLES À 3 CONTRE 1 . 


VOUS POUVEZ PARIER JUSQU'A $25.BONNE CHANCEI 


SUR QUELLE COULEUR PARIEZ VOUS? 1 
QUELLE EST LA MISE? 25 


D'ACCORD.MAINTENANT QUE VOUS AVEZ MISE,FAISONS TOURNER 
LA ROUE. BONNE CHANCEI 

LA ROUE RALENTIT. 

LA ROUE S'ARRETE. 0 

LA COULEUR EST **** CARREAUX **** 

VOUS GAGNEZ SUR LES CARREAUXI 


A LA FIN DE LA PARTIE NUMERO 1, VOUS POSSEDEZ $ 375. 


ENTREZ ‘RETURN' POUR CONTINUER. 


VOICI LE JEU DE ‘ L'ENTRE ‘.LA REGLE EST LA SUIVANTE: 5 CARTES SERONT 
TIREES.SI UNE QUELCONQUE DES CARTES EST EN DESSOUS DE 3 OU PLUS GRANDE QUE 
10, LE JEU EST FINI. VOUS POUVEZ PARIER JUSQU'A $30.VOTRE ARGENT 

SERA DOUBLE À CHAQUE FOIS QUE VOUS AUREZ RAISON.BONNE CHANCEI 


QUELLE EST LA MISE? 40 

*#** VOUS PARIEZ AU DELA DES LIMITES DE LA MAISON *** 
QUELLE EST LA MISE? 30 

LA CARTE NUMERO 1 EST UN 4. 

VOUS JOUEZ ENCORE.VOUS AVEZ $ 60. 

ARRET OÙ POURSUITE? POURSUITE 

LA CARTE NUMERO 2 EST UN 4. 

VOUS JOUEZ ENCORE.VOUS AVEZ $ 120. 

ARRET OU POURSUITE? POURSUITE 

LA CARTE NUMERO 3 EST UN 7. 

VOUS JOUEZ ENCORE.VOUS AVEZ $ 180. 

ARRET OÙ POURSUITE? ARRET 

VOUS AVEZ GAGNE. À LA FIN DE LA PARTIE 2, VOUS AVEZ $ 555. 


ENTREZ ‘RETURN' POUR CONTINUER. 


VOICI LE JEU DU BLACKJACK <MODELE ‘DEALER'S CHOICE'> 


LE BUT EST DE BATTRE LE DONNEUR AVEC PLUS DE 17 OU 21 OU 
MOINS.VOUS POUVEZ MISER JUSQU'A $50.VOUS VOUS ARRETEZ QUAND VOUS VOULEZ. 


SI LA MAISON FAIT UN TOTAL DE MOINS DE 17 EN 6 TIRAGES, 
VOUS CONCERVEZ L'ARGENT DE LA MISE.BONNE CHANCEI 


LE DONNEUR TIRE SES CARTES EN PREMIER 


ETES VOUS PRET? OUI 


J'Y VAIS: 

LA CARTE EST UN ]. 

LE TOTAL DU DONNEUR ATTEINT: 1. 

LA CARTE EST UN 10. 

LE TOTAL DU DONNEUR ATTEINT: 11. 
LA CARTE EST UN 6. 

LE TOTAL DU DONNEUR ATTEINT: 17. 


J'ARRETE.MON TOTAL EST DE 17. 
ALLEZ Y MAINTENANT: 
QUELLE EST VOTRE MISE? 50 


VOTRE CARTE EST UN 5. 
VOTRE TOTAL ATTEINT 5. 


ARRET OÙ POURSUITE? POURSUITE 


VOTRE CARTE EST UN 12. 
VOTRE TOTAL ATTEINT 17. 


ARRET OU POURSUITE? ARRET 


NOUS AVONS LE MEME TOTAL,NOUS ALLONS DONC REJOUER. 
LE DONNEUR TIRE SES CARTES EN PREMIER 


ETES VOUS PRET? OUI 

J'Y VAIS: 

LA CARTE EST UN 11. 

LE TOTAL DU DONNEUR ATTEINT: 11. 
LA CARTE EST UN 9. 

LE TOTAL DU DONNEUR ATTEINT: 20. 
J'ARRETE.MON TOTAL EST DE 20. 
ALLEZ Y MAINTENANT: 

QUELLE EST VOTRE MISE? 50 


VOTRE CARTE EST UN 1. 
VOTRE TOTAL ATTEINT 1. 


ARRET OU POURSUITE? POURSUITE 


VOTRE CARTE EST UN 12. 
VOTRE TOTAL ATTEINT 13. 


ARRET OÙ POURSUITE? POURSUITE 


VOTRE CARTE EST UN 1. 
VOTRE TOTAL ATTEINT 14. 


ARRET OÙ POURSUITE? POURSUITE 
VOTRE CARTE EST UN 12. 

VOTRE TOTAL ATTEINT 26. 

LE DONNEUR VOUS BAT. VOUS PERDEZ. 


A LA FIN DE LA PARTIE 3, VOUS AVEZ $ 505. 


ENTREZ ‘RETURN' POUR CONTINUER. 


VOICI MAINTENANT LA DERNIERE CHANCE.SI VOUS GAGNEZ 
$300 VOUS POURREZ ALLER JUSQU'AU TOUR BONUS.LE BUT 


EST DE DEVINER DANS QUELLE CATEGORIE LE TOTAL DES 5 CARTES 


VA RENTRER.VOICI LES CATEGORIES: 


1 
3 


31-40 À 1 CONTRE 1 2 
21-31 À 3 CONTRE 1 4 


41-50 A 3 CONTRE 1 
6-20 A 20 CONTRE 1 


“nu 
CAL 


BONNE CHANCEI ! 
A CET ENDROIT DU JEU VOUS AVEZ $ 505. 


QUELLE CATEGORIE VOULEZ VOUS? 2 
QUELLE EST LA MISE? 25 


ON ADDITIONNE MAINTENANT LES CARTES. 
BONNE CHANCEI 

LA CARTE NUMERO 1 EST UN 1. 

VOTRE TOTAL ATTEINT: 8. 


LA CARTE NUMERO 2 EST UN 11. 
VOTRE TOTAL ATTEINT: 19. 


LA CARTE NUMERO 3 EST UN 8. 
VOTRE TOTAL ATTEINT: 27. 


LA CARTE NUMERO 4 EST UN 7. 
VOTRE TOTAL ATTEINT: 34. 


LA CARTE NUMERO 5 EST UN 10. 
VOTRE TOTAL ATTEINT: 44, 


A LA FIN DU JEU VOUS AVEZ UN TOTAL DE $ 580. 


VOUS ETES ADMIS POUR LE TOUR-BONUS. 
VOULEZ VOUS LE JOUER? OUI 


VOICI LE TOUR-BONUS.SI VOUS OBTENEZ UN TOTAL DE 1000 
SANS TIRER UN PIQUE,VOUS GAGNEREZ UN GRAND PRIX 

DE $10.000.00.VOUS POUVEZ VOUS ARRETER À N'IMPORTE QUEL 
MOMENT DU JEU.VOUS GARDEREZ CE QUE VOUS AVEZ GAGNE.BONNE 


LES DES ROULENT. 

BONNE CHANCE. 

LES DES SONT 

**** PIQUES 2 LELE 

LE TOTAL ATTEINT: 2 . 

VOUS PERDEZ L'ARGENT DU DERNIER TOUR MAIS VOUS AVEZ 
TOUJOURS UN TOTAL FINAL OF $ 58 . 


C'EST LA FIN DU JEU.J'ESPERE QUE VOUS L'AVEZ AIME. 


CHANCE | 


19 PRINT CHRS (26) 

109 PRINT TAB(21);"LE CHOIX DE LA DONNE" 

119 PRINT TAB (20) ; "CREATIVE COMPUTING" 

120 PRINT TAB(18) ;"MORRISTOWN, NEW JERSEY" 

130 PRINT:PRINT:PRINT 

149 PRINT "CE PROGRAMME SIMULE L'EMISSION DE T.V AMERICAINE,DEALER'S CHOICE." 
159 PRINT “VOUS AVEZ $19@ POUR DEBUTER.AMUSEZ VOUS BIEN.":PRINT 

169 O=108 

179 PRINT "POUR LE PREMIER JEU,NOUS ALLONS FAIRE TOURNER LA ROUE DE LA CHANCE." 
189 PRINT"LE BUT EST SIMPLE.DEVINEZ QUELLE COULEUR VA APPARAITRE SUR LA" 

198 PRINT "ROUE ET VOUS SEREZ PAYE SUIVANT CES TAUX SI VOUS AVEZ RAISON." 

290 PRINT:PRINT "LES TAUX SONT LES SUIVANTS: ":PRINT 


219 PRINT "1 = CARREAUX À UN TAUX DE 11 CONTRE 1 2 = PIQUES À 1 CONTRE 1 ." 
229 PRINT “3 = COEURS À 3 CONTRE 1 4 = TREFLES À 3 CONTRE 1 ." 
225 PRINT 


230 PRINT "VOUS POUVEZ PARIER JUSQU'A $25.BONNE CHANCE! ":PRINT 

249 PRINT "SUR QUELLE COULEUR PARIEZ VOUS" ;:INPUT À 

250 IF À > 4 OR À < l THEN 279 

260 IF À <=4 THEN 280 

270 PRINT "#*** VOUS AVEZ CHOISI UNE MAUVAISE COULEUR ***":GOTO 249 

284 PRINT "QUELLE EST LA MISE";:INPUT B8 

298 IF B8 > 25 OR B8 <= © THEN 310 

309 IF B8 <= 25 THEN 320 

319 PRINT "*#** VOUS AVEZ MISE AU DELA DES LIMITES DE LA MAISON **#*":GOTO 289 
320 PRINT:PRINT "D'ACCORD.MAINTENANT QUE VOUS AVEZ MISE,FAISONS TOURNER" 

330 PRINT "LA ROUE. BONNE CHANCE!":FOR Bl=1 TO 19*S57G:NEXT B1l 

349 PRINT "LA ROUE RALENTIT." 

354 FOR Bl=1 TO 7*570:NEXT Bl:PRINT "LA ROUE S'ARRETE."." 

369 FOR Bl=1 TO 4*570:NEXT B1 

370 PRINT “LA COULEUR EST ";:FOR Bl=1 TO 4*579 

380 NEXT B1 

390 Z=INT(4*RND(1)+1):IF Z=1 THEN Z$="CARREAUX" ELSE IF Z=2 THEN Z$="PIQUES" 
391 ELSE IF Z=3 THEN Z$="COEURS" ELSE 2$="TREFLES" 

392 PRINT "###* ":zS;" LLLE 

409 IF Z=A THEN 420 

410 IF Z <> À THEN 470 

420 ON Z GOTO 430,440,450,460 

430 O=0+(11*B8) :PRINT "VOUS GAGNEZ SUR LES CARREAUX!":GOTO 480 

449 O=0+(1*B8) :PRINT "VOUS GAGNEZ SUR LES PIQUES!":GOTO 480 

450 0=0+(3*B8) : " pu 480 

460 SOLE IPRINE "VOUS GABNEZ SUR LES SRÉFLES! Foto 480 

470 O=0-(1*B8) :PRINT "VOUS AVEZ PERDU.":GOTO 480 

489 PRINT:PRINT "A LA FIN DE LA PARTIE NUMERO l, VOUS POSSEDEZ $";0;CHR$ (8) ;"." 
499 PRINT:PRINT:GOSUB 19000 

598 PRINT "VOICI LE JEU DE ‘ L'ENTRE '.LA REGLE EST LA SUIVANTE: 5 CARTES SERONT 
“ 






519 PRINT "TIREES.SI UNE QUELCONQUE DES CARTES EST EN DESSOUS DE 3 OU PLUS GRAND 
E QUE" 

520 PRINT "19, LE JEU EST FINI. VOUS POUVEZ PARIER JUSQU'A $30.VOTRE ARGENT" 
539 PRINT "SERA DOUBLE À CHAQUE FOIS QUE VOUS AUREZ RAISON.BONNE CHANCE ! “: PRINT 
540 PRINT "QUELLE EST LA MISE";:INPUT À 

559 IF À > 39 THEN PRINT "#*#** VOUS PARIEZ AU DELA DES LIMITES DE LA MAISON #*#*#": 
GOTO 549 

569 T=T+1:Z=INT(12*RND(1)+1) 

579 PRINT "LA CARTE NUMERO" ;T;"EST UN";Z;CHRS (8) ;".":B=B+(2*A) 

580 IF Z < 3 OR Z > 19 THEN 639 

590 IF T=5 THEN 650 

609 PRINT "VOUS JOUEZ ENCORE.VOUS AVEZ $";B;CHR$ (8) ;"." 

619 PRINT “ARRET OU POURSUITE"; : INPUT A$:IF LEFTS(A$,1)="P" THEN 569 

629 IF LEFTS(A$,1)="A" THEN 650 

639 O=0-A 

649 PRINT "VOUS AVEZ PERDU. À LA FIN DE LA PARTIE 2, VOUS AVEZ $";O;CHRS (8) ;".": 
GOTO 669 

650 PRINT "VOUS AVEZ GAGNE. À LA FIN DE LA PARTIE 2, VOUS AVEZ $";B+0;CHRS (8) ;". 
“:0=B+0 

668 PRINT:PRINT:GOSUB 19208 

679 PRINT “VOICI LE JEU DU BLACKJACK <MODELE ‘"DEALER'S CHOICE" >" 

675 PRINT 

688 PRINT "LE BUT EST DE BATTRE LE DONNEUR AVEC PLUS DE 17 OU 21 OU" 

699 PRINT "MOINS.VOUS POUVEZ MISER JUSQU'A $58.VOUS VOUS ARRETEZ QUAND VOUS VOUL 
Ez." 

695 PRINT 

719 PRINT "SI VOUS FAITES UN BLACKJACK,VOTRE ARGENT EST DOUBLE." 

710 PRINT "SI LA MAISON FAIT UN TOTAL DE MOINS DE 17 EN 6 TIRAGES," 

720 PRINT “VOUS CONCERVEZ L'ARGENT DE LA MISE.BONNE CHANCE!":PRINT 

739 Z5=9:21=0:PRINT "LE DONNEUR TIRE SES CARTES EN PREMIER": PRINT 

735 INPUT "ETES VOUS PRET" ;R$:PRINT 

749 C=0:C3=9 

758 PRINT "J'Y VAIS:" 

768 Q=INT(12*RND(1)+1) 

770 25=Q+25 

780 PRINT "LA CARTE EST UN ";Q;CHRS (8) ;".":C=C+1 

799 PRINT "LE TOTAL DU DONNEUR ATTEINT:";25;CHR$ (8) ;".":IF C=6 THEN 850 

800 IF Z5<17 THEN 769 

819 IF 25 > 21 THEN 919 

829 IF Z5=21 THEN 889 

830 IF Z5 < 21 THEN 870 

849 IF Z5 >= 17 THEN 870 

850 IF Z5 < 17 THEN 899 

868 IF Z5 >= 17 THEN 800 

879 PRINT:PRINT "J'ARRETE.MON TOTAL EST DE";Z5S;CHR$S (8) ;".":PRINT 

875 PRINT "ALLEZ Y MAINTENANT:":PRINT:GOTO 939 

880 PRINT:PRINT "J'AI UN BLACKJACK!":PRINT:GOTO 939 

898 PRINT:PRINT "LA MAISON À TIRE MOINS DE 17 POINTS.ESSAYEZ MAINTENANT" 

908 PRINT "BATTEZ MOI.";:PRINT:GOTO 938 

919 PRINT:PRINT "JE SUIS SOUFFLE. VOUS AVEZ FAIT LE PLUS GRAND TOTAL POSSIBLE" 
929 PRINT "MISE DE LA MAISON.":GOTO 1168 

930 PRINT "QUELLE EST VOTRE MISE"; : INPUT À 

949 IF À > © THEN 988 

959 IF À > 59 OR À <= 8 THEN 979 

969 IF À <= 50 THEN 999 

970 PRINT "*** VOUS MISEZ AU DELA DES LIMITES DE LA MAISON ***":GOTO 938 

980 PRINT "*#** VOUS MISEZ PLUS QUE VOUS N'AVEZ ***":GOTO 939 

999 Q1=INT(12*RND(1)+1):PRINT:PRINT "VOTRE CARTE EST UN" ;Q1;CHRS (8) ;".":C3=C3+1 
1008 Z1=Q1+Z1:PRINT "VOTRE TOTAL ATTEINT";Z1;CHR$ (8) ;"." 


45 


1905 IF Z1 > 21 THEN 1120 

1910 IF Z1 > 21 THEN 1120 

1920 PRINT:PRINT “ARRET OU POURSUITE"; : INPUT A$ 

1030 IF LEFTS(A$,1)="A" THEN 1958 

1040 IF LEFTS(AS,1)="P" THEN 999 

1958 PRINT:IF Z1=Z5 THEN 1100 

1868 IF Z1 < Z5 THEN 1129 

1076 IF Z1=21 THEN 1118 

1080 IF Z5 <ZL1 THEN 1130 

1990 IF Z1 < 17 THEN 1148 

1109 PRINT "NOUS AVONS LE MEME TOTAL,NOUS ALLONS DONC REJOUER.":GOTO 739 
1119 O=0+(2*A) :PRINT "VOUS AVEZ VAINCU LE DONNEUR AVEC UN BLACKJACK!!":GOTO 1179 
1128 O=0-(1*A) :PRINT "LE DONNEUR VOUS BAT. VOUS PERDEZ.":GOTO 1179 

1139 O=0+(1*A) :PRINT "LE DONNEUR À PERDU. VOUS GAGNEZ!":GOTO 1179 

1149 O=0+(1*A) : PRINT "LA MAISON À TIRE MOINS DE 17 EN" 

1158 PRINT "6 TIRAGES. VOUS RECUPEREZ L'ARGENT QUE VOUS AVEZ MISE!"*:GOTO 1179 
1168 O=0+58:PRINT "GARDEZ LE AVEC NOS MEILLEURS VOEUX.":GOTO 1179 

1179 PRINT:PRINT "A LA FIN DE LA PARTIE 3, VOUS AVEZ $";0;CHR$ (8) ;"." 
1188 IF O<=8 THEN 1588 

1190 PRINT:PRINT:GOSUB 19900 

1208 PRINT “VOICI MAINTENANT LA DERNIERE CHANCE.SI VOUS GAGNEZ * 

1219 PRINT "$309 VOUS POURREZ ALLER JUSQU'AU TOUR BONUS.LE BUT" 

1229 PRINT "EST DE DEVINER DANS QUELLE CATEGORIE LE TOTAL DES 5 CARTES * 
1239 PRINT "VA RENTRER.VOICI LES CATEGORIES: * : PRINT 

1240 PRINT "1 = 31-49 À 1 CONTRE 1 2 = 41<59 À 3 CONTRE 1 * 

1258 PRINT "3 = 21-31 À 3 CONTRE 1 4 = 6-20 À 20 CONTRE 1 * 

1260 PRINT:PRINT "BONNE CHANCE! ! *: PRINT 

1278 PRINT "A CET ENDROIT DU JEU VOUS AVEZ $";0O;CHR$S (8) ;".":PRINT 

1280 PRINT “QUELLE CATEGORIE VOULEZ VOUS"; : INPUT À 

1290 IF À <= 4 THEN 1329 

1300 IF À > 4 THEN 1319 

1319 PRINT “#*#*# VOUS PARIEZ SUR UNE MAUVAISE CATEGORIE #*#*#*":GOTO 1289 
1329 PRINT "QUELLE EST LA MISE"; :INPUT B:PRINT 

1330 IF B <= O THEN 1360 

1349 IF B > O THEN 1350 

1350 PRINT "#*#*#* VOUS MISEZ AU DELA DE VOS MOYENS ***":GOTO 1329 

1368 PRINT "ON ADDITIONNE MAINTENANT LES CARTES.":PRINT "BONNE CHANCE! " 
1370 Q=INT(12*RND(1)+1):C1=Cl1+1 

1388 PRINT "LA CARTE NUMERO" ;C1;"EST UN";Q;CHRS (8) ;"." 

1390 Z=Z+Q:PRINT "VOTRE TOTAL ATTEINT:";Z;CHRS (8) ;".":PRINT 

1408 IF C1=5 THEN 1429 

1419 GOTO 1370 

1420 ON À GOTO 1430,1469,1498,1528 


1430 IF Z < 31 THEN 1548 
1448 IF Z < 40 THEN 1559 
1458 IF Z > 40 THEN 1549 
1460 IF Z < 41 THEN 1549 
1478 IF Z < 50 THEN 1560 
1480 IF Z > 5@ THEN 1549 
1490 IF Z < 21 THEN 1548 
1508 IF Z < 31 THEN 1560 
1510 IF Z > 31 THEN 1540 
1520 IF Z < 6 THEN 1549 
1530 IF Z < 20 THEN 1570 


1548 O=0-(1*B) :PRINT "VOUS PERDEZ.":GOTO 1589 

1558 O=0+(1*B) :PRINT "VOUS GAGNEZ!":GOTO 1589 

1569 O=0+(3*B) :GOTO 1589 

1570 O=0+(29*B) : PRINT "VOUS GAGNEZ!":GOTO 1588 

1580 PRINT:PRINT "A LA FIN DU JEU VOUS AVEZ UN TOTAL DE $";0;CHR$(8);"." 
1590 IF O < 300 THEN 1949 

1608 FOR X=1 TO 6:PRINT CHRS (7) ;:FOR Bl=l TO S7G:NEXT BL:NEXT X 

1605 PRINT CHRS (26) 

1619 PRINT "VOUS ETES ADMIS POUR LE TOUR-BONUS."* 

1620 PRINT "VOULEZ VOUS LE JOUER"; : INPUT A$:PRINT 

1630 IF LEFTS(AS$S,1)="N" THEN 1949 

1648 PRINT "VOICI LE TOUR-BONUS.SI VOUS OBTENEZ UN TOTAL DE 1900" 
1658 PRINT "SANS TIRER UN PIQUE, VOUS GAGNEREZ UN GRAND PRIX" 

1669 PRINT "DE $19.009.00.VOUS POUVEZ VOUS ARRETER À N'IMPORTE QUEL" 


Jr PAR “MOMENT DU JEU.VOUS GARDEREZ CE QUE VOUS AVEZ GAGNE.BONNE CHANCE!" 


1699 DIM A(5) ,B(4) :A9$="PIQUES" 

1700 PRINT "LES DES ROULENT.":PRINT "BONNE CHANCE." 

1710 PRINT "LES DES SONT" 

1728 FOR Bl=1 TO 570*5:NEXT B1 

1736 X=INT(S*RND(1)+1) 

1740 A(1)=50:A(2)=100:A(3)=150:A(4)=200:A(5)=0 

1758 Y=INT(4*RND(1)+1) 

1760 B(1)=50:B(2)=100:B(3)=150:B(4)=200 

1770 IF A(X)=0 THEN 1799 

1789 PRINT "#### ";A(X)+B(Y);"####"; 

1785 PRINT "LE TOTAL ATTEINT:";A(X)+B(Y) ;CHRS (8) ;".":GOTO 1819 
1798 PRINT "#### ";A9S;B(Y);"#*##2" 

1809 PRINT "LE TOTAL ATTEINT:";B(Y) ;CHR$ (8) ;".":GOTO 1878 

1810 B7=B7+(A(X)+B(Y)):PRINT "VOUS AVEZ MAINTENANT" ;B7;CHR$ (8) ;".":PRINT 
1815 1F B7 >= 1000 THEN 1890 

1828 PRINT "ARRET OU POURSUITE" :INPUT B$ 

1838 IF LEFTS(B$S,1)="P" THEN 1700 

1840 PRINT "C'EST HABILE.VOUS GAGNEZ L'ARGENT DU DEBUT DU JEU PLUS" 
1850 PRINT "CELUI DU TOUR-BONUS.A LA FIN DU JEU VOUS AVEZ UN" 

1869 PRINT “ TOTAL FINAL DE $";B7+0;CHRS (8) ;".":GOTO 1949 

1879 PRINT "VOUS PERDEZ L'ARGENT DU DERNIER TOUR MAIS VOUS AVEZ" 
1880 PRINT “TOUJOURS UN TOTAL FINAL OF $";O;CHRS (8) ;"." 

1885 GOTO 1948 

1890 FOR T=1 TO 3:PRINT CHR$ (7) ;:FOR B1=1 TO S7G:NEXT BL:NEXT T 
1909 B7=0+10008:PRINT TAB(15) ;"*### FELICITATIONS *#*##" 

1910 PRINT "VOUS AVEZ GAGNE LE GRAND PRIX.A LA FIN DU JEU,VOUS AVEZ" 
1920 FOR P=1 TO 3:PRINT:NEXT P 

1930 PRINT TAB(18);:PRINT USING "##### SSH,#EE **#*4";D7 

1940 PRINT:PRINT "C'EST LA FIN DU JEU.J'ESPERE QUE VOUS L'AVEZ AIME." 
1958 PRINT:PRINT:LINE INPUT "ENTREZ ‘RETURN' POUR ARRETER.";XXS : 
1955 END 

10000 LINE INPUT "ENTREZ "RETURN' POUR CONTINUER. ";XXS 

19018 PRINT:PRINT:PRINT CHRS (26) 

12028 RETURN 











Ce jeu est une des versions possibles 
de « Bataille dans l'espace ». Vous jouez 
le rôle du commandant, soit d’un patrouil- 
leur, soit d'un croiseur, soit d'un bateau de 
combat. Vous choisissez les armes et le 
système planétaire où vous allez 
patrouiller. Allons, il est temps d'engager 
le combat. 

Vous avez d'autant plus de chances de 
détruire l'ennemi que vous en êtes plus 
rapproché. Bien sûr, de ce fait, vous 
augmentez aussi ses chances de vous 
atteindre. Si donc, vous vous rapprochez 
trop près de votre ennemi, cela peut vous 
causer des dégâts. Quand l'estimation 
des dégâts causés à un vaisseau atteint 
ou dépasse la valeur 100, il est détruit. 

Suggestion : vous pouvez changer le 
temps qui s'écoule entre deux comptes 
rendus. Vous écourtez ainsi le jeu car 
vous pouvez alors vous rapprocher de 
votre ennemi dans un temps moindre. 

Ce programme parut pour la première 
fois dans Creative Computing, mars-avril 
1976. 


HYPERESPACE 
CREATIVE COMPUTING 
MORRISTOWN, NEW JERSEY 


VOUS ETES DANS L'HYPERESPACE,C'EST UNE SIMULATION TACTIQUE 
DE COMBAT VAISSEAU À VAISSEAU EN HYPER-ESPACE. 


VOULEZ VOUS DES INSTRUCTIONS? OUI 


VOUS FAITES PARTI D'UN GROUPE DE CAPITAINES DESIGNES POUR PATROUILLER 


DANS UNE SECTION-FRONTIERE DE VOTRE EMPIRE GALACTIQUE 
TOUTES VOS RENCONTRES SE FERONT ICI CONTRE DES VAISSEAUX 
ENNEMIS.ON VOUS DEMANDERA D'ABORD DE CHOISIR UN VAISSEAU 
PARMI TROIS TYPES,CHACUN AYANT CES PROPRES CARACTERISTIQUES : 


TYPE VITESSE ESPACE CARGO PROTECTION 
1- VEDETTE 10X 16 1 
2- CROISER 4x 24 2 
3- VAISSEAU 2X 30 5 

DE COMBAT 


LA VITESSE DONNEE EST RELATIVE AUX AUTRES VAISSEAUX. 

L'ESPACE CARGO EST LE NOMBRE D'UNITE -ESPACE A BORD DU NAVIRE 
QUI PEUVENT ETRE REMPLIES N'ARMES. 

LA PROTECTION EST LA PUISSANCE RELATIVE DE L'ARMURE DU VAISSEAU 
ET DES CHAMPS DE FORCE. 


ENTREZ "RETURN' POUR CONTINUER. 


UNE FOIS QU'UN VAISSEAU À ETE CHOISI,ON VOUS DEMANDERA 
DE LUI CHOISIR DES ARMES DANS LA LISTE SUIVANTE: 


TYPE ESPACE-CARGO PUISS. RELAT 
1- RAMPES PHASERS 12 4 
2- MISSILE ANTI-MATIERE 4 20 
3- LANCE HYPERSPACE 4 16 
4- TORPILLE PHOTON 2 10 
5- CHAMP. NEUTRALISANT ANTI HYPERON 20 6 


LES ARMES #1 & #5 PEUVENT TIRER 100 FOIS CHACUNE; LES AUTRES NE 
PEUVENT TIRER QU'UNE FOIS . 


LE CHARGEMENT TYPIQUE D'UN CROISER PEUT CONSISTER EN: 


1-#1 RAMPES PHASER = 12 
2-#3 LANCES HYPERSPACE = 8 
2-#4 TORPILLES PHOTON = 4 


24 UNITES-CARGO 
ENTREZ '"RETURN' POUR CONTINUER. 


ATTENTION:FAIRE FEU AU MOYEN D'ARMES HAUT RAYONNEMENT A COURTE 
PORTEE (<100) PEUT ETRE DANGEREUX POUR VOTRE VAISSEAU, ET 


LES DOMMAGES MINIMUMS PEUVENT ATTEINDRE 200 DANS CERTAINES CIRCONSTANCES. 


LA PORTEE EST DONNEE EN MILLIERS DE KILOMETRES. 


Deepspace (Hyperespace) 


TABLE DES MANOEUVRES 

PHASERS FEU 

MISSILE ANTI-MATIERE FEU 

LANCE HYPERSPACE FEU 

TORPILLE PHOTON FEU 

CHAMP NEUTRALISANT ANTI HYPERON ACTIVE 
AUTO-DESTRUCTION 

CHANGEMENT DE VITESSE 

DESENGAGEMENT 

POURSUITE DE LA ROUTE 
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VOUS AVEZ LE CHOIX ENTRE TROIS SYSTEMES POUR PATROUILLER. 
1 - ORION 

2 - DENEB 

3 - ARCTURUS 

CHOISISSEZ UN SYSTEME (1-3)? 3 

QUFL NAVIRE SPACIAL VOULEZ VOUS (1-3)? 2 

VOUS AVEZ 24 UNITES D'ESPACE-CARGO À REMPLIR D'ARMES. 
CHOISISSEZ UNF ARME ET LA QUANTITÉ QUE VOUS DESIREZ? 1,1 
VOUS AVEZ 12 UNITES D'ESPACE-CARGO À REMPLIR D'ARMES. 
CHOISISSEZ UNE ARME ET LA QUANTITE QUE VOUS DESIREZ? 2,1 
VOUS AVEZ 8 UNITES D'ESPACE-CARGO À REMPLIR D'ARMES. 
CHOISISSEZ UNE ARME ET LA QUANTITE QUE VOUS DESIREZ? 3,1 
VOUS AVEZ 4 UNITÉS D'ESPACE-CARGO À REMPLIR D'ARMES. 
CHOISISSEZ UNE ARME ET LA QUANTITE QUE VOUS DESIREZ? 4,2 


DISTANCE DE LA CIBLE: 743.491 
VITESSE RELATIVE: 3.24654 
ACTION? 9 


DISTANCE DE LA CIBLE: 682.097 
VITESSE RELATIVE: 3.24654 
ACTION? 9 


HDISTANCE NE LA CIBLE: 620.703 
VITESSE RELATIVE: 3.24654 
ACTION? 7 

CHANGEMENT A EFFECTUER? .5 


DISTANCE DE LA CIBLE: 620.703 

VITESSE RELATIVE: 3.74654 

ACTION? 4 

LES RADARDS NOUS SIGNALENT DES DOMMAGES ENNEMIS DE: 4,58854 

LES RAPPORTS DES DOMMAGES NOUS SIGNALENT DES DOMMAGES DE: 5.20508 


DISTANCE DE LA CIRLE: 547.271 

VITESSE RELATIVE: 3.74654 

ACTION? 1 

LES RAPARDS NOUS SIGNALENT NES DÜMMAGES ENNEMIS DE: 5.3724 

LES RAPPORTS DES DOMMAGES NOUS SIGNALENT DES DOMMAGES DE: 11.7754 


DISTANCE DE LA CIBLE: 473.839 

VITESSE RELATIVE: 3.74654 

ACTION? 3 

LES RADARDS NOUS SIGNALENT DES DOMMAGES ENNEMIS DE: 23.1197 

LES RAPPORTS DES DOMMAGES NOUS SIGNALENT DES DOMMAGES DE: 20.3527 


DISTANCE DE LA CIBLE: 400.407 

VITESSE RELATIVE: 3.74654 

ACTION? 2 

LES RADARDS NOUS SIGNALENT DES DOMMAGES ENNEMIS DE: 47.8738 

LES RAPPORTS DES DOMMAGES NOUS SIGNALENT DES DOMMAGES DE: 32.0649 


DISTANCE DE LA CIBLE: 326.975 
VITESSE RELATIVE: 3.74654 
ACTION? 7 

CHANGEMENT À EFFECTUER? -2 


DISTANCF DE LA CIBLE: 326.975 

VITESSE RELATIVE: 1.74654 

ACTION? 1 

LES RADARDS NOUS SIGNALENT DES DOMMAGES ENNEMIS DE: 54.5828 

LES RAPPORTS DES DOMMAGES NOUS SIGNALENT DES DOMMAGES DE: 49.1026 


DISTANCE DE LA CIBLE: 298.689 
VITESSE RELATIVE: 1.74654 
ACTION? 8 

AUTRE BA TAILLE? NON 


ESSAYEZ A NOUVEAU PLUS TARDI 


Ok 


109 PRINT CHRS (26) ; TAB (24) ; "HYPERESPACE" 

119 PRINT TAB(20) ; "CREATIVE COMPUTING" 

128 PRINT TAB(18) ;""MORRISTOWN, NEW JERSEY" 

138 PRINT:PRINT 

158 PRINT "VOUS ETES DANS L'HYPERESPACE,C'EST UNE SIMULATION TACTIQUE" 
168 PRINT "DE COMBAT VAISSEAU À VAISSEAU EN HYPER-ESPACE." 

165 PRINT 

179 PRINT "VOULEZ VOUS DES INSTRUCTIONS" ; : INPUT I$ 

180 IF LEFTS(I$,1)="N" THEN 619 

198 PRINT CHRS (26) 

208 PRINT “VOUS FAITES PARTI D'UN GROUPE DE CAPITAINES DESIGNES POUR PATROUILLER 


219 PRINT"DANS UNE SECTION-FRONTIERE DE VOTRE EMPIRE GALACTIQUE" 

228 PRINT"TOUTES VOS RENCONTRES SE FERONT ICI CONTRE DES VAISSEAUX" 

230 PRINT"ENNEMIS.ON VOUS DEMANDERA D'ABORD DE CHOISIR UN VAISSEAU" 

249 PRINT"PARMI TROIS TYPES,CHACUN AYANT SES PROPRES CARACTERISTIQUES : * 








269 PRINT:PRINT "  TYPE"," VITESSE", "ESPACE CARGO", "PROTECTION" 
265 PRINT " = DR 

279 PRINT "l- VEDETTE"," 10x","  16"," 1" 

280 PRINT "2- CROISER"," ax"," 24"," 2" 

298 PRINT "3- VAISSEAU DE COMBAT"," 2X"," 307,7, 5" 


310 PRINT:PRINT"LA VITESSE DONNEE EST RELATIVE AUX AUTRES VAISSEAUX." 
320 PRINT"L'ESPACE CARGO EST LE NOMBRE D'UNITE -ESPACE À BORD DU NAVIRE" 
330 PRINT "QUI PEUVENT ETRE REMPLIES D'ARMES." 


340 PRINT"LA PROTECTION EST LA PUISSANCE RELATIVE DE L'ARMURE DU VAISSEAU" 


350 PRINT "ET DES CHAMPS DE FORCE." 

369 GOSUB 10800 

370 PRINT:PRINT "UNE FOIS QU'UN VAISSEAU À ETE CHOISI,ON VOUS DEMANDERA" 
389 PRINT"DE LUI CHOISIR DES ARMES DANS LA LISTE SUIVANTE:" 





398 PRINT 

48@ PRINT " TYPE ESPACE-CARGO PUISS. RELAT" 
405 PRINT " rennes a" 
419 PRINT "l- RAMPES PHASERS 12 4" 
429 PRINT "2- MISSILE ANTI-MATIERE 4 28" 
439 PRINT "3- LANCE HYPERSPACE 4 16" 
448 PRINT "4- TORPILLE PHOTON 2 19" 
450 PRINT "S- CHAMP NEUTRALISANT ANTI HYPERON 29 6" 


470 PRINT:PRINT "LES ARMES #1 & #5 PEUVENT TIRER 199 FOIS CHACUNE; LES AUTRES NE 
" 


480 PRINT"'PEUVENT TIRER QU'UNE FOIS ." 
485 PRINT 
490 PRINT "LE CHARGEMENT TYPIQUE D'UN CROISER PEUT CONSISTER EN:" 


500 PRINT " 1-#1 RAMPES PHASER = 12" 
519 PRINT " 2-#3 LANCES HYPERSPACE = 8" 
520 PRINT " 2-#4 TORPILLES PHOTON = 4" 


530 PRINT " —_—" 
549 PRINT " 24 UNITES-CARGO" 
545 GOSUB 10008 


552 PRINT"ATTENTION:FAIRE FEU AU MOYEN D'ARMES HAUT RAYONNEMENT À COURTE" 


560 PRINT'PORTEE (<198) PEUT ETRE DANGEREUX POUR VOTRE VAISSEAU ,ET" 


570 PRINT"LES DOMMAGES MINIMUMS PEUVENT ATTEINDRE 298 DANS CERTAINES CIRCONSTANC 


ES." 

598 PRINT:PRINT"LA PORTEE EST DONNEE EN MILLIERS DE KILOMETRES." 
689 GOTO 644 

619 PRINT"VOULEZ VOUS UN TABLEAU DES MANOEUVRES"; : INPUT M$ 

620 IF LEFT$(M$,1)="N" THEN 779 


649 PRINT 

658 PRINT " TABLE DES MANOEUVRES":PRINT " —_——— 
670 PRINT " 1 PHASERS FEU" 

689 PRINT " 2 MISSILE ANTI-MATIERE FEU" 

690 PRINT " 3 LANCE HYPERSPACE FEU" 

700 PRINT " 4 TORPILLE PHOTON FEU" 

718 PRINT "5 CHAMP NEUTRALISANT ANTI HYPERON ACTIVE" 
720 PRINT " 6 AUTO-DESTRUCTION" 

730 PRINT " 7 CHANGEMENT DE VITESSE" 

749 PRINT " 8 DESENGAGEMENT" 

750 PRINT “ 9 POURSUITE DE LA ROUTE" 


770 PRINT:PRINT "VOUS AVEZ LE CHOIX ENTRE TROIS SYSTEMES POUR PATROUILLER." 


780 PRINT "1 - ORION" 

799 PRINT "2 - DENEB" 

899 PRINT "3 -— ARCTURUS" 

812 PRINT "CHOISISSEZ UN SYSTEME (1-3)";:INPUT S9 
820 IF S9=1 THEN 2380 

830 IF S9=2 THEN 2430 

849 GOTO 2489 

850 DO=0 

869 D1=0 

878 N1=0 

880 N2=0 

899 N3=0 

998 N4=0 

919 D=0 

920 PRINT "QUEL NAVIRE SPATIAL VOULEZ VOUS (1-3)";:INPUT S 
939 ON S GOTO 1799,1839,1870 

969 GOTO 929 

978 C=CO 

989 PRINT "VOUS AVEZ";C;"UNITES D'ESPACE-CARGO À REMPLIR D'ARMES." 
998 PRINT "CHOISISSEZ UNE ARME ET LA QUANTITE DESIREE" ; : INPUT W,N 
1990 ON W GOTO 1919,2819,2198,2190,2288 

1950 GOTO 989 

1968 IF N*C1>C THEN 2538 

1079 C=C-N*C1 

1088 ON W GOTO 1990,2089,2178,2260 

1129 GOTO 2369 

1139 IF C>1 THEN 989 

1149 REM 

1159 S1=S2*RND (4) 

1169 R=(3*RND(8) +5) *199 

1189 PRINT:PRINT "DISTANCE DE LA CIBLE:";R 
1199 PRINT "VITESSE RELATIVE:";S1 

1209 PRINT "ACTION"; :INPUT M 

1219 ON M GOTO 1949,2930,2120,2210,2310,1669,1390,2760 
1290 IF R<590 THEN 1509 

1300 IF S1>G THEN 1330 

1319 R=R+(S1*8.3) "1.25 

1320 GOTO 1349 

1339 R=R-(51*8.3) "1.25 

1349 IF R>1509 THEN 2599 

1350 IF R>9 THEN 1379 

1360 R=-R 

1370 PRINT 

1389 GOTO 1189 

1399 PRINT "CHANGEMENT À EFFECTUER" ; : INPUT S2 
1409 IF (S1+S2)>S8 THEN 2559 

1419 S1=S1+S2 

1429 GOTO 1189 

1430 FO=P1* (2/R) "1.5 

1440 REM 

1450 DO=(2*F9+3*FO*RND (2) )/5 

1469 D=D+D0 

1478 PRINT "LES RADARDS NOUS SIGNALENT DES DOMMAGES ENNEMIS DE:";D 
1480 IF D>99 THEN 2729 

1499 GOTO 1519 

1500 DO=8 

1518 REM 

1528 K=E1+E2*RND (0) 

1538 REM 

1549 E=E3+E4*RND (2) +5/PD*RND (8) 

1550 REM 

1568 F3=E* (K/R) "1.85 

1570 D2=(3*F3+3*F3*RND())/5.5 

1589 D1=D1+D2 

1599 1F (Z*D0)/(R*590)>2.2 THEN 1629 
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1699 
1618 
1629 
1638 
1649 
1658 
1669 
1678 
1688 
1698 
1708 
1718 
1728 
1730 
1749 
1750 
1769 
1770 
1788 
1798 
1808 
1819 
1828 
1830 
1848 
1858 
1869 
1870 
1888 
1898 
1908 
1919 
1938 
1949 
1950 
1960 
1978 
1988 
1998 
2000 
2819 
2020 
2030 
2848 
2050 
2068 
2878 
2080 
2090 
2100 
2118 
2128 
2138 
2148 
2158 
2168 
2178 
2180 
2198 
2200 
2210 
2220 
2230 
2248 
2250 
22608 
2270 
2280 
2290 
2300 
2319 
2320 
2330 
2340 
2350 
2368 
2370 
2380 
2390 
2400 
2419 
2428 
2430 
2440 
2450 
2469 
2478 
2480 
2490 
2508 
2518 
2520 
2530 
2548 
2558 
2569 
2570 
2580 
2598 
2609 
2619 
2628 
2630 
2648 
2650 
2668 
2670 
2689 
2698 
2709 
2718 
2728 
2730 
2748 
2768 
2770 
2788 
2798 


D3=D8*2/ (R°2*P8) 

D1=D1+D3 

PRINT "LES RAPPORTS NOUS SIGNALENT DES DOMMAGES DE:";D1 
IF D1»>99 THEN 2749 

IF D>99 THEN 2760 

GOTO 1388 

PRINT "LE SYSTEME D'AUTO-DESTRUCTION EST ENCLENCHE! !" 
PRINT “INTRODUISEZ 1 POUR LE DESAMORCER" ; : INPUT U 
IF U=1 THEN 1700 

GOTO 1298 

PRINT “AUTO-DESTRUCTION ACCOMPLIE. " 

IF R>69 THEN 1749 

PRINT “VAISSEAU ENNEMI DETRUIT AUSSI." 
GOTO 2764 

D4=3208/R 

D=D+D4 

IF D»>99 THEN 1728 

PRINT "LE VAISSEAU ENNEMI À SURVECU AVEC DES DOMMAGES DE:";D; 
GOTO 2768 

Sa=10 

ce=16 

Pe=1 

GOTO 978 

S0=4 

Ce=24 

Pa=2 

GOTO 978 

S0=2 

Ce=30 

PO=5 

GOTO 978 

C1=12 

GOTO 1268 

P1=4 

IF N1=0 THEN 2160 

NI=N1-1 

zZ=200 

GOTO 1438 

NI=NI4#N 

GOTO 1130 

C1=4 

GOTO 1868 

P1=28 

IF N2=0 THEN 2649 

N2=N2-1 

Z=500 

GOTO 1438 

N2=N2+N 

GOTO 1130 

C1=4 

GOTO 1868 

P1=16 

IF N3=0 THEN 2660 

N3=N3-1 

Z=550 

GOTO 1438 

N3=N3+N 

GOTO 1138 

C1=2 

GOTO 1268 

P1=19 

IF N4=0 THEN 2688 

N4=N4-1 

Z=400 

GOTO 1430 

N4=N44#N 

GOTO 1139 

ci=.2 

N=100 

GOTO 1968 

P1=6 

IF N5S=@ THEN 2708 

NS=NS-1 

Z=250 

GOTO 1439 

NS=NS4N 

GOTO 1138 

El=158 

E2=508 

E3=3 

E4=4 

GOTO 850 

E1=208 

E2=350 

E3=4 

E4=3 

GOTO 850 

El=158 

E2=400 

E3=5 

E4=2 

GOTO 850 

PRINT "PAS SUFFISAMMENT D'ESPACE.RECHOISISSEZ ." 
GOTO 988 

PRINT “CHANGEMENT AU DELA DU MAXIMUM POSSIBLE." 
PRINT “AUGMENTATION MAXIMUM. * 

S1=S0 

GOTO 1300 

PRINT “HORS DE LA PORTEE DES SENSEURS.DESENGAGEMENT AUTOMATIQUE." 
GOTO 2768 

PRINT "RAMPES PHASER VIDES." 

PRINT “CHOISISSEZ UNE AUTRE METHODE D'ACTION." 
GOTO 1200 

PRINT"TOUS LES MISSILES ANTI-MATIERE SONT EPUISES."* 
GOTO 2629 

PRINT "TOUTES LES LANCES HYPERESPACE SONT EPUISEES." 
GOTO 2628 


PRINT "TOUS LES TUBES TORPILLES PHOTON VIDES." 
GOTO 2629 

PRINT "CHAMP NEUTRALISANT ANTI-HYPERON EPUISE." 
GOTO 2628 

PRINT "VAISSEAU ENNEMI DETRUIT!"* 

GOTO 1518 

PRINT “VOTRE VAISSEAU À ETE DETRUIT!" 


PRINT “AUTRE BATTAILLE";:INPUT R$ 

IF LEFTS(R$,1)="O" THEN 819 

PRINT:PRINT "ESSAYEZ À NOUVEAU PLUS TAPD!":PRINT 
END 


10008 PRINT:LINE INPUT "ENTREZ ‘RETURN' POUR CONTINUER. ";XXS 
12810 PRINT CHRS (26) 
19829 RETURN 


Defuse (Désamorçage) 








DESAMORCAGE 
CREATIVE COMPUTING 
MORRISTOWN, NEW JERSEY 


VOUS ETES DANS UN IMMEUBLE EXPERIMENTAL QUI CONTIENT 
1,000,000 DE CHAMBRES. L'IMMEUBLE FAIT 100 CHAMBRES 
DE LONG (0-99), 100 CHAMBRES DE PROFONDEUR (0-99), 
9). 


UNE BOMBE EST CACHEE A L'INTERIEUR. 
S'AMPLIFIE SI VOUS VOUS APPROCHEZ. 
POUR LA DESAMORCER. 


ELLE EMET UN SIGNAL QUI 
VOUS AVEZ 200 SECONDES 


AND 100 CHAMBRES DE HAUT (0-9 


Au cours de ce jeu, vous vous trouvez 
dans un immeuble expérimental qui 
contient Un million de chambres. 
L'immeuble fait cent chambres de long, 
cent chambres de profondeur et cent 
chambres de haut. 

Vous venez de recevoir un coup de 
téléphone d’un artificier fou qui vous a 
annoncé qu'il avait caché une bombe 
quelque part dans l'immeuble. Vous 
disposez heureusement d’un détecteur de 
bombe qui émet un signal de plus en plus 
fort quand vous vous rapprochez de la 
bombe. Vous commencez en bas à droite 
de l'immeuble, dans la chambre 0,0,0. En 
suivant les indications du signal que vous 
donne votre détecteur, vous pouvez 
essayer de chercher la bombe dans une 
nouvelle chambre toutes les dix 
secondes. Vous avez deux cents 
secondes, soit dix essais pour la trouver. 

Il est assez facile de trouver la bombe 
une fois que vous avez commencé à 
comprendre comment marche votre 
détecteur. Mais nous n'allons quand 
même pas vous le dévoiler et vous en dire 
le secret. 











SIGNAL L P H SEC COORDONNEES (L,P,H) 
6869.76 0 0 Q 0 ? 90,90,90 
4039.34 90 90 90 10 ? 80,80,90 
4049.44 80 80 90 20 ? 80,80,80 
5049.44 80 80 80 30 ? 80,80,70 
6049.44 80 80 70 40 ? 90,80,70 1 PRINT CHR$ (26) ; TAB (26) ; "DESAMORCAGE" 
6049.34 90 80 70 50 ? 80,90,70 2 PRINT TAB (20) ; "CREATIVE COMPUTING" 
6039.44 80 90 70 60 ? 80,80,60 3 PRINT TAB(18);"MORRISTONN, NEW JERSEY" 
7049.44 80 80 60 70 ? 80,80,50 4 PRINT:PRINT:PRINT 
8049.44 80 80 50 80 ? 80,80,40 18 PRINT "VOUS ETES DANS UN IMMEUBLE EXPERIMENTAL QUI CONTIENT" 
9049.44 80 80 40 90 ? 80,80,20 20 PRINT "1,000,009 DE CHAMBRES. L'IMMEUBLE FAIT 108 CHAMBRES" 
8950.56 80 80 20 100 ? 80,80,30 30 PRINT "DE LONG (8-99), 199 CHAMBRES DE PROFONDEUR (2-99), AND 190 CHAMBRES DE HAUT (9-99) ." 
9950.56 80 80 30 110 ? 80,80,31 49 PRINT:PRINT "UNE BOMBE EST CACHEE À L'INTERIEUR. ELLE EMET UN SIGNAL QUI " 
9949.44 80 80 31 120 ? 80,80,29 5@ PRINT "S'AMPLIFIE SI VOUS VOUS APPROCHEZ. VOUS AVEZ 208 SECONDES" 
9850.56 80 BO 29 130 ? 81,80,30 68 PRINT "POUR LA DESAMORCER. * 
9950.57 81 80 30 140 ? 82,80,30 70 PRINT:A=INT (189*RND (1) ):B=INT (188#RND(1)) 
9950.58 82 80 30 150 ? 85,80,30 80 C=INT(108*RND(1)):IF A>@ THEN 99 
9950.61 85 80 30 160 ? 90,80,30 85 IF B>0 THEN 90 
9950.66 90 80 30 170 ? 90,90,30 87 IF C=0 THEN 80 
9960.66 90 90 30 180 ? 95,95,30 99 D=0:E=0:F=0:G=9 
9965.71 95 95 30 190 ? 97,97,30 190 PRINT "SIGNAL" ;TAB (15) ;"L";TAB (28) ;""P";TAB (25) ; "H"; 
105 PRINT TAB (35) ; "SEC"; TAB (58) ; "COORDONNEES (L,P,H)" 
BOOOOOOMMM! ! ! 196 PRINT " "TAB (14) ;"—";TAB (19) ;"—"; TAB (24) ;"—"; 
VOUS EXPLOSEZ .L'IMMEUBLE EXPLOSE. TAB (35) 3 "—" TAB (59); —_———— ©" 
LA BOMBE SE TROUVAIT AUX COORDONNEES (L,P,H): 24 30 31 119 PRINT USING "####.#4#";10000-ABS ((A/100+B+C*100)-(D/100+E+F*100) ); 
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VOULEZ-VOUS ENCORE JOUER? OUI 124 

125 
SIGNAL L P H SEC COORDONNEES (L,P,H) 127 
nue SSSR Fee nn ]30 
2194.49 0 0] 0 0 ? 0,0,50 135 
7194.49 0 0 50 10 ? 0,0,60 148 
8194.49 0 0 60 20 ? 0,0,70 145 
9194.49 0 0 70 30 ? 0,0,90 150 
8805.51 Q 0 90 40 ? 0,0,80 169 
9805.51 0 0 80 50 ? 10,0,80 165 
9805.41 10 0 80 60 ? 0,10,80 178 
9795.51 0 10 80 70 ? 0 0,85 189 
9305.51 0 0 85 80 ? 0,0,79 183 
9905.51 a 0 79 90 ? 10,0 7” 185 
9905.41 10 0 79 100 ? 0,0,78 187 
9994.49 0 0 78 110 ? 0,0,77 199 
9894.49 Q O 77 120 ? 10,10,78 195 
9995.41 10 10 78 130 ? 20,20,78 197 
9985.31 20 20 78 140 ? 15,15,78 200 
9990.36 15 15 78 150 ? 11,11,78 285 
9994.40 \1r FAT 78 160 ? 11,10,78 219 
9995.40 11 10 78 170 ? 10,11,78 215 
9994.41 10 11 78 180 ? 10,10,78 220 
9995.41 10 10 78 190 ? 10,10,79 230 

248 
BOOOOOOMMMI ! ! 258 
VOUS EXPLOSEZ .L'IMMEUBLE EXPLOSE. 268 
LA BOMBE SE TROUVAIT AUX COORDONNEES (L,P,H): 51 5 78 278 
VOULEZ-VOUS ENCORE JOUER? NON 999 


PRINT TAB(13);:PRINT USING "### ### #44 LLL DE 
D,E,F,G;:PRINT TAB (58); 

INPUT D,E,F:G=G+19:1F AC>D THEN 139 

IF B@E THEN 138 

IF C=F THEN 179 

IF G=299 THEN 149 

GOTO 189 

PRINT:PRINT "BOOOOOOMMM! ! !":PRINT "VOUS EXPLOSEZ .L'IMMEUBLE EXPLOSE. " 
PRINT "LA BOMBE SE TROUVAIT AUX COORDONNEES (L,P,H):";A;B;C:PRINT 
PRINT:PRINT "VOULEZ-VOUS ENCORE JOUER" ; 

INPUT Z$:1F LEFTS$(Z$,1)="O" THEN 79 

GOTO 999 

PRINT "LA BOMBE À ETE DESAMORCEE EN ";G; "SECONDES! ! !":GOTO 158 

IF D>99 THEN 288 

IF D< THEN 208 

IF E>99 THEN 200 

IF E<@ THEN 200 

IF F»>99 THEN 229 

IF F<9 THEN 239 

GOTO 119 

PRINT "VOUS PASSEZ À TRAVERS UNE FENETRE AU";:1F F<4 THEN 249 
PRINT F;"IEME ETAGE!!!" 

PRINT "VOUS ETES MORT ET"; 204-G;"SECONDES PLUS TARD L'IMMEUBLE" 
PRINT "EXPLOSE! !!":GOTO 159 

PRINT "VOUS ETES MAINTENANT" ;F#9; "PIEDS AU DESSUS DU SOL!11":GOTO0 219 
PRINT "VOUS ETES MAINTENANT" ;-1* (F#9) "PIEDS SOUS TERRE! !1"*:GOTO 219 
ON F GOTO 258,268,270 

PRINT “ PREMIER ETAGE! 11":GOTO 218 

PRINT * SECOND ETAGE! !1":GOTO 218 

PRINT * 3IEME ETAGE! 1!":GOTO 219 

END 
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DODGEM 
5 ; CREATIVE COMPUTING 
7 ste MORRISTOWN NEW JERSEY 
s % VOULEZ VOUS LE MODE D'EMPLOI DE DODGEM? OUI 


VOICI UN SIMPLE TABLEAU DE JEU: 


+. BUD 


ABCD 

DEUX FAMILLES DE PIECES (CHIFFRES ET LETTRES) CONCOURRENT A 
PARTIR DES ANGLES DROITS 

A TRAVERS UN CARRE.LES LIEUX VACANTS SONT MONTRES 
PERIODIQUEMENT. 

VOUS CHOISISSEZ LA DIMENSION DU TABLEAU (CELUI QUI EST AU 


DESSUS À UNE TAILLE DE 5.) 
N 


O---E 

s 
LE BUT EST DE DEPLACER TOUTES VOS PIECES A TRAVERS LE TABLEAU 
VERS LE BORD OPPOSE.LES CHIFFRES NE QUITTENT LE TABLEAU QUE 


PAR LE COTE EST;LES LETTRES SEULEMENT PAR LE NORD.LE VAINQUEUR 
EST LE JOUEUR DONT LES PIECES ONT TOUTES QUITTEES LE TABLEAU. 


ENTREZ ‘RETURN'POUR CONTINUER. 


LES JOUEURS JOUENT À TOUR DE ROLE,DEPLACANT UNE DE LEURS PIECES 

VERS UN LIEU ADJACANT VACANT. 

IL N'Y À PAS DE DEPLACEMENT EN DIAGONALE,PAS DE SAUTS,NI 

CAPTURES. 

LES CHIFFRES NE PEUVENT PAS ALLER VERS L'OUEST,NI LES LETTRES VERS LE SUD. 


POUR DEPLACER UNE PIECE,TAPEZ SON NOM ET LA PREMIERE LETTRE 
DE LA DIRECTION DESIREE. EXEMPLES : 

2E SIGNIFIE QUE LA PIECE 2 VEUT ALLER VERS L'EST 

BO SIGNIFIE QUE LA PIECE B VEUT ALLER VERS L'OUEST. 


N.B:VOUS PERDEZ LE JEU SI VOTRE DEPLACEMENT EMPECHE VOTRE 
ADVERSAIRE DE SE DEPLACER. 


ENFIN,VOUS POUVEZ TAPER R POUR VOUS RENDRE ET À POUR 
DEMANDER DE L'AIDE. 


DIMENSION DU TABLEAU (3-6)? 4 

COMBIEN Y A T IL DE JOUEURS (1 OU 2)? 1 
D'ACCORD, L'ORDINATEUR S'OCCUPE DES CHIFFRES, 
QUI COMMENCE (1=ORDINATEUR, 2=VOUS)? 2 


ALLONS Y... 





1 
2 
3 . . . 
À B C 
LETTRES BOUGENT? AN 
LES CHIFFRES SE DEPLACENT: 1E 


LETTRES BOUGENT? BN 
LES CHIFFRES SE DEPLACENT: 2E 


Ce jeu a été conçu en 1972 par Colin 3 


Vout, alors étudiant à l'Université de 
Cambridge. Martin Gardner en a fait une 


Dr 


c 


LETTRES BOUGENT? BN 


LES CHIFFRES SE DEPLACENT: lE 

très grande publicité en le citant dans la è 
revue Scientific American en juin 1975. 2 B 
Des instructions complètes sont données A 
dans : listing d'exécution donné en CR 
exemple. LES CHIFFRES SE DEPLACENT: lE 

Il peut se jouer à deux joueurs, auquel i 
cas l'ordinateur sert d’arbitre, ou à un seul 2 B . 
joueur ayant l'ordinateur comme adver- Pen 
saire. Soit dit en passant, l'ordinateur joue SR ne 
singulièrement bien, ce qui n'a rien LES CHIFFRES SE DEPLACENT: 1E 


d'étonnant puisque Dodgem a été écrit 
par le très talentueux et prolifique Mac 
Oglesby. 
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LETTRES BOUGENT? BN 600 LET D$(J,K)="." 





LES CHIFFRES SE DEPLACENT: 2E 619 NEXT K 
620 GOTO 670 
+ B + 630 LET D$(J,1)="." 
cu 2e 648 FOR K=2 TO À 
PS el 659 LET DS (J,K) =CHRS (63+4K) 
ne 668 NEXT K 
678 NEXT J 
LETTRES BOUGENT? BN 699 PRINT "COMBIEN Y À T IL DE JOUEURS (1 OU 2)"; 
LES CHIFFRES SE DEPLACENT: 2S 700 INPUT B 
É 719 IF 8=2 THEN 800 
Me 720 IF B=1 THEN 749 
ge nai Le LE 730 GOTO 699 
SA 20: 748 PRINT “D'ACCORD, L'ORDINATEUR S'OCCUPE DES CHIFFRES." 
ere 750 PRINT "QUI COMMENCE (1=ORDINATEUR, 2=VOUS)"; 
766 INPUT F 
LETTRES BOUGENT? AN 770 IF (2-F)*(1-F)=0 THEN 800 
LES CHIFFRES SE DEPLACENT: 2E 789 PRINT "S'IL VOUS PLAIT TAPEZ 1 OU 2 MAINTENANT, "; 
799 GOTO 759 
M CRE À 800 PRINT 
VA cas CG 819 PRINT "ALLONS Y..." 
di 3: à 2 840 PRINT 
NRC 850 FOR J=1 TO À 
869 FOR K=1 TO À 
LETTRES BOUGENT? AN 870 PRINT " "DS (J,K); 
LES CHIFFRES SE DEPLACENT: 3E 889 NEXT K 
890 PRINT 
FA. à 908 NEXT J 
40 919 PRINT 
NS s-2 958 FOR J=F TO 3-F STEP 3-2*F 
me 968 REM 
988 FOR J1=1 TO A-1 
LETTRES BOUGENT? AN 998 LET R=INT(P(J,91)/10) 
LES CHIFFRES SE DEPLACENT: 2E 1998 LET C=P(J,J1)-10%R 
1920 ON J GOTO 1940,1100 
à : 1040 IF C=A THEN 1080 
7 c 1950 IF C > À THEN 1970 
TR 1968 GOTO 1160 
CRETE 1979 GOTO 1250 
1989 GOTO 1300 
LETTRES BOUGENT? CN 1108 IF R=1 THEN 1140 
LES CHIFFRES SE DEPLACENT: 3E 1119 IF R=0 THEN 1130 
1129 GOTO 1160 
D - 1138 GOTO 1259 
Ga 1149 GOTO 1309 
SRE: 1160 REM 
RUE 1165 IF DS(R-1,C)="." THEN 1240 
1179 IF DS(R,C+1)="." THEN 1240 
LETTRES BOUGENT? CN 1180 IF J=2 THEN 1220 
1199 IF DS(R#1,C)="." THEN 1219 
*** LES LETTRES GAGNENTIII *#** 1208 GOTO 1259 


12109 GOTO 1300 
1228 IF D$(R,C-1)="." THEN 1240 


ESSAYEZ ENCORE? NON 
1230 GOTO 1258 


ok 1249 GOTO 1390 
1245 PRINT "BBS—1245",J1 
1250 NEXT J1 
1269 PRINT "LES ";C$(3-J);" N'ONT PAS LE DROIT DE BOUGER POUR LES “;C$(J);"1" 
1278 PRINT "LES ";CS(J);" GAGNENT! 1!" 
1289 GOTO 3539' WAS STOP 
1300 IF B=2 THEN 1750 
1310 IF J=2 THEN 1750 
1348 LET L1=2 
1359 FOR LO=1 TO 3 
1379 ON LG GOT 1450,1380,1430 
1380 IF RND(1) < .5 THEN 1419 
1398 LET Li=1 
1488 GOTO 1458 
1419 LET L1=3 
19 PRINT CHRS (26) ;TAB (24) ;""DODGEM" 1428 GOTO 1459 
26 PRINT TAB (18) ; "CREATIVE COMPUTING" 1430 LET L1=4-L] 
38 PRINT TAB(16) ;"MORRISTONN NEW JERSEY" 1459 LET P1=INT(RND(1) *A) 
48 PRINT:PRINT 1469 FOR L2=1 TO A-1 
240 PRINT "VOULEZ VOUS LE MODE D'EMPLOI DE DODGEM"; 1470 LET P1=P1+1 
250 INPUT A$ 1480 IF PL <= A-l THEN 1500 
268 GOSUB 2959 1498 LET Pl=P1-(A-1) 
278 IF LEFTS(A$,1) <> "O* THEN 298 1508 LET R=INT(P(J,P1)/18) 
280 GOSUB 3139 1519 LET C=P(J,P1)-18*R 
298 PRINT:PRINT "DIMENSION DU TABLEAU (3-6)"; 1520 IF C > À THEN 1728 
308 INPUT À 1548 ON L1 GOTO 1570,1620,1698 
319 LET A=INT(A) 1579 IF DS$S(R-1,C)="." THEN 1590 
320 IF (6-A)*(A-3) >= 9 THEN 340 1589 GOTO 1728 
330 GOTO 298 1599 GOTO 2098 
349 LET P(1,0)=A-l:LET P(2,0)=A-1 1620 IF D$S(R,C+1)="." THEN 1669 
380 FOR J=1 TO A-1 1639 IF C=A THEN 1659 
390 LET P(l1,J)=10#J+1 1648 GOTO 1728 
490 NEXT J 1658 LET P(J,8)=P(J,8)-1 
420 FOR J=1 TO A-1 1669 GOTO 2168 
430 LET P(2,J)=10*A#J+1 1690 IF D$(R+1,C)="." THEN 1719 
448 NEXT J 1790 GOTO 1720 
469 LET F=1 1718 GOTO 2239 
470 LET M$(1)="NES" 1729 NEXT L2 
489 LET M$(2)="NE 0" 1730 NEXT LO 
498 LET C$(1)="CHIFFRES" 1748 GOTO 1268 
509 LET C$(2)="LETTRES" 1759 PRINT C$(J);" BOUGENT"; 
519 LET AS$(1)="1234567" 1768 INPUT A$ 
529 LET AS (2)="ABCDEFG" 1778 GOSUB 2959 
569 FOR J=1 TO À 1799 IF LEFTS(AS,1)="R" THEN 2868 
570 IF J=A THEN 639 1809 IF LEFTS(AS,1)="A" THEN 2468 
589 LET DS(J,1) =CHRS (48#J) 1819 LET AS=MIDS(AS,1,2) 
599 FOR K=2 TO À 1811 P1=8 
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1813 FOR B9=1 TO A-1 2819 IF D$(R,C-1) <> "." THEN 2830 






1815 IF MIDS(A$(J),B9,1)=MIDS(A$,1,1) THEN P1=B9 2820 PRINT “ ";PS;"W"; 

1817 NEXT BQ 2830 NEXT J3 

1839 IF Pl=0 THEN 2430 284ÿ PRINT 

1832 LET P2=Q 2858 GOT 1758 

1834 FOR Bg=1 TO 4 2869 PRINT "LES ";C$(J);" ABANDONNENT! !" 

1836 IF MIDS(MS(J) ,B9,1)=MIDS(A$,2,1) THEN P2=B0 2870 PRINT "#*** LES ";C$(3-J);" GAGNENT!!! ###" 

1838 NEXT B9 2880 GOTO 3538' WAS END 

1850 IF P2=Q0 THEN 2430 2990 NEXT J 

1868 LET R=INT(P(J,P1)/18) 2918 GOTO 844 

1870 LET C=P(J,P1)-10*R 2950 IF LEN(AS)>19 THEN 3090 

1889 IF R=0 THEN 2439 2960 LET C1=4 

1899 IF C > À THEN 2439 2963 FOR Bÿ=1 TO LEN(AS) 

1918 ON J GOTO 1939,1990 2965 LET A(B0)=ASC(MIDS (AS,B0, 1) ) 

1939 IF C < À THEN 1979 2976 NEXT BU 

1940 IF P2 <> 2 THEN 1979 2975 LET A(2)=LEN(AS$) 

1950 LET P(1,8)=P(1,0)-1 2989 FOR J2=1 TO A(4) 

1969 GOTO 2168 2999 IF A(J2)<96 THEN 3010 

1978 GOTO 2049 3000 LET A(J2)=A(J2)-32 

1999 IF R > 1 THEN 2040 3010 IF (57-A(J2))*(A(J2)-48) >= 8 THEN 3044 

2000 IF P2 <> 1 THEN 2949 3020 IF (94-A(J2))*(A(J2)-65) >= U THEN 3840 

2918 LET P(2,@)=P(2,@)-1 3630 GOTO 3060 

2928 GOTO 2890 3049 LET C1=C1+1 

2848 ON P2 GOTO 2978,2140,2210,2280 3058 LET A(C1)=A(J2) 

2970 IF D$(R-1,C)="." THEN 2090 3068 NEXT J2 

2080 GOTO 2430 3070 LET A(6)=C1 

2990 LET D$(R-1,C)=MIDS (A$(J),P1,1) 3073 LET A$="" 

2190 LET P(J,Pl1)=P(J,P1)-19 3075 FOR B9=1 TO A(0) 

2119 GOTO 2339 3077 LET AS=AS+CHRS (A (B@) ) 

2149 IF D$(R,C+1)="." THEN 2169 3080 NEXT B0 

2159 GOTO 2439 3099 RETURN 

2169 LET D$(R,C+1) = MID$S(AS$S(J),P1,1) 3138 PRINT CHR$ (26) 

2179 LET P(J,P1)=P(J,P1)+1 3149 PRINT "VOICI UN SIMPLE TABLEAU DE JEU:" 

2189 GOTO 2330 3156 PRINT 

2219 IF D$(R+1,C)="." THEN 2239 3160 PRINT "1 . . . ." 

22286 GOTO 2439 3170 PRINT "2 . . . ." 

2230 LET D$(R+1,C)=MID$S(AS(J) ,P1,1) 3180 PRINT "3 . . . ." 

2240 LET P(J,Pl)=P(J,P1)+10 3190 PRINT "4 . . . ." 

2250 GOTO 2330 3200 PRINT ". À B C D" 

2280 IF D$(R,C-1)="." THEN 2300 3210 PRINT 

2299 GOTO 2430 3229 PRINT "DEUX FAMILLES DE PIECES (CHIFFRES ET LETTRES) CONCOURRENT A" 
2300 LET D$(R,C-1)=MIDS (AS (J),P1,1) 3225 PRINT "PARTIR DES ANGLES DROITS" 

2319 LET P(J,P1)=P(J,P1)-1 3230 PRINT "A TRAVERS UN CARRE.LES LIEUX VACANTS SONT MONTRES" 

2330 LET D$S(R,C)="." 3235 PRINT “PERIODIQUEMENT. " 

2340 IF B=2 THEN 2380 3240 PRINT "VOUS CHOISISSEZ LA DIMENSION DU TABLEAU (CELUI QUI EST AU 
2350 IF J=2 THEN 2389 3254 PRINT “DESSUS À UNE TAILLE DE 5.)" 

2360 PRINT "LES CHIFFRES SE DEPLACENT: ";MIDS(AS(J) ,P1,1); 3260 PRINT “ N" 

2365 PRINT MID$(M$(J),L1,1) 3270 PRINT " :" 

2380 IF P(J,0) <> @ THEN 2429 3280 PRINT "O——E" 

2390 PRINT 3290 PRINT “ :" 

2480 PRINT "#**# LES ";C$(J);" GAGNENTI I! *##" 3306 PRINT “ S" 

2419 GOTO 3539" WAS END 3318 PRINT 

2420 GOTO 2900 3320 PRINT "LE BUT EST DE DEPLACER TOUTES VOS PIECES À TRAVERS LE TABLEAU" 
2430 PRINT "DEPLACEMENT ILLEGAL OU MAUVAISE ENTREE." 3330 PRINT "VERS LE BORD OPPS:C.LES CHIFFRES NE QUITTENT LE TABLEAU QUE" 
2449 PRINT "ENTREE IGNOREE.TAPEZ À POUR AIDE." 3340 PRINT "PAR LE COTE £€T;LES LETTRES SEULEMENT PAR LE NORD.LE VAINQUEUR" 
2459 GOTO 1750 3350 PRINT "EST LE JOUCUR DONT LES PIECES ONT TOUTES QUITTEES LE TABLEAU." 
2468 PRINT "LES ";CS(J);" SE DEPLACENT AINSI:" 3360 GOSUB 10000 

2480 FOR J3=1 TO A-1 3370 PRINT “LES JOUEURS JOUENT À TOUR DE ROLE,DEPLAÇANT UNE DE LEURS PIECES" 
2499 LET PS=MIDS(A$(J),J3,1) 3389 PRINT “VERS UN LIEU ADJACANT VACANT." 

2500 LET R=INT(P(J,J3)/10) 3398 PRINT "IL N'Y À PAS DE DEPLACEMENT EN DIAGONALE,PAS DE SAUTS, NI" 
2519 LET C=P(J,J3)-10#R 3395 PRINT “CAPTURES." 

2530 ON J GOTO 2550,2620 3400 PRINT "LES CHIFFRES NE PEUVENT PAS ALLER VERS L'OUEST,NI LES LETTRES VERS 
2550 IF C=A THEN 2590 E SUD." 

2560 IF C > À THEN 2589 3410 PRINT 

2570 GOTO 2690 3426 PRINT "POUR DEPLACER UNE PIECE,TAPEZ SON NOM ET LA PREMIERE LETTRE" 
258 GOTO 2830 3436 PRINT "DE LA DIRECTION DESIREE. EXEMPLES: " 

2599 PRINT " ";PS;"E"; 3448 PRINT " 2E SIGNIFIE QUE LA PIECE 2 VEUT ALLER VERS L'EST" 

2609 GOTO 2699 3450 PRINT " BO SIGNIFIE QUE LA PIECE B VEUT ALLER VERS L'OUEST." 

2620 IF R=1 THEN 2669 3469 PRINT 

2630 IF R=0 THEN 2650 3470 PRINT "N.3:VOUS PERDEZ LE JEU SI VOTRE DEPLACEMENT EMPECHE VOTRE" 
2648 GOTO 2690 3488 PRINT “ADVERSAIRE DE SE DEPLACER." 

2658 GOTO 2830 3490 PRINT 

2668 GOTO 2700 3509 PRINT "ENFIN,VOUS POUVEZ TAPER R POUR VOUS RENDRE ET À POUR" 

2699 IF D$S(R-1,C) <> "." THEN 2730 3505 PRINT "DEMANDER DE L'AIDE." 

2790 PRINT “ ";PS;"N"; 3519 PRINT 

2730 IF DS(R,C+1) <> "." THEN 2770 3528 RETURN 

2749 PRINT “ ";PS;"E"; 3530 PRINT: INPUT "ESSAYEZ ENCORE" ;ANSS 

2776 IF J=2 THEN 2810 3540 IF LEFTS(ANSS,1)="O" THEN 299 ELSE END 

2789 IF DS(R+1,C) <> "." THEN 2809 19000 PRINT:LINE INPUT "ENTREZ 'RETURN'POUR CONTINUER. ";XXS 

2790 PRINT " ";P$;"S"; 19910 PRINT CHR$S (26) 

2808 GOTO 2839 18028 RETURN 
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Doors (Jeu des portes) 





Dans ce petit jeu astucieux, quatre 
portes se succèdent. Votre travail consiste 
à les ouvrir toutes les quatre l'une après 
l'autre, pour pouvoir vous approprier le 
butin, qui se trouve derrière la dernière 
porte. Vous avez en votre possession un 
trousseau de onze clés numérotées de 0 à 
10. (Les personnes qui manipulent les 
ordinateurs n'ont pas la même façon de 
numéroter les choses que les gens 
normaux !) Vous avez droit à quatorze 
essais pour ouvrir ces quatre portes. Pour 
corser un peu plus le jeu, certaines clés 
peuvent ouvrir plusieurs portes. Si vous 
ne réussissez pas du premier coup, 
essayez, essayez de nouveau. Les 
richesses gardées par la quatrième porte 
valent bien la peine qu'on se donne du 
mal pour forcer toutes ces fermetures. 

Ce programme a été conçu et écrit par 
Bill Ingram. 


RUN 
PORTES 
CREATIVE COMPUTING 
MORRISTOWN, NEW JERSEY 


IL Y À 3 PORTES FERMEES ET IL Y À 9 CLES ( O - 8 ). 
VOUS AUREZ 14 ESSAIS POUR LES OUVRIR TOUTES. 
(CERTAINES CLES PEUVENT OUVRIR PLUS D'UNE PORTE). 


ESSAIS RESTANTS: 14 PORTE # 1 CLE? 2 
ESSAIS RESTANTS: 13 PORTE # 1 CLE? 3 
ESSAIS RESTANTS: 12 PORTE # 1 CLE? 6 
ESSAIS RESTANTS: 11 PORTE # 1 CLE? O 
CLICK 1?711?1711?2?21111 

ESSAIS RESTANTS: 10 PORTE # 2 CLE? 1 
ESSAIS RESTANTS: 9 PORTE # 2 CLE? 2 
ESSAIS RESTANTS: 8 PORTE # 2 CLE? 3 
ESSAIS RESTANTS: 7 PORTE # 2 CLE? 4 
TA-DAHI 

ESSAIS RESTANTS: 6 PORTE # 3 CLE? 1 
ESSAIS RESTANTS: 5 PORTE # 3 CLE? 2 
ESSAIS RESTANTS: 4 PORTE # 3 CLE? 3 
ESSAIS RESTANTS: 3 PORTE # 3 CLE? 5 
ESSAIS RESTANTS: 2 PORTE # 3 CLE? 6 
ESSAIS RESTANTS: 1 PORTE # 3 CLE? 7 


DESOLE,VOUS AVEZ PERDU,LES CLES RESTANTES SONT: 
PORTE 3: CLE: O 


VOULEZ VOUS REJOUER (OUI MONSIEURI OU NON MONSIEURI) 
? OUI MONSIEUR 
HE,IL NE FAUT PAS ME PRENDRE POUR UN IMBECILE,D'ACCORDIIIII 


VOULEZ VOUS REJOUER (OUI MONSIEURI OÙ NON MONSIEURI ) 
? OUI 
HE,IL NE FAUT PAS ME PRENDRE POUR UN IMBECILE,D'ACCORDIIIII 


VOULEZ VOUS REJOUER (OUI MONSIEURI OU NON MONSIEURI ) 
? OUI MONSIEURI 

1L Y À 5 PORTES FERMEES ET IL Y À 12 CLES ( O - 11 ). 
VOUS AUREZ 16 ESSAIS POUR LES OUVRIR TOUTES. 
(CERTAINES CLES PEUVENT OUVRIR PLUS D'UNE PORTE). 


ESSAIS RESTANTS: 16 PORTE # 1 CLE? O 

SUPRISEI 

ESSAIS RESTANTS: 15 PORTE # 2 CLE? 1 

ESSAIS RESTANTS: 14 PORTE # 2 CLE? 4 

ESSAIS RESTANTS: 13 PORTE # 2 CLE? 6 

ESSAIS RESTANTS: 12 PORTE # 2 CLE? 2 

ESSAIS RESTANTS: 11 PORTE # 2 CLE? 10 
ESSAIS RESTANTS: 10 PORTE # 2 CLE? 11 
ESSAIS RESTANTS: 9 PORTE # 2 CLE? 9 

ESSAIS RESTANTS: 8 PORTE # 2 CLE? 5 

ESSAIS RESTANTS: 7 PORTE # 2 CLE? 3 

ESSAIS RESTANTS: 6 PORTE # 2 CLE? 7 

ESSAIS RESTANTS: 5 PORTE # 2 CLE? 8 

SESAME OUVRE TOI 

ESSAIS RESTANTS: 4 PORTE # 3 CLE? 3 

ESSAIS RESTANTS: 3 PORTE # 3 CLE? 9 

ESSAIS RESTANTS: 2 PORTE # 3 CLE? 2 

ESSAIS RESTANTS: 1 PORTE # 3 CLE? 4 


DESOLE,VOUS AVEZ PERDU,LES CLES RESTANTES SONT: 
PORTE 3: CLE: O 
PORTE 4: CLE: 11 
PORTE 5: CLE: © 


VOULEZ VOUS REJOUER (OUI MONSIEUR! OU NON MONSIEURI) 
? NON MONSIEURI 





1 PRINT CHR$ (26) ; TAB (27) ; "PORTES" 
2 PRINT TAB (28) ; "CREATIVE COMPUTING" 
3 PRINT TAB (18) ; "MORRISTOWN, NEW JERSEY" 
4 PRINT 
S PRINT 
25 DIM K(28) 
30 DEF FNR(Z)=INT(Z*RND(1)) 
32 FOR X=0 TO 6: READ R$S(X): NEXT X 
33 FOR X=0 TO 6: READ S$(X): NEXT X 
35 D=1: T=18+FNR(21): N=3+FNR(3): K3=8+FNR(5) 
48 PRINT: 
PRINT “IL Y A";N;"PORTES FERMEES ET IL Y A";K3;"CLES ( @ -"K3-1*)." 
41 PRINT "VOUS AUREZ" ;T-1;"ESSAIS POUR LES OUVRIR TOUTES." 
42 PRINT "(CERTAINES CLES PEUVENT OUVRIR PLUS D'UNE PORTE) .":PRINT 
65 FOR X=2 TO N: K(X)=FNR(K3): NEXT X 
70 T=T-l: IF T=0 THEN 150 
80 PRINT “ESSAIS RESTANTS: ";:PRINT USING "##";T;:PRINT TAB (24) ;"PORTE #";D;"CLE 


98 INPUT K2 

100 IF K2CK(D) THEN 79 

118 PRINT S$S(FNR(7)): D=D+1 

128 IF D<N+1 THEN 78 

125 PRINT 

138 PRINT "VOUS AVEZ REUSSI, DERRIERE LA PORTE #";N;"IL Y A.......... 





149 PRINT R$(FNR(7))"!!": GOTO 179 

159 PRINT:PRINT "DESOLE, VOUS AVEZ PERDU,LES CLES RESTANTES SONT:" 

168 FOR X=D TO N: PRINT "PORTE" ;X;CHRS (8) ;": CLE:";K(X):NEXT X 

179 PRINT:PRINT “VOULEZ VOUS REJOUER (OUI MONSIEUR! OU NON MONSIEUR! )" 
171 INPUT Q$ 

189 IF Q$="OUI MONSIEUR!" THEN 35 

181 IF Q$="NON MONSIEUR!" THEN 999 


288 GOTO 178 

598 DATA “UNE COUPE D'OR","UNE BELLE JEUNE FILLE*,"UN HOMME MANGEANT DU TIGRE" 
505 DATA "RIEN","200FF","UNE ROLLS ROYCE","LES CLES DU MONDE" 

608 DATA "SESAME OUVRE TOI" ,"C-R-E-E-E-E-E-A-A-K!","WA LAH!","TA-DAH!" 

695 DATA "ABRACADABRA", "CLICK 1211212112?71111","SUPRISE!"* 

999 END 


Drag (Dragster) 





DRAG permet à un utilisateur de Sn us Met 
dessiner son propre dragster et de courir 5 PRINT TAB (28) ; "CREATIVE COMPUTING" 
5 * "+ 7 PRINT TAB(19);"MORRISTOWN NEW JERSEY"* 
ensuite contre un dragster dessiné par un 19 DIM P(2),E(2),W(2),5(2) ,X(2),M(2) ,C(2) ,B(2) (2) 
autre joueur où par l'ordinateur. Vous RENE 
devez spécifier la puissance, le rapport de A md ee + 
boîte, la largeur d'essieu et le diamètre 59 INPUT 1$ ‘ 
d'essieu, Ces paramètres ne sont pas SOLE PIS USE HEN" THEN-HO 
limités. 7@ PRINT "VOUS POUVEZ COURIR CONTRE UN AMI OU VOUS POUVEZ COURIR" 
+ A 8@ PRINT "CONTRE MON DRAGSTER. VOUS ALLEZ DESSINER VOTRE PROPRE" 
Haha! Vous dites-vous ! «Je vais 98 PRINT "ENGIN, EN PRECISANT SA PUISSANCE, LE RAPPORT DE BOITE(X:1)," 
i i ñ illi 199 PRINT "LA LARGEUR D'ESSIEU EN POUCES ET SON DIAMETRE EN PIEDS." 
dessiner un dragster qui fait deux millions 118: PA DE MO UTES VOIS COURIR CRE MO 1e. 
de chevaux ! ». Mais cela n'est pas si 120 INPUT 1$ 
facile, parce que la masse de votre TS RENE Een Le TAN LA COEUR elle 
dragster dépend de la taille de votre 159 P(1)=600 
moteur, et vous n'atteindrez habituelle 178 W(1)=2 
5 . 170 W(1)=22 
ment qu'une vitesse maximale de HD 
33 MPH. Il est extrêmement difficile de 200 PRINT:PRINT "VOITURE #1:* 
battre l'ordinateur, mais il paraît que c'est 220 INPUT PQ) à 
possible. Remarque : dans certains cas, en SL LE 
le temps entre deux réponses de l'ordina- 258 PRINT "LARGEUR D'ESSIEU="; 
teur peut être de plus en plus long. 2 ANENR MUTIMETRE DT ELSTEULS: 
Ce programme provient de la Bibliothè- 280 INPUT D(1) 
. 298 PRINT:PRINT "VOITURE #2:" 
que de Hewlett-Packard. Il est aussi paru 300 PRINT "PUISSANCE="; 
j' j i A 310 INPUT P(2 
dans Creative Computing, janv.-févr. À 20 BRINT M RAR EORT DE D MES 
1977. 330 INPUT E(2) 


348 PRINT "LARGEUR D'ESSIEU="; 
358 INPUT W(2) 
368 PRINT "DIAMETRE D'ESSIEU="; 
370 INPUT D(2) 
380 PRINT 
398 PRINT "GO!" 
408 K1=500 
418 K2=1.6 
RUN 428 K3=2 
. 438 K4=.0006 
DRAGSTER 440 K5=.08006 
CREATIVE COMPUTING 458 K6=.2 
MORRISTOWN NEW JERSEY 469 K7=4 
470 K8=.00015 
488 Q(1)=8:0(2)=0 
490 S(1)=0:S(2)=0 











BIENVENUE À LA COURSE DE DRAGSTER. 508 X(1)=0:X(2)=0 
VOULEZ VOUS LES INSTRUCTIONS? OUI 510 REM: M IS MASS 
528 FOR J=1 TO 2 
VOUS POUVEZ COURIR CONTRE UN AMI OU VOUS POUVEZ COURIR 530 M(J)=(K1+K2*P (J)#K3%W(J) *D(J)#K7*D (J) °2)/32.2 
CONTRE MON DRAGSTER. VOUS ALLEZ DESSINER VOTRE PROPRE 548 REM: C EST LE DRAGSTER SOUS LE VENT 
ENGIN, EN PRECISANT SA PUISSANCE, LE RAPPORT DE BOITE(X:1), 558 C(J)=K4#M(J) (2/3) #KB8*W(J) *D(J) 
LA LARGEUR D'ESSIEU EN POUCES ET SON DIAMETRE EN PIEDS. 568 REM: B EST L'ACCELERATION MAXIMALE 
VOULEZ VOUS COURIR CONTRE MOI? OUI 578 B(J)=15+28#W(J) #D(J)/((W(J)+6) *(D(J)+1)) 
589 REM: Y EST LE FACTEUR D'ECHELLE ENTRE TOUR PAR MN ET PUISSANCE. 
J'AI LA VOITURE #1. 590 Y(J)=3.7-.0033*P (J) 
680 NEXT J 
VOITURE #2: 618 PRINT 
PUISSANCE=? 790 628 PRINT 
RAPPORT DE BOITE=? 4.5 630 PRINT TAB(8);"VOITURE #1";TAB(31); "VOITURE #2" 
LARGEUR D'ESSIEU=? 22 635 PRINT “ TEMPS ";TAB(12);" "3 TAB (35) ;"———" 
DIAMETRE D'ESSIEU=? 4 648 PRINT "PASSE VITESSE  DISTANCE VITESSE  DISTANCE" 
658 PRINT "(SEC)  (MPH) (FT) (MPH) CET)" 
Gol 655 PRINT " — — TE = “ 
668 PRINT 
678 FOR T=8 TO 109 
VOITURE #1 VOITURE #2 688 FOR Tl=1 TO 198 
TEMPS 698 FOR J=1 TO 2 
PASSE VITESSE DISTANCE VITESSE  DISTANCE 708 REM: R EST LE NOMBRE DE TOURS PAR MINUTE. 
(SEC)  (MPH) (FT) (MPH) (FT) 719 R=68*S(J)*E(J)/(3.1415926#*D(J)) 


= ee 728 REM: LO EST LE COUPLE MOTEUR. : 
730 LO=(P(J)/42.5) * (58+.0078* (R/Y (J))-4E-10* (R/Y (J))°3) 


VOITURE # 2 S'ARRETE DE PATINER ET PART 740 REM: L1 EST LE COUPLE DE FREINAGE. 

1 22.071 16.382 19.577 14.369 758 L1=P(J) *{K5*R#K6) 

2 43.575 64.783 39.939 58.107 768 REM: RAT LE COUPLE DE L'ESSIEU ARRIERE. 

3 64.002 143.982 60.340 131.846 778 L2=E (J) *(LO-L1) 

4 82.939 252.079 79.818 234.947 788 REM:F EST LA FORCE APPLIQUEE PAR LES ROUES SUR LA ROUTE 

5 100.107 386.668 97.401 365.321 798 F=2#*L2/D(J) 

6 115.356 545.024 112.362 519.607 808 REM:TEST POUR LE DEPART 
VOITURE # 1 S'ARRETE DE PATINER ET PART 819 IF F > M(J)*B(J) THEN 888 

7 128.639 724.299 124.389 693.674 828 REM: A=ACCELERATION 

8 139.186 921.158 133.582 883.247 830 IF Q(J) <> @ THEN 869 

9 146.922 1131.340 140.326 1084.430 840 PRINT "VOITURE #";J;" S'ARRETE DE PATINER ET PART" 
10 151.811 1320.000 144.586 1264.350 858 Q(J)=1 

GAGNANT 868 A=(F-C(J)*S(J)"2)/M(J) 
878 GOTO 98 

VOULEZ VOUS ESSAYER ENCORE UNE FOIS? NON 880 A=B(J)-C(J) *S(J) "2/M(J) 
ge 890 RIM: S EST EN PIEDS/SEC. 
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909 S(J)=S(J)+A*.01 

918 REM: X EST LA DISTANCE EN PIEDS. 

920 X(J)=X(J)+S (J)*.1 

938 NEXT J 

940 REM: TEST DE FIN: 

958 IF X(1)<5280/4 AND X(2)<5280/4 THEN 1169 

960 IF X(1)>X(2) THEN 1980 

970 T3=(X(2)-5280/4)/S (2) 

980 T-T+T1/100-T3 

999 X(2)=5280/4 : 

1909 X(1)=X(1)-S(1)*T3 ’ 

1918 PRINT USING "#4# CLOSE LICR TEE TON LISE TER PTLE 
T:S (1) *3600/5280; x (1) ;S (2) *3600/5280; X (2) 

1926 PRINT TAB (40) ; "GAGNANT" 

1938 PRINT 

1949 PRINT "VOULEZ VOUS ESSAYER ENCORE UNE FOIS"; 

1958 INPUT 1$ 

1960 IF LEFTS(IS,1)="O" THEN 110 

1978 END 

1980 T3=(X(1)-5280/4)/S (1) 

1998 T=T+T1/100-73 

1198 X(1)=5280/4 

1119 X(2)=X(2)-S(2) *T3 

1120 PRINT USING "## H#N#.HRHE  AABEOHAE HEURE OPRREORRE": 
T:S (1) *3608/5280;X (1) ;S (2) *3609/5289; X (2) 

1138 PRINT TAB (10) ;"GAGNANT" 

1140 PRINT 

1158 GOTO 1249 

1169 NEXT TI 

1170 PRINT USING "## HANC#NE  OHRANCHRE OO PRECHAN  OŒRREC RE"; 
T+1;S (1) 3600/5280; X(1) :S (2) *3600/52808;X (2) 

1180 NEXT T 

1200 END 








Grâce à ce programme, votre ordina- 
teur est en interaction avec vous sous une 
forme vraiment « Rogérienne », sans 
jamais porter un jugement de valeur sur 
votre réponse. 

Dr. Z parle plusieurs langues et le 
«secret professionnel » est garanti, 
surtout si vous l'utilisez sur un écran 
vidéo. Cependant, si vous avez une 
imprimante, essayez d'employer un 
langage connu de Dr. Z et de vous seul. 

Si vous voulez faire jouer à ce pro- 
gramme un rôle éducatif, voici la liste de 
ses activités possibles : 


1. Discussion sur les moyens de commur- 
nication : 
a) rôle de la langue parlée; 
b) rôle de la langue écrite; 
c) langage non verbal : 
1. expressions du visage, 
2. positions du corps, 
3. gestes avec les mains; 
2. Apprentissage de libre expression 
avec Dr. Z. 
3. Développement de l'informatisation 
d'autres activités « purement humai- 
nes ». 


Remarque : Ne confondez pas Dr. Z: 
avec Eliza (ou Doctor). Dans Dr. Z, toutes 
les réponses sont déjà en mémoire et 
l'ordinateur ne cherche en aucune façon à 
analyser vos données d'entrée. 

Dr. Z nous a été soumis anonymement 
par quelques étudiants de Dr. Melvin 
Zeddies de San Diego. 





RUN 
DR.Z 


CREATIVE COMPUTING 
MORRISTOWN, NEW JERSEY 


JE VOUS SALUE,JE SUIS VOTRE ORDINATEUR-THERAPEUTE . 

QUEL EST VOTRE NOM?ET DITES MOI QUELQUE CHOSE SUR VOUS. 

MALGRE TOUT,NE TAPEZ PAS PLUS D'UNE LIGNE.JE FATIGUE FACILEMENT. 
? MON NOM EST JACQUES.JE TESTE LE PROGRAMME 

VOUS POURRIEZ ME RAPPELER VOTRE NOM? 

? JACQUES 

COMMENT VOUS SENTEZ VOUS AUJOURD'HUI? 

? ASSEZ MAL IL FAIT SI FROID 

PENSEZ VOUS QUE CECI SOIT RAISONNABLE,D'APRES VOS INTERETS? 


? DE QUOI PARLEZ VOUS 


VOS AMIS TROUVENT-ILS CELA ACCEPTABLE? 


? PARFOIS 


PENSEZ VOUS QUE CE SOIT UN SENTIMENT NORMAL? 


? OUI A CAUSE DU TEMPS 


AVEZ VOUS PARLE DE CECI A QUELQU'UN? 


? NON JAMAIS 


VOUS SENTEZ VOUS À L'AISE AVEC CE SENTIMENT? 


? PAS VRAIMENT 


VOS AMIS TROUVENT-ILS CELA ACCEPTABLE? 


? ILS NE LE SAVENT PAS 


ETES VOUS SATISFAIT DE LA MANIERE DONT VOS IDEES SE DEVELOPPENT? 


? BOF 


AVEZ VOUS PARLE DE CECI A QUELQU'UN? 


? 


ETES VOUS SATISFAIT DE LA MANIERE DONT VOS IDEES SE DEVELOPPENT? 


? 


POURQUOI ETES VOUS ICI? 


? 


JE PENSE QUE VOUS NE FAITES PAS BEAUCOUP D'EFFORTS POUR 
RESOUDRE VOS DIFFICULTE..S,ET JE NE VOIS PAS LE BESOIN DE CONTINUER 
CETTE DISCUSSION PULS LONGTEMPS. 


JACQUES ,VOULEZ VOUS PRENDRE UN AUTRE RENDEZ-VOUS AVEC MON ORDINATEUR 
POUR LES PROCHAINES SEMAINES .QUELLE DATE PREFERERIEZ VOUS 
? JAMAIS 


CELA IRA TRES BIEN . 
J'AI BEAUCOUP APPRECIE DE COMMUNIQUER AVEC VOUS. 
BONNE JOURNEE. 


4 PRINT CHR$(26) 

5 PRINT TAB(27);"DR.Z" 

6 PRINT TAB(20);"CREATIVE COMPUTING" 

7 PRINT TAB(18);"MORRISTOWN, NEW JERSEY" 

8 PRINT:PRINT :PRINT 

20 PRINT "JE VOUS SALUE,JE SUIS VOTRE ORDINATEUR-THERAPEUTE ." . 
30 PRINT "QUEL EST VOTRE NOM?ÆT DITES MOI QUELQUE CHOSE SUR VOUS." 
40 PRINT "MALGRE TOUT,NE TAPEZ PAS PLUS D'UNE LIGNE.JE FATIGUE FACILEMENT." 
50 INPUT A$ 

60 PRINT "VOUS POURRIEZ ME RAPPELER VOTRE NOM?" 

70 INPUT B$ 

80 PRINT "COMMENT VOUS SENTEZ VOUS AUJOURD'HUI?" 

90 LET C=0:U=0:V=0 

100 INPUT A$ 

110 PRINT 

120 PRINT 

130 IF C=10 THEN 720 

140 LET Z=INT(10O#RND(1)) 

150 IF U=Z THEN 140 

160 IF V=Z THEN 140 

170 LET Uz=z 

180 ON Z+1 GOTO 690,420,450,480,510,540,570,600,630,660 

380 GOTO 690 

390 PRINT "C'EST TRES INTERRESSANT,DITES MOI PLUS." 

400 PRINT 

410 GOTO 690 

420 PRINT "CELA FAIT-IL LONGTEMPS QUE VOUS PENSEZ AINSI?" 

430 PRINT 

440 GOTO 690 

450 PRINT "PENSEZ VOUS QUE CECI SOIT RAISONNABLE ,D'APRES VOS INTERETS?" 
460 PRINT 

470 GOTO 690 

480 PRINT "VOS AMIS TROUVENT-ILS CELA ACCEPTABLE ?" 

490 PRINT 

500 GOTO 690 

510 PRINT "VOUS SENTEZ VOUS A L'AISE AVEC CE SENTIMENT?" 

520 PRINT 

530 GOTO 690 : 

540 PRINT "PENSEZ VOUS QUE CE SOIT UN SENTIMENT NORMAL?" 

550 PRINT 

560 GOTO 690 

570 PRINT "POURQUOI PENSEZ VOUS QUE VOUS PENSEZ DE CETTE MANIERE?" 
580 PRINT 

590 GOTO 690 

600 PRINT "AVEZ VOUS PARLE DE CECI A QUELQU'UN?" 

610 PRINT 

620 GOTO 690 

630 PRINT "POURQUOI ETES VOUS ICI?" 

640 PRINT 

650 GOTO 690 

660 PRINT "ETES VOUS SATISFAIT DE LA MANIERE DONT VOS IDEES SE DEVELOPPENT?" 
670 PRINT 

690 LET C=C+1 

700 LET U=Z 

710 GOTO 100 

720 PRINT "JE PENSE QUE VOUS NE FAITES PAS BEAUCOUP D'EFFORTS POUR" . 
T3OPRINT "RESOUDRE VOS DIFFICULTEES,ET JE NE VOIS PAS LE BESOIN DE CONTINUER" 
740 PRINT "CETTE DISCUSSION PLUS LONGTEMPS." 

745 PRINT 

750 PRINT B$;", VOULEZ VOUS PRENDRE UN AUTRE RENDEZ-VOUS AVEC MON ORDINATEUR" 
760 PRINT "POUR LES PROCHAINES SEMAINES.QUELLE DATE PREFERERIEZ VOUS " 
770 INPUT A$ 

780 PRINT 

790 PRINT "CELA IRA TRES BIEN ." 

800 PRINT "J'AI BEAUCOUP APPRECIE DE COMMUNIQUER AVEC VOUS." 

810 PRINT "BONNE JOURNEE." 

820 FOR I=1 T0 6 

830 PRINT 

840 NEXT T 

850 END 

1800 N Z GOTO 690,420,450,480, 510,540, 570,600, 630,660 
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Présentation : ELIZA est un programme 
qui accepte des instructions en Angjlais, et 
qui est capable de soutenir une conversa- 
tion relativement cohérente, basée sur les 
techniques de psychanalyse de Carl 
Rogers. Il vous faudra considérer ELIZA 
comme un pauvre écolier. Vous décou- 
vrirez qu'il vaut mieux ne pas ponctuer 
vos phrases, et que vous devez garder 
l'initiative dans la discussion. Mais 
pourtant, il tourne !!! 

Fonctionnement : Pour converser avec 
vous, Eliza doit : (1) saisir un fil conduc- 
teur dans votre phrase, et le préparer pour 
sen traitement ultérieur; (2) trouver les 
mots-clés dans ce fil conducteur; (3) 
quand un mot-clé est déterminé, trans- 
former l’assertion qui suit le mot-clé en 
changeant tous les pronoms personnels 
et les verbes («l» devient « YOU », 
« ARE » devient « AM»..); (4) enfin, 
chercher une réponse appropriée basée 
sur le mot-clé, imprimer cette réponse 
avec, si nécessaire, l’assertion trans- 
formée. Eliza utilise pour ce faire, quatre 
types de programmes de données : 

(1) 36 mots-clés tels «1 AM», « WHY 
DON'T YOU », et « ORDINATEUR ». Ces 
mots-ci sont traités suivant un ordre de 
priorité. Ainsi, ELIZA traite « YOU ARE » 
avant « YOU ». 

(2) 12 correspondances utilisées pour le 
travail de traduction ou de conjugaison. 
Ces correspondances se font pour des 
couples de mots, de telle sorte que si l'un 
d'eux est rencontré, il est remplacé par 
l'autre élément du couple. 
Exemples : «Y», « YOU », 
« ARE ».…. 

(3) 112 réponses types. Ces réponses 
sont classées en groupes qui correspon- 
dent aux mots-clés. Le nombre des 
réponses relatives à chaque mot-clé n'est 
pas figé. Les réponses se terminant par 
une «*» doivent être suivies par un 
complément « traduit », tandis que les 
groupes de mots réponses ponctués 
normalement seront imprimés tels quels. 
(4) Des données numériques qui détermi- 
nent les réponses à imprimer pour un 
mot-clé donné. À chaque mot-clé, corres- 
pond un couple de nombres signifiant 
(début de la réponse, nombre de groupes 
de mots employés à cette réponse). C'est 
ainsi que le couple (10,4) signifie que les 
réponses au cinquième mot-clé 
DON'T » commencent avec le dixième 
groupe réponse et que la réponse com- 
prend quatre éléments. 


Détail du programme : 


Lignes 10 à 60:  initialisations. Les 
tableaux et les groupes de mots sont 
dimensionnés par N1, N2, N3 qui repré- 
sentent respectivement le nombre de 
mots-clés, le nombre de groupes traduc- 
teurs et le nombre d'éléments-réponses. 
Ensuite, les tableaux sont complétés. S 
(numéro de mot-clé) est le numéro d'ordre 


« AM », 


« | 


du début des groupes réponses à un 
mot-clé donné. R (numéro de mot-clé) est 
la réponse qui va être effectivement 
donnée, et N (numéro de mot-clé) la 
réponse précédente. Enfin, l'introduction 
est imprimée. 

Lignes 170 à 255 : entrée des données 
par l'utilisateur. Cette partie du pro- 
gramme accepte une phrase de l'utili- 
sateur; place un blanc à son début, et 
deux blancs à sa fin (pour rendre plus 
facile l& localisation des mots-clés, et bien 
définir les limites), ne tient pas compte des 
apostrophes (l'ordinateur ne fait donc pas 
de distinction entre DONT et DON'T), et 
arrête le jeu s’il trouve dans les données 
d'entrée le mot « SHUT » qu'il prendra 
pour « SHUT UP ». Eliza détecte aussi 
des entrées-utilisateur qui se repro- 
duisent. 

Lignes 260 à 370 : section de détection 
des mots-clés. Eliza dissèque la phrase 
d'entrée et met en mémoire le mot-clé 
prioritaire dans les données S, T et F$. Si 
elle ne trouve pas de mot-clé, elle utilise à 
défaut le mot-clé 36, ce qui l'amène à une 
réponse incohérente et elle passe directe- 
ment à la section suivante. 

Lignes 380 à 555 : section de transposi- 
tion ou de conjugaison. Le groupe de mots 
suivant le mot-clé est mis en mémoire. 
Eliza le compare alors aux couples de 
correspondance décrits plus hauts. Si elle 
peut, elle opère la correspondance. Une 
fois ceci fait, Eliza s'assure qu'il n'y a 
qu'un blanc conducteur dans le groupe 
transposé. 

Lignes 560 à 640 : section d'impression 
de la réponse. La réponse correcte est 
trouvée grâce à R, S, N, numéros de 
mot-clé. Si la réponse se termine par une 
«*», elle est imprimée avec l'assertion 
traduite, sinon, elle est imprimée seule. 
L'entrée précédente est conservée, ce qui 
permet l'arrêt en cas de répétition. 
Ensuite, Eliza attend une autre entrée. 


Limitations : L'exécution se fait avec une 
mémoire de 16K. 


Modifications : Vous pouvez facilement 
ajouter, changer ou détruire des mots- 
clés, ou des réponses. N'oubliez pas de 
changer alors les valeurs de N1, N2, N3, 
etou les données numériques. Petite 
suggestion : si vous décidez d'entrer 
«ME» et « YOU» dans la liste des 
assertions de traduction, utilisez un 
caractère de contrôle (non imprimable), 
avant YOU, pour empêcher Eliza de 
substituer |, YOU, ME. En clair, YOU sera 
toujours traité comme étant sujet d'un 
verbe, et non objet; mais la résolution de 
cette difficulté est un autre problème. 


Quelques commentaires : Les struc- 
tures utilisées aux lignes 120, 420 et 590 
peuvent être remplacées par des énon- 
cés RESTORE NNNN si votre BASIC 
en est pourvu. L'utilisation d'une fonction 
INSTR, SEARCH, ou POS pour déter- 
miner si une assertion est une sous- 
assertion d'une autre, accélèrera considé- 
rablement la recherche (il faut environ 
10 secondes à Eliza pour trouver une 
réponse). 


Signification de tout ceci : Nous vous 
laissons seul juge. Bien que ce pro- 
gramme soit une imitation inférieure à 
l'original, il tourne ! C'est un peu tiré par 
les cheveux de croire qu’un psychana- 
lyste ne fait rien d'autre que repérer les 
mots-clés, conjuguer, et trouver la 
réponse, mais si c'est ce que vous pensez, 
vous pouvez acheter à votre ordinateur un 
Computalker ! 


Généalogie ELIZA fut d'abord pro- 
grammé en  LISP par Joseph 
Weisenbaum. Il a été converti en BASIC 
par Jeff Shrager et modifié par la suite pour 
l'utilisation en Microsoft BASIC par Steve 
North, qui est aussi l’auteur de ces notes. 
Pour des raisons inhérentes à ce jeu qui 
tourne avec la syntaxe anglaise nous vous 
présentons la version en anglais; elle est 
suivie d'une version française due à J.-P. 
Benoist et V. Sumpf. 


Nom Usage 

R(X), S(X), N(X) Voir texte 

1$ Entrée de la chaîne 

K$ Mots-clefs 

C$ Chaîne traduite ou conjuguée 

F$ Chaîne réponse, aussi utilisée pour sauvegarder K$ pendant 
recherche mots-clefs 

RS, S$ Chaînes utilisées dans procédure conjugaison 

PS Chaîne prévue en entrée 

Z$ « Scratch » (utilisé pour simulation de l'instruction 
RESTORE NNNN) 

N1 Nombre de mots-clefs 

N2 Nombre de chaînes conjugaison 

N3 Nombre de réponses 

K Variable mot-clef 

S,T Utilisées pour sauvegarder K et L pendant recherche mots-clefs 

X,L X,L « Scratch». X est généralement utilisée pour boucler 
pendant que L est utilisée pour rechercher à travers les chaînes 

V Utilisée pour rechercher chaînes mots-clefs 
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ELIZA 
CREATIVE COMPUTING 
MORRISTOWN, NEW JERSEY 


HII I'M ELIZA. WHAT'S YOUR PROBLEM? 
? YOU 
WE WERE DISCUSSING YOU -- NOT ME. 


BUT YOU ATR THE PROBLEM 

OH, I ATR THE PROBLEM 

? SO I MISSPELLED À WORD 

SAY, DO YOU HAVE ANY PSYCHOLOGICAL PROBLEMS? 
? NO DO YOU 

YOU'RE NOT REALLY TALKING ABOUT ME, 
? ONLY BEHIND YOUR BACK 

WHY ARE YOU CONCERNED ABOUT MY BACK 
? BECAUSE I'M AFRAID TO CON FRONT YOU 

DID YOU COME TO ME BECAUSE YOU ARE AFRAID TO CON FRONT I 


ARE YOU? 


2? YOU SPEAK WIERD ENGLISH . 
WE WERE DISCUSSING YOU -- NOT ME. 

2? AM I GETTING THE BEST OF YOU 

OH, I 


? WHAT IS THAT SUPPOSED TO MEAN 

WHY DO YOU ASK? 

2? WHY NOT 

WHY DO YOU ASK? 

? I ASKED FIRST 

WHAT DOES THAT SUGGEST TO YOU? 

? THAT YOU ARE NOT AS SMART AS YOU THINK 

WHAT MAKES YOU THINK I AM NOT AS SMART AS I THINK 

? YOU ARE MAKING À FOOL OUT OF YOURSELF 

DOES IT PLEASE YOU TO BELIEVE I AM MAKING À FOOL OUT OF YOURSELF 
2? DON'T TWIST THE WORDS ON ME BUDDY 
1 SEE. 

? PO YOU REALLY 

YOU'RE NOT REALLY TALKING ABOUT ME, 
? YES 

ARE YOU SURE? 

? YES I AM SURE 

DID YOU COME TO ME BECAUSE YOU ARE SURE 

? L CAME BECAUSE I AM SURE 

HOW LONG HAVE YOU BEEN 

? AS LONG AS POSSIBLE 

I'M NOT SURE I UNDERSTAND YOU FULLY. 

? SO I AM NOT THE GREATEST CONVERSATIONALIST 

DO YOU BELIEVE IT IS NORMAL TO BE NOT THE GREATEST CONVERSATIONALIST 
? YES 

L SEE. 

? HOW CAN YOU SEE WITHOUT EYES 

DON'T YOU RELIEVE THAT I CAN SEE WITHOUT EYES 

? NO SO PROVE IT 
ARE YOU SAYING NO 
? ABSOLUTELY NOT 
YOU ARF BEING A BIT NEGATIVE. 

? SO YOU WANT TO FIGHT DO YOU 

WE WERE DISCUSSING YOU -- NOT ME. 
? DON'T RACK DOWN FRIEND 


ARE YOU? 








JUST TO BE NEGATIVE? 


WHY DO YOU BRING UP THE TOPIC OF FRIENDS? 

? I DON'T HAVE ANY FRIENDS 

DON'T YOU RFALLY HAVE ANY FRIFNDS 

? NO NOT REALLY 

WHY NOT? 

2 BECAUSE I AM YOU AND YOU ARE ME AND WE ARE ALL TOGETHER 
PERHAPS YOU WOULD LIKE TO BE ME AND WE AM ALL TOGETHER 

? SAY WHAT 


DOES THAT QUESTION INTEREST YOU? 
? DEFINITELY 
COME, COMF, ELUCIDATE YOUR THOUGHTS. 
? PO YOU LIKE THE BEATLES 

OM, I LIKE THE BEATLES 

? HOW ABOUT THE BEACH BOYS 

WHY DO YOU ASK? 

? DO YOU DREAM OFTEN 

YOU'RE NOT REALLY TALKING ABOUT ME, 
? DREAM ON 

WHAT DOES THAT DREAM SUGGEST TO YOU? 
? WHAT DREAM 

WHAT ANSWER WOULD PLEASE YOU THE MOST? 

? DO YOU SUBSCRIBE TO CREATIVE COMPUTING 

WE WERE DISCUSSING YOU -- NOT ME. 

? I AM À CROMENCO 3101 

DO YOU ENJOY BEING A CROMENCO 3101 

? I AM WORRIED ABOUT THE COMPETITION 

DID YOU COME TO ME BECAUSE YOU ARE WORRIED ABOUT THE COMPETITION 
? DON'T GET PERSONAL 

CAN YOU ELARORATE ON THAT? 


ARE YOU? 


? I'M GETTING TIRED OF LISTENING TO YOU SO SHUT UP 
SHUT UP... 

Ok 

LIST 


L PRINT CHR$(26);TAB(26);"ELIZA":CLEAR 2000 
2 PRINT TAB(20);"CREATIVE COMPUTING" 

3 PRINT TAB(18);"MORRISTOWN, NEW JERSEY" 

4 PRINT:PRINT:PRINT 








80 REM #2 INITIALIZATION-- 

100 DIM S(36),R(36),N(36) 

110 N1=36:N2=12:N3=112 

120 FOR X=1 TO N1+N24+N3:READ ZS:NEXT X:REM SAME AS RESTORE 
130 FOR X=] TO N1 

140 READ S(X),L:R(X)=S(X):N(X)=S(X)+L-1 

150 NEXT X - 

160 PRINT “HI I'M ELIZA. WHAT'S YOUR PROBLEM?" 
170 REM 

180 REM  ----- USER INPUT SECTION----- 

190 REM 

200 INPUT IS 


201 
210 
220 
230 
240 


255 
260 
270 
280 
290 
295 
300 


315 
320 
340 
350 
360 
365 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
495 
500 
510 
520 
530 
535 
540 
550 
555 
560 
570 
580 
590 
600 


620 

630 

640 

1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1200 
1210 
1220 
1230 
1235 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1365 
1370 
1380 
1390 
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IS=" "+iS+" 

REM GET RID OF APOSTROPHES 
FOR L=1 TO LEN(IS) 

IF MID$(IS,L,1)= 
te L+4<#LEN(1$ )THEN IF MID$(I$,L,4)="SHUT"THEN PRINT"SHUT UP... 
NE L 

IF I$=P$ THEN PRINT "PLEASE DON'T REPEAT YOURSELFI":GOTO 170 
REM 





“+#END 





REM ----- FIND KEYWORD IN I1$----- 
REM 

RESTORE 

S=0 

FOR K=1 TO N1 

READ KS$ 


IF S>0 THEN 360 

FOR L=l TO LEN(IS)-LEN(KS$)+1 

IF MIDS(I$,L,LEN(KS))=K$STHEN S=K:T=L:F$=KS 
NEXT L 

NEXT K 

IF S>0 THEN K=S:L=T:GOTO 390 

K=36:GOTO 570:REM WE DIDN'T FIND ANY KEYWORDS 


REM 

REM TAKE RIGHT PART OF STRING AND CONJUGATE IT 
REM USING THE LIST OF STRINGS TO BE SWAPPED 
REM 


RESTORE:FOR X=1 TO N1:READ Z$:NEXT X:REM SKIP OVER KEYWORDS 
C$=" "+RIGHTS(IS$,LEN(IS$S)-LEN(F$S)-L+1) 

FOR X=1 TO N2/2 

READ:S$S,RS 

FOR L= 1 TO LEN(CS) 

IF L+LEN(S$)>LEN(CS) THEN 510 

IF MID$(CS,L,LEN(S$S))<>S$ THEN 510 
C$=LEFTS(C$S,L-1)+R$S+RIGHT$S(CS,LEN(CS)-L-LEN(SS)+1) 
L=L+LEN(RS) 

GOTO 540 

IF L+LEN(R$S)>LEN(CS)THEN 540 

IF MIDS$S(CS,L,LEN(RS))<>R$ THEN 540 
CS=LEFTS(CS,L-1)+SS$+RIGHTS(CS,LEN(C$S)-L-LEN(RS)+1) 
L=L+LEN(SS) 

NEXT L 

NEXT X 

IF MIDS(CS,2,1)=" 
REM 
REM 
REM 
RESTORE:FOR X= 1 TO N1+N2:READ ZS:NEXT X 

FOR X=1 TO R(K):READ FS$S:NEXT X:REM READ RIGHT REPLY 
R(K)=R(K)+1: IF R(K)>N(K) THEN R(K)=S(K) 

IF RIGHTS(FS,1)<>"#*" THEN PRINT FS:PS=I$:GOTO 170 
PRINT LEFTS(FS,LEN(F$)-1);:CS 

P$=I$:GOTO 170 


"THEN C$=RIGHT$(C$,LEN(C$)-1):REM ONLY 1 SPACE 


NOW USING THE KEYWORD NUMBER (K) GET REPLY 














REM 

REM ----- PROGRAM DATA FOLLOWS----- 

REM 

REM KEYWORDS 

REM 

DATA "CAN YOU","CAN I","YOU ARE","YOURE","I DONT","I FEEL" 
DATA "WHY DONT YOU","WHY CANT I","ARE YOU","I CANT","I AM“,"IM “ 
DATA "YOU ","I WANT", "WHAT", "HOW", "WHO", "WHERE", "WHEN", "WHY" 
DATA ‘"NAM "CAUSE" ,"SORRY", "DREAM" ,"HELLO","HI ","MAYBE" 
DATA " NO","YOUR", "ALWAYS" ,"THINK","ALIKE","YES", "FRIEND" 
DATA "COMPUTER", "NOKEYFOUND" 

REM 

REM STRING DATA FOR CONJUGATIONS 

REM 

DATA " ARE "," AM "“,"WERE ","WAS "," YOU "," I ","YOUR "“,"MY " 
DATA “ IVE "," YOUVE "," IM "," YOURE “ 

REM 

REM REPLIES 

REM 

DATA "DON'T YOU BELIEVE THAT I CAN*" 

DATA "PERHAPS YOU WOULD LIKE TO BE ABLE TO*". 

DATA "YOU WANT ME TO BE ABLE TO*" 

DATA "PERHAPS YOU DON'T WANT TO*" 

DATA “DO YOU WANT TO BE ABLE TO*" 

DATA "WHAT MAKES YOU THINK I AM*" 

DATA "DGES IT PLEASE YOU TO BELIEVE I AM*" 

DATA “PERHAPS YOU WOULD LIKE TO BE*“ 


"THEN IS$=LEFTS(I$,L-1)+RIGHT$(IS,LEN(IS)-L):GOTO 230 


1400 DATA "DO YOU SOMETIMES WISH YOU WERE*" 
1410 DATA "DON'T YOU REALLY*" 

1420 DATA "WHY DON'T YOU*" 

1430 DATA "DO YOU WISH TO BE ABLE TO*" 

1440 DATA "DOES THAT TROUBLE YOU?" 

1450 DATA "TELL ME MORE ABOUT SUCH FEELINGS." 


1460 DATA "DO YOU OFTEN FEEL*" ELIZA 

1470 DATA "DO YOU ENJOY FEELING*" VERSION DE J.P BENOIST 
1480 DATA "DO YOU REALLY BELIEVE I DON'T*" ET DE V.  SUMPF 
1490 DATA “PERHAPS IN GOOD TIME I WILL*" 

1500 DATA "DO YOU WANT ME TO*" BONJOUR 


1510 DATA “DO YOU THINK YOU SHOULD BE ABLE TO*" 
1520 DATA "WHY CAN'T YOU*" 


1530 DATA "WHY ARE YOU INTERESTED IN WHETHER OR NOT I AM*" JE SUIS ELIZA. QUEL EST VOTRE PROBLEME ? 

1540 DATA “WOULD YOU PREFER IF I WERE NOT*" VOUS : PUIS-JE PARLER DE MOI 

1550 DATA "PERHAPS IN YOUR FANTASIES I AM*" ELIZA :PEUT-ETRE EN FETES VOUS CAPABLE 

1560 DATA "HOW DO YOU KNOW YOU CAN'T*" VOUS : JE N'EXISTE PAS 

1570 DATA "HAVE YOU TRIED?" ELIZA :SAVEZ VOUS POUR QUI VOUS N'EXISTEZ PAS 

1580 DATA "PERHAPS YOU CAN NOW*" VOUS : POUR MON PERE 

1590 DATA “DIN YOU COME TO ME BECAUSF YOU ARE*" ELIZA :PARLEZ MOI DE VOTRE FAMILLE 

1600 DATA "HOW LONG HAVE YOU BEEN*" VOUS : NON 

1610 DATA "DO YOU BELIEVE IT IS NORMAL TO BE*" ELIZA :POUVEZ-VOUS PRECISER VOTRE PENSEE ? 

1620 DATA "DO YOU ENJOY BEING*" VOUS : JE NE TROUVE PAS LES MOTS 

1630-DATA "WE WERE DISCUSSING YOU -- NOT MF." ELIZA :VOUS AVEZ DES PRORLEMES PSYCHOLOGIQUES 

1640 DATA "OH, I*" VOUS : VOUS N'ETES PAS LE PSYCHOLOGUE ? 

1650 DATA "YOU'RE NOT REALLY TALKING ABOUT ME, ARE YOU?" ELIZA :POUVEZ-VOUS PRECISER VOTRE PENSEE ? 

1660 DATA “WHAT WOULD IT MEAN TO YOU IF YOU GOT*" VOUS : MA FAMILLE DIT QUE LE PSYCHOLOGUE EST BIEN POUR MOI 
1670 DATA "WHY DO YOU WANT*" ELIZA :ET VOUS NE DITES RIEN 

1680 DATA "SUPPOSE YOU SOON GOT*" VOUS : NON 

1690 DATA "WHAT IF YOU NEVER GOT*" ELIZA :POUVEZ-VOUS PRECISER VOTRE PENSEE ? 

1700 DATA “I SOMETIMES ALSO WANT*" VOUS : VOUS LE VOULEZ 

1710 DATA "WHY DO YOU ASK?" ELIZA :POUVEZ-VOUS PRECISER VOTRE PENSEE ? 

1720 DATA “DOES THAT QUESTION INTEREST YOU?" VOUS : VOUS 111! 

1730 DATA “WHAT ANSWER WOULD PLEASE YOU THE MOST?" ELIZA :POUVEZ-VOUS PRECISER VOTRE PENSEE ? 

1740 DATA "WHAT DO YOU THINK?" VOUS : VOUS AVEZ PEUR DE MOI 

1750 DATA "ARE SUCH QUESTIONS ON YOUR MIND OFTEN?" ELIZA :VOUS SAVEZ BIEN QUE C'EST VOUS QUI AVEZ PEUR DE ME PARLER 
1760 DATA "WHAT IS IT THAT YOU REALLY WANT TO KNOW?" VOUS : ON NE PEUT PAS DIRE PLUS 

1770 DATA "HAVE YOU ASKED ANYONE ELSF?" ELIZA :COMMENT ETES VOUS SI SUR QU'ON NE PUISSE PAS 
1780 DATA "HAVE YOU ASKED SUCH QUESTIONS BEFORE?" VOUS : AU REVOIR 

1790 DATA "WHAT ELSE COMES TO MIND WHEN YOU ASK THAT?" AU REVOIR 

1800 DATA "NAMES DON'T INTEREST MF." Ok 

1810 DATA “I DON'T CARE ABOUT NAMES -- PLEASE GO ON." 


1820 DATA “IS THAT THE REAL REASON?" 

1830 DATA “DON'T ANY OTHER REASONS COME TO MIND?" 

1840 DATA "DOES THAT REASON EXPLAIN ANYTHING ELSE?" 

1850 DATA “WHAT OTHER REASONS MIGHT THERE BE?" 

1860 DATA "PLEASE DON'T APOLOGIZEI" 

1870 DATA "APOLOGIES ARE NOT NECESSARY." 

1880 DATA "WHAT FEELINGS DO YOU HAVE WHEN YOU APOLOGIZE." 
1890 DATA "DON'T BE SO DEFENSIVE!" 

1900 DATA "WHAT DOES THAT DREAM SUGGEST TO YOU?" 

1910 DATA “DO YOU DREAM OFTEN?" 


















1920 DATA "WHAT PERSONS APPEAR IN YOUR DREAMS?" LIST 
1930 DATA "ARE YOU DISTURBED BY YOUR DREAMS?" L PRINT" FLIZA" 
1940 DATA "HOW DO YOU DO... PLEASE STATE YOUR PROBLEM." 2 PRINT" VERSION DE J.P BENOIST" 
1950 DATA "YOU DON'T SEEM QUITE CERTAIN." 3 PRINT" ET DE V. SUMPF" 
1960 DATA “WHY THE UNCERTAIN TONE?" 100 CLEAR 5000:'RESERVATION DE PLACE POUR LES MOTS-CLES ET LES REPONSES 
1970 DATA "CAN'T YOU BE MORE POSITIVE?" 110 DIM MCS(100),RES(100) 
1980 DATA "YOU AREN'T SURE?" 1000 REM *#*#*#* PROGRAMME PRINCIPAL *### 
L920"DATA. ÉDON CT YQUERNOWR . 1010 GOSUR 10000:'INITIALISATION 
2000 DATA “ARE YOU SAYING NO JUST TO BE NEGATIVE? 1020 GOSUR 12000:'AFFICHAGE DE DEPART 
2019: DATA; SYAU ARE BRING A BET.NEGATENE 1030 GOSUB 13000:'COUPLE QUESTION/REPONSE 
2020 PAR ut NU SRE 1040 IF Q$="FIN" THEN END ELSE GOTO 1030 
SAR DR NE NOR Eee es REM *#*#* INITIALISATIONS **** 
< ? . DEFINT A-Z:'TOUTES LES VARIABLES DIFFERENTES DES CHAINES SONT ENTIERES 
2050: DATA. “WHY ARE: YOU. CONCERNED ABOUT. MY* 10040 GOSUB 20000:'CHARGEMENT DES MOTS-CLES ET DES REPONSES 
2060 DATA “WHAT AROUT YOUR OWN 10050 GOSUB 10500:'CALCUL AUTOMATIQUE DU NOMBRE DE COUPLES MOTS-CLES/REPONSES 
2070 DATA "CAN YOU THINK OF À SPECIFIC EXAMPLE?" 10060 RETURN 
2080 DATA "WHEN?" 10500 REM **#** CALCUL AUTOMATIQUE DU NOMBRE DE COUPLES MOTS-CLES/REPONSES **#*4 
2090 DATA "WHAT ARE YOU THINKING OF?" 10501 NB=101 
2100 DATA "REALLY, ALWAYS?" L 10520 NB=NB-1 
2110 DATA “DO YOU REALLY THINK SO?" 10530 IF MCS(NB)="" THEN GOTO 10520 ELSE RETURN 
22 pra SR FSU P OT ED NS YOU* 12000 REM ***#* AFFICHAGE DE DEPART **** 
iù e 12010 PRINT CHRS(8) 
2150 DATA “WHAT RESEMBLANCE DO YOU SEE?" NN Re 
? 1 E LE? “ à ou 
2160 DATA “WHAT DOËS THE SIMILARITY SUGGEST TO YOU?" +040 RP AUEN SUIS; ELIZRe (QUEL EST'NORRERROBEÈME 
2170 DATA “WHAT OTHER CONNECTIONS DO YOU SEE?" 13000 REM *#*#** COUPLE QUESTION/REPONSE #*### 
2180 DATA "COULD THERE REALLY BE SOME CONNECTION?" 13010 LINE INPUT "VOUS : ":QS 
2190 DATA "HOW?" L 13020 IF O$="AU REVOIR" THEN PRINT "AU REVOIR" :Q$="FIN" : RETURN: ' SORTIE 
2200 DATA “YOU SEFM QUITE POSITIVE. 13030 GOSUB 14000:'RECHERCHE SI MOT-CLE UTILISE PAR VOUS 
2210 DATA ARE YOU SURE? 13040 IF CO=NB THEN RES="POUVEZ-VOUS PRECISER VOTRE PENSEE ?" 
2220 DATA “I SEF. 13050 PRINT"ELIZA :";RES:'AFFICHAGE DE LA REPONSE 
2230 DATA “I UNDERSTAND." 14000 REM *#*#** RECHERCHE SI MOT-CLE UTILISE **** 
2240 DATA "WHY DO YOU BRING UP THE TOPIC OF FRIENDS?" 14010 CO=0 
2250 DATA "DO YOUR FRIENDS WORRY YOU?" 14020 CO=CO+1 
2260 DATA “DO YOUR FRIENDS PICK ON YOU?" 14030 RE=INSTR(QS$,MC$(CO)):"PLACE DU MOT-CLE AU ZERO 
2270 DATA "ARE YOU SURE YOU HAVE ANY FRIENDS?" 14040 IF RE>O THEN RES=RES (CO) : RETURN 
2280 DATA "DO YOU IMPOSE ON YOUR FRIENDS?" 14050 IF CO<NB THEN GOTO 14020 ELSE RETURN 
2290 DATA "PERHAPS YOUR LOVE FOR FRIENDS WORRIES YOU." 20000 REM **#*#*BLOC DES MOTS-CLES ET DES REPONSES **** 
2300 DATA "DO COMPUTERS WORRY YOU?" 20010 MCS(1 PUIS-JE PARLER DE MOI E$(1)="PEUT-ETRE EN ETES VOUS CAPABLE" 
2310 DATA "ARE YOU TALKING ABOUT ME IN PARTICULAR?" 20020 MCS(2)="ON NE PEUT PAS":RE$(2)="COMMENT FTES VOUS SI SUR QU'ON NE PUISSE 
2320 DATA "ARE YOU FRIGHTENED BY MACHINES?" AS" 
2330 DATA "WHY DO YOU MENTION COMPUTERS?" 20030 MCS(3)="JE N'EXISTE PAS":RES$(3)="SAVEZ VOUS POUR QUI VOUS N'EXISTEZ PAS" 
2340 DATA “WHAT DO YOU THINK MACHINES HAVE TO DO WITH YOUR PROBLEM?" 20040 MCS(4 POUR MON PERE":RES(4)="PARLEZ MOI DE VOTRE FAMILLE" 
2350 DATA "DON'T YOU THINK COMPUTERS CAN HELP PEOPLE?" 20050 MCS(5 MA FAMILLE DIT QUE":RES$S(5)="ET VOUS NE DITES RIEN" 
2360 DATA "WHAT IS IT ABOUT MACHINES THAT WORRIES YOU?" 20060 MCS(6)="JE NE TROUVE PAS LES MOTS":RE$(6)="VOUS AVEZ DES PROBLEMES PSYCH 
2370 DATA "SAY, DO YOU HAVE ANY PSYCHOLOGICAL PROBLEMS?" OGIQUES" 
2380 DATA "WHAT DOES THAT SUGGEST TO YOU?" 20080 MCS(7)="VOUS AVEZ PEUR DE MOI":RE$(7)="VOUS SAVEZ BIEN QUE C'EST VOUS Q 
2390 DATA "I SEE." AVEZ PEUR DE ME PARLER" 
2400 DATA "I'M NOT SURE I UNDERSTAND YOU FULLY." 20085 MCS(8)="VOUS":RES(8)="IL S'AGIT DE VOUS,PAS DE MOI." 
2410 DATA “COME, COME, ELUCIDATE YOUR THOUGHTS." 20090 REM **** VOUS POUVEZ AJOUTER TOUT CE QUE VOUS VOULEZ **** 
2420 DATA "CAN YOU ELABORATE ON THAT?" 20100 RETURN 
2430 DATA "THAT IS QUITE INTERESTING." 30000 REM *#*#** DOCUMENTATION **#* 
2500 REM 30010 ‘ Co INDICE D'EMPLACEMENT D'UN MOT-CLE DANS LA TABLE MCS( 
2510 REM DATA FOR FINDING RIGHT REPLIES 30020 ‘ NB NB D'ARTICLES DANS CHAQUE TABLE MC$()OU RES() 
2520 REM | 30030 ‘ RE POINTEUR D'EMPLACEMENT D'UN MOT-CLE DANS UNE REPONSE 
2530 DATA 1,3,4,2,6,4,6,4,10,4,14,3,17,3,20,2,22,3,25,3 30040 ‘ 0$ VOTRE REPONSE 
2540 DATA 28,4,28,4,32,3,35,5,40,9,40,9,40,9,40,9,40,9,40,9 30050 ‘ RES REPONSE DE L'ORDINATEUR 
2550 DATA 49,2,51,4,55,4,59,4,63,1,63,1,64,5,69,5,74,2,76,4 30060 ‘ MCS() TABLE DES MOTS-CLES 
2560 DATA 80,3,83,7,90,3,93,6,99,7,106,6 30070 * RES() TABLE DE REPONSES: A UN MOT CLE TROUVE EN MCS( 
Ok 30080 ‘ CORRESPOND LA REPONSE EN RES() 
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Father (Père) 


Ce programme simule vaguement une 
conversation avec votre père sur votre 
sortie du samedi soir. Après avoir perdu 
ou gagné la discussion, vous aurez à 
décider si vous allez quand même sortir 
ou non. Quand vous en aurez fini avec 
tout ceci, l'ordinateur vous donnera un 
score entre moins sept et plus quatre. 
(L'échelle aurait pu être de zéro à dix, 
mais les ordinateurs ont ceci de magique 
qu'ils peuvent vous donner les échelles 
que vous désirez.) 

Ce programme sort de Digital Equip- 
ment Corporation et a été mis dans sa 
forme présente par Victor Nahigian. 
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PERE 
CREATIVE COMPUTING 
MORRISTOWN, NEW JERSEY 


TU VEUX DISCUTER AVEC TON PERE, HEIN ?? 
VEUX TU LES INSTRUCTIONS? OUI 


DANS CE JEU, TU VAS JOUER À DISCUTER D'UN 
PROBLEME AVEC TON PEREET ESSAYER DE LE CONVAINCRE 
EN TROIS ESSAIS. 


À CHAQUE ARGUMENT QUE TU AVANCES , JE TE DIRAI CE 
QUE TON PEREREPOND. 


ENTRE ‘RETURN' POUR CONTINUER. 
TU DOIS CHOISIR TON ARGUMENT PARMI L'UN 
DES SIX SUIVANTS . 


1 O.K. JE RESTE À LA MAISON. 

2 MAIS J'AIMERAIS BIEN Y ALLER.TOUS MES AMIS Y VONT. 
3. SI J'AI FINI MON TRAVAIL,JE POURRAI Y ALLER . 

4. SI J'Y VAIS JE GARDERAI MES FRERES TOUTE LA SEMAINE 
5 TU NE ME LAISSE JAMAIS FAIRE CE QUE JE VEUX. 

6 

* 


. DE TOUTE FACON J'Y VAISI 
LELSEELEE 


APRES UN POINT D'INTERROGATION, TAPE LE NUMERO 
DE TA REPONSE PUIS UN RETURN. 


TU RECEVRAS DES POINTS SI TU REUSSI A CONVAICRE 
TON PERE. 


LE SUJET DE LA DISCUSSION: 
TU VEUX SORTIR SAMEDI SOIR. 
TON PERENE VEUX PAS. 


QUAND TU EN PARLE POUR LA PREMIERE FOI, TONPEREREPOND 


NON, TU NE SORTIRAS PAS SAMEDI SOIR .C'EST COMME CA. 
QUE REPONDS TU A TON PERE? 

QUE DIS TU EN PREMIER? 2 

TON PERE DIT: 

JE NE PENSE PAS QUE TU MERITES DE SORTIR SAMEDI. 
QUELLE EST TA REPONSE? 3 

TON PERE DIT: 

O.K. SI TU LE FAIS TU PEUX SORTIR SAMEDI SOIR. 


ENTRE -7 ET 4, TON SCORE EST DE 2 POINTS. 
ON EST SAMEDI SOIR, QUE FAIS TU ? 

1. JE SORS. 

2. JE RESTE. 
? 1 
TON PERE À VERIFIE CE QUE TU AS FAIS. 
TON SCORE EST MAINTENANT DE 2 POINTS. 
BIEN JOUEI 


VEUX TU ESSAYER UNE AUTRE FOIS? OUI 
QUAND TU EN PARLE POUR LA PREMIERE FOI, TONPEREREPOND 


NON, TU NE SORTIRAS PAS SAMEDI SOIR .C'EST COMME CA. 
QUE REPONDS TU A TON PERE? 

QUE DIS TU EN PREMIER? 1 

C'EST D'ACCORD. 


ENTRE -7 ET 4, TON SCORE EST DE-1 POINTS. 
ON EST SAMEDI SOIR, QUE FAIS TU ? 
1. JE SORS. 
2. JE RESTE. 
2:52 
TON PERE À VERIFIE CE QUE TU AS FAIS. 
TON SCORE EST MAINTENANT DE-1 POINTS. 
TU N'AS PAS REUSSI À CONVAINCRE TON PERE. 


VEUX TU ESSAYER UNE AUTRE FOIS? NON 


19 PRINT CHRS (26) :WIDTH 89 


190 
119 
129 
139 
140 
158 
169 
179 
180 
190 
195 
200 
210 
229 
230 
248 
250 
260 
270 
280 
285 
290 
309 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
448 
456 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
569 
570 
580 
590 
600 
619 
620 
630 
649 
650 
669 
670 
689 
699 
700 
710 
720 
730 
740 
750 
760 
770 
780 
796 
800 
819 
820 
830 
840 
850 
860 
879 
880 
‘890 
909 
910 
920 
930 
949 
959 
969 
970 
980 
990 


PRINT TAB (26) ;" PERE" 
PRINT TAB (29) ; "CREATIVE COMPUTING" 


PRINT TAB (18) ;"MORRISTOWN, NEW JERSEY 

PRINT: PRINT: PRINT 

PRINT "TU VEUX DISCUTER AVEC TON PERE, HEIN ??":PRINT 
DIM MS (2) 

A=2 

M$ (2)="PERE" 

PRINT “VEUX TU LES INSTRUCTIONS" ; 

INPUT Q1$ 

PRINT 

IF LEFTS(Q1$,1)="O0" OR LEFTS(Q1$,1)="o" THEN 220 
GUTO 310 

PRINT "DANS CE JEU, TU VAS JOUER À DISCUTER D'UN" 


PRINT "PROBLEME AVEC TON ";M$ (A) ;"ET ESSAYER DE LE CONVAINCRE" 
PRINT "EN TROIS ESSAIS." 

PRINT 

PRINT "A CHAQUE ARGUMENT QUE TU AVANCES , JE TE DIRAI CE * 
PRINT "TON ";M$ (A) ; "REPOND. * 

PRINT 

LINE INPUT "ENTRE ‘RETURN' POUR CONTINUER." ;XX$ 

PRINT "TU DOIS CHOISIR TON ARGUMENT PARMI L'UN* 

PRINT "DES SIX SUIVANTS ." 

PRINT CHR$(26):PRINT "#####aaaxxn 


PRINT "1. O.K. JE RESTE À LA MAISON." 

PRINT "2. MAIS J'AIMERAIS BIEN Y ALLER.TOUS MES AMIS Y VONT." 
PRINT "3. SI J'AI FINI MON TRAVAIL,JE POURRAI Y ALLER .* 
PRINT "4. SI J'Y VAIS JE GARDERAI MES FRERES TOUTE LA SEMAINE" 
PRINT "S. TU NE ME LAISSE JAMAIS FAIRE CE QUE JE VEUX." 

PRINT "6. DE TOUTE FACON J'Y VAIS!* 

PRINT "AAARAAtRAR 

PRINT 

PRINT "APRES UN POINT D'INTERROGATION, TAPE LE NUMERO" 


PRINT “DE TA REPONSE PUIS UN RETURN." 

PRINT 

PRINT "TU RECEVRAS DES POINTS SI TU REUSSI À CONVAICRE" 
PRINT "TON PÈRE." 

PRINT 

PRINT "LE SUJET DE LA DISCUSSION :" 

PRINT * TU VEUX SORTIR SAMEDI SOIR." 

PRINT “ TON ";MS(A);"NE VEUX PAS." 

PRINT 

PRINT "QUAND TU EN PARLE POUR LA PREMIERE FOI, TON" ;M$ (A) ; "REPOND" 
P1=-1 

P3=2 

P5=-1 

c=1 

P6=-2 

X=0 

16=0 

PRINT 

PRINT "NON, TU NE SORTIRAS PAS SAMEDI SOIR .C'EST COMME CA." 
PRINT “QUE REPONDS TU À TON ":M$ (A) ;"2" 

PRINT "QUE DIS TU EN PREMIER"; :INPUT I1 

ON 11 GOT 720,760,1970,1070,750,700 

PRINT "NON, TU NE PEUX PAS SORTIR SAMEDI SOIR." 
X=X-2:16=16+11 

IF 16=12 THEN 830 

C=C+1 

IF C=3 THEN 1940 

IF 12=6 THEN 840 

GOTO 789 

PRINT "TON ";M$(A);" DIT:" 

GOTO 639 

PRINT "C'EST D'ACCORD. " 

X=X+P1 

GOTO 1049 

X=X+PS 

PRINT "TON ";MS(A);" DIT:" 

PRINT "JE NE PENSE PAS QUE TU MERITES DE SORTIR SAMEDI." 
PRINT "QUELLE EST TA REPONSE" ; 

INPUT 12 

ON 12 GOTO 720,960,1010,1010,95û,700 

PRINT "TON ";M$(A);" DIT:" 

X=X+P3 

PRINT "QUELLE EST TA REPONSE"; 

INPUT 13 

ON 13 GOTO 910,1050,899,890,910,920 

X=X+P1 

X=X+P1 

GOTO 1058 

X=X+2 

GOTO 1959 

X=X-1:GOTO 1059 

X=X-2 

PRINT "C'EST LA FIN DE LA DISCUSSION.C'EST NON ." 
GOTO 1940 

X=X+PS 

PRINT "TON ";MS$(A);" DIT:" 

PRINT "NON, JE SUIS DESOLE,MAIS TU NE MERITES VRAIMENT PAS "; 
PRINT "D'Y ALLER." 

PRINT "QUE REPONDS TU ";:INPUT 13 


1900 ON 13 GOTO 720,890,1018,1010,870,869 

1919 PRINT "TON ";M$(A);" DIT:" 

1920 X=x+P3 

1939 PRINT "O.K. SI TU LE FAIS TU PEUX SORTIR SAMEDI SOIR." 
1940 PRINT 

1950 PRINT "ENTRE -7 ET 4, TON SCORE EST DE";X; "POINTS." 
1969 GOTO 1129 

1978 PRINT "TON "“;MS(A);" DIT:" 

1089 x=x+P3 

1990 PRINT "PEUT ETRE, MAIS JE NE PENSE PAS QUE TU DEVRAIS Y ALLER." 
1199 PRINT "QUELLE EST TA REPONSE"; :GOTO 799 


1110 PRINT 

1129 PRINT "ON EST SAMEDI SOIR, QUE FAIS TU ?" 
1130 PRINT “ 1. JE SORS." 

1149 PRINT " 2. JE RESTE." 

1159 INPUT Q3 


1168 IF Q3 > 1 THEN 1189 


1179 


GOTO 1229 


1189 IF 12 > 1 THEN 1209 
1199 GOTO 1229 
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1200 


IF 13 < S THEN 1220 


1210 GOTO 1230 


1220 
1230 


IF RND(1) > .5 THEN 1250 
PRINT "TON PERE À VERIFIE CE QUE TU AS FAIS." 


1246 GOTO 1270 


1250 


PRINT "TON PERE NE N'A PAS VERIFIE CE QUE TU AS FAIT." 


1269 GOTO 1270 


1270 
1280 
1290 
1300 
1319 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1406 
1410 


ON Q3 GOTO 1360,1280 

PRINT "TON SCORE EST MAINTENANT DE";X; "POINTS. * 
GOTO 1419 

IF 12=3 THEN 1330 

IF 12=4 THEN 1330 

GOTO 1350 

X=X+1 

GOTO 1289 

ON 13 GOTO 1289,1280,1330,1330,1280,1280 

IF Il=1 THEN 1399 

ON 12 GOTO 1390,1380,1280,1280,1380,1380 

ON 13 GOTO 1396,1399,1288,1280,1390,1390 

X=X-1 

GOT 1289 

ON X+8 GOTO 1420,1420,1420,1428,1450,1450,1459,1450,1470,1500,150 


0,1500 


1420 
1430 
1440 
1459 
1468 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1549 
1550 


PRINT "TU N'AS PAS REUSSI À FAIRE CHANGER D'IDEE TON" 
PRINT MS (A) ; 

GOTO 1519 

PRINT "TU N'AS PAS REUSSI À CONVAINCRE TON ";M$ (A) ;"." 
GOTO 1519 

PRINT "TU AS REUSSI À CONVAINCRE TON ";M$(A);" MAIS CELA T'A" 
PRINT "DEMANDE TROP D'ESSAIS." 

GOTO 1519 

PRINT "BIEN JOUE!" 

PRINT 

TI1=T1+1 

PRINT "VEUX TU ESSAYER UNE AUTRE FOIS";:INPUT Q5$ 

1F LEFTS(Q5$,1)="0" OR LEFTS(Q5$,1)="o" THEN 509 

FOR XX=1 TO 3000:NEXT : END 





Ce jeu est peut-être le seul qui soit si facile que même un 
animal pourrait y jouer, bien qu'il soit difficile pour quiconque 
d'y jouer aussi bien que le fait le hasard. Flip forme l'intuition 
et améliore la tactique dans les jeux de stratégie, où chaque 
joueur essayant de prévoir le comportement de son adver- 
saire, peut anticiper les coups. 

Au début du jeu, le programme choisit : « oui » ou « non », 
mais ne vous donne aucune indication sur sa décision. Votre 
recherche au premier tour relève donc totalement du hasard et 
ne nécessite aucune réflexion. Mais par la suite, le programme 
analyse votre comportement, et prend ses nouvelles décisions 
en vue de vous induire en erreur. Pour augmenter la difficulté, 
le programme ne cherche pas toujours à maximiser ses 
chances, mais choisit parfois de façon aléatoire. 


Modifications 


Il existe une infinité de stratégies pour ce programme, 
autant que de définitions de « modélisations ». En effet, 
aucun algorithme ne peut être considéré comme le « meil- 
leur », puisqu'une modélisation dépend du joueur; or chaque 
personne est unique, et une même personne peut se 
comporter différemment suivant le moment. Donc aucun 
algorithme ne peut prétendre modéliser correctement le 
comportement du joueur, durant l'exécution du jeu. 

Le programme détaillé ci-dessous utilise un tableau de 
seize probabilités. Les deux dernières estimations du joueur 
et leur qualificatif : « vrai » ou « faux » (16 possibilités en tout) 
déterminent le prochain choix de l'ordinateur. Le tableau (qui 
dépend du tour précédent dans le jeu) est pris pour modèle ou 
profil du joueur, et il peut être imprimé à la fin du jeu. Toutes les 
probabilités éloignées de 5.0 indiquent un comportement pré- 
visible dans les situations correspondantes. Les profils peu- 
vent être comparés, ou utilisés pour une étude statistique des 
stratégies utilisées par différents joueurs. lIs peuvent aussi être 
confrontés à des courbes de hasard résultant de jeux tel « Pile 
ou Face », ou bien (plus facilement) de modifications du pro- 
gramme, où des instructions BASIC remplacent le comporte- 
ment humain et engendrent des choix aléatoires (ou régis par 
une règle quelconque). En fait, divers algorithmes peuvent 
ainsi s'affronter. 

Cette exécution utilise deux paramètres : 

— un facteur mémoire (fi) qui contrôle le taux de 
renouvellement des éléments d'analyse quand ceux-ci sont 
rendus caduques par des éléments nouveaux, 

— et un facteur aléatoire (f2) qui dicte la décision de se fier 
ou non à la probabilité estimée. Ce sont deux paramètres 
parmi le grand nombre susceptible de régir le programme 
Flip. 


Ce programme et sa description sont de John S. James. Ils 
parurent pour la première fois dans Creative Computing, 
mars-avril 1977. 
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FLIP 
CREATIVE COMPUTING 
MORRISTOWN NEW JERSEY 


EXPLICATIONS (O OU N)? OUI 


A CHAQUE TOUR,VOUS DEVINEZ OUI ('O') OU ('N'). 

UN SEUL EST CORRECT,ET LE PROGRAMME À DECIDE LEQUEL 
AVANT QUE VOUS DEVINIEZ.AU DEPART VOS CHANCES SONT 
5 %,PURE CHANCE.MAIS PLUS TARD LE PROGRAMME 
ESSAIERA DE TIRER AVANTAGE DE LA MANIERE DONT VOUS 
ESSAYER DE DEVINER. 


LE JEU PREND FIN APRES 5 TOURS; UN SCORE DE 24 OÙ PLUS 

EST BON. LE PROGRAMME VOUS INDIQUE LORSQUE VOUS GAGNEZ UN TOUR, 
EN TAPANT UN ASTERISQUE ('*') COMME PREMIER CARACTERE 

DE LA LIGNE SUIVANTE. 


DEBUT. 


CE * * 
D NN 9 29 HN 9 NN JU 2 NI + 9 +9 


* 


+ 
© 9 9 0 0 


* 
Lo 
O00002ZzZ0002ZZ90ZZ202Z2002ZZ0ZZZ20Z02ZZ2Z2000Z2zZZZZ00zZ00002Z007zZ 


Ne? 
*? 

2 
*? 
#? 
*?2 


FIN DU JEU. 
VOUS AVEZ 28 SUR 5 REPONSES CORRECTES. 


VOULEZ VOUS REJOUER (O OÙ N)? N 
Ok 


PRINT CHR$ (26) ; TAB (25) ;"FLIP" 

PRINT TAB (18) ; "CREATIVE COMPUTING" 

PRINT TAB (16) ;"MORRISTONN NEW JERSEY" :PRINT:PRINT:PRINT 
B1=50 

PRINT "EXPLICATIONS (O0 OR N)"; 

INPUT T$ 

IF LEFT$(TS$,1) <> "O" THEN 189 

PRINT 

PRINT “A CHAQUE TOUR, VOUS DEVINEZ OUI ('O') OU ('N')." 


69 PRINT "UN SEUL EST CORRECT,ET LE PROGRAMME À DECIDE LEQUEL* 


230 
240 
245 
250 
‘ 264 
270 
280 
290 
300 
310 
320 
330 
349 
350 
360 
370 
380 
390 
400 
419 


PRINT "AVANT QUE VOUS DEVINIEZ.AU DEPART VOS CHANCES SONT" 
PRINT "5ÿ%,PURE CHANCE.MAIS PLUS TARD LE PROGRAMME" 

PRINT "ESSAIERA DE TIRER AVANTAGE DE LA MANIERE DONT VOUS" 
PRINT "ESSAYER DE DEVINER." 

PRINT 

PRINT "LE JEU PREND FIN APRES" ;B1l;"TOURS; UN SCORE DE"; 
PRINT INT(B1/2-1);"OU PLUS" 

PRINT "EST BON. LE PROGRAMME VOUS INDIQUE LORSQUE VOUS GAGNEZ UN TOUR, * 
PRINT "EN TAPANT UN ASTERISQUE ('*') COMME PREMIER CARACTERE" 
PRINT "DE LA LIGNE SUIVANTE." 

PRINT 

REM 

REM INITIALISATION: 16 PROBABILITES, 4 RESPONSES (X), 

REM FACTEUR DE MEMOIRE PRIMAIRE (F1), FACTEUR ALEATOIRE (F2), 
REM SCORES (S1,S2) ET SIGNAL DE BONNE-REPONSE. 

PRINT 

DIM P(16),X(4) 

PRINT "DEBUT." 

PRINT 

FOR I=1 TO 16 

P(1)=.5 

NEXT I 

FOR 1=1 TO 4 

X(1)=0 

IF RND(1) < .5 THEN 320 

X(1)=1 

NEXT I 

Fl=.8 





S2=0 

A$=" " 

REM 

REM PRENDRE LA PROBABILITE ESTIMEE (21) 
REM DE LA PERSONNE DEVINANT OUI. 

REM UTILISER UNE PROBABILITE AJUSTEE (22). 
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420 
430 
448 
458 
469 
470 
480 
499 
509 
519 
520 
530 
540 
559 
568 
570 
575 


590 
608 
619 
629 
639 
649 
658 
669 
670 
689 
699 
708 
729 
730 
749 
750 
769 
770 
788 
799 
800 
819 
828 
830 
848 
859 
869 


19=8*X(4)+4*X(3)+2*X(2)+X(1)+1 
Z1=P(19) 

Z2=21 

IF Z2 <> .5 THEN 489 

Z2=RND(1) 

GOTO 528 

IF 22 > .5 THEN 519 
Z2=22*F2+0* (1-F2) 

GOTO 529 

Z2=22*F2+1*(1-F2) 

Z5=0 

IF RND(1) < Z2 THEN 568 

ZS=1 

REM 

REM INTERACTION AVEC LA PERSONNE.PRENDRE SA REPONSE (23). 


REM HISTORIQUE DES REPONSES JUSQU'A MAINTENANT (X), 
REM PROBABILITE APPROPRIEE (P(19)). 

PRINT A$; 

Z3=0 

INPUT H$ 

IF LEFTS(H$,1) = "O" THEN 659 


IF LEFTS(H$,1) ="N" THEN 669 

PRINT "ERREUR, CE DOIT ETRE ‘O' OU 'N' ." 
GOTO 600 

23=1 

A$=" " 

S2=S2+1 

IF 23 ©> 25 THEN 719 

AG=n an 

S1=51+1 

X(1)=X (3) 

X(2)=X(4) 

X(3)=23 

X(4)=25 

REM REMETTRE À JOUR LA PROBABILITE EN UTILISANT 19. 
P(19)=F1*P(19)+(1-F1) *X(3) 

IF S2 < Bl THEN 389 

PRINT A$; 

PRINT 

PRINT “FIN DU JEU." 

PRINT “VOUS AVEZ";S1; "SUR" ;52; "REPONSES CORRECTES. " 
PRINT: PRINT 

PRINT "VOULEZ VOUS REJOUER (0 OÙ N)"; 
INPUT TS 

IF LEFTS(TS$,1)="O" THEN 240 


879 END 


Four in a Row 





(Alignez-en quatre) 


Dans ce jeu, on aligne huit piquets qui 
peuvent supporter huit anneaux chacun. 
Chaque anneau est caractérisé par un X 
ou un ©. Votre adversaire est l'ordinateur. 
Chacun d'entre vous prend son tour 
alternativement. À chaque tour, il faut 
placer un anneau sur un des huit piquets. 
L'objectif est d’aligner quatre anneaux X 
ou quatre anneaux O verticalement, hori- 
zontalement ou en diagonale. Un coup 
d'œil au listing d'exemple permet de 
comprendre le procédé. 

Bien que l'ordinateur joue déjà relative- 
ment bien, vous pouvez souhaiter amé- 
liorer sa tactique en changeant les valeurs 
des données dans les lignes 120 et 130. 
Les quatre premières valeurs sont attri- 
buées si une position conduit respective- 
ment à un, deux, trois, ou quatre anneaux 
alignés pour l'ordinateur. Les quatre 
valeurs suivantes sont des points de 
bonus au cas où deux, trois ou quatre 
anneaux sont alignés dans plusieurs 
directions au cours du même mouvement. 
Les huit valeurs suivantes (ligne 130) sont 
distribuées de la même façon, pour vous. 
Ces valeurs servent donc à votre défense. 

La version informatisée de ce jeu a été 
écrite par James L. Murphy. 


S PRINT CHRS (26) 

19 PRINT TAB(22) ;"ALIGNEZ EN QUATRE" 

20 PRINT TAB (20) ; "CREATIVE COMPUTING" 

30 PRINT TAB (18) ;"MORRISTOWN, NEW JERSEY" 

40 PRINT:PRINT:PRINT 

190 DIM B$(8,8),L(8),S(4),F(4) 

119 DIM V(16) ,N(4) 

130 DATA 1,100,500,1E20,1,800,4000,1E20 

148 DATA 1,75,909,1E18,1,450,3000,1E18 

159 FOR Z1=1 TO 16:READ V(Z1):NEXT 21 

160 PRINT"JEU DU 'ALIGNEZ EN QUATRE".":PRINT 
179 INPUT"VOULEZ VOUS LE MODE D'EMPLOI" ;AS$ 

180 IF LEFTS(AS,1)="N" THEN 279 

199 IF LEFTS(A$,1)="O" THEN 210 

200 PRINT"OUI OU NON":GOTO 179 

219 PRINT:PRINT"LE JEU CONSISTE À ENTASSER DES X" 
220 PRINT"ET DES O (L'ORDINATEUR A LES O) JUSQU'A CE QUE" 
230 PRINT"UN DES JOUEURS EN AIT QUATRE ALIGNES" 
248 PRINT" VERTICALEMENT, HORIZONTALEMENT, OÙ " 
258 PRINT"DIAGONALEMENT. " 

260 PRINT:PRINT 

279 X$="x":0$="0" 

280 FOR I=1 TO 8:FOR J=1 TO 8:B$(1,J)="-":NEXT J:NEXT I 
299 FOR Z1=1 TO 8:L(Z1)=G:NEXT 21 

300 INPUT"VOULEZ VOUS COMMENCER" ; AS 

305 PRINT 

319 IF LEFTS(A$,1)="N" THEN 618 

320 GOSUB 349 

330 GOTO 450 

349 FOR I=8 TO 1 STEP -1 

350 FOR J=1 TO 8 

360 PRINT" ";B$(1,J); 

370 NEXT J 

380 PRINT 

390 NEXT 1 

408 PRINT" "; 

419 FOR I=1 TO B:PRINT I;:NEXT I 

428 PRINT:PRINT 

438 RETURN 

449 PRINT"MOUVEMENT INTERDIT, RECOMMENCEZ. " 

458 INPUT"UN NOMERE ENTRE 1 ET 8";M 

468 M=INT (M) 

470 IF M<1 OR M>8 THEN 440 

480 L=L(M) 

490 IF L>7 THEN 448 

508 L(M)=L+1:L=L+]1 

519 B$(L,M)=X$ 

528 PRINT 

538 GOSUB 349 


ALIGNEZ EN QUATRE 
CREATIVE COMPUTING 
MORRISTOWN, NEW JERSEY 


JEU DU ‘"ALIGNEZ EN QUATRE‘. 
VOULEZ VOUS LE MODE D'EMPLOI? OUI 


LE JEU CONSISTE À ENTASSER DES X 


ET DES O (L'ORDINATEUR À LES O) JUSQU'A CE QUE 


UN DES JOUEURS EN AIT QUATRE ALIGNES 
VERTICALFMENT, HORIZONTALEMENT, OU 
DIAGONALEMENT . 


VOULEZ VOUS COMMENCER? 


re] 
[e 
# 


CR 
DER TUUUSN 
WIN UT 
BIT UUUN 
CORRE 
or ut EC 
NET tuto! 
Dit Uuut 


UN NOMBRE 


em 
Z 
El 
2 
mn 


5 À ET 87 4 


CN EE OP COST COR ON DE 
DIRE UUN 
WU UUU 
BXHIHTUNU 
CR 
CE 
CR 
Din tunuut 


549 PS=X$ 

558 GOSUB 1249 

568 FOR Z=1 TO 4 
570 IF S(Z)<4 THEN 6 
S89 PRINT"V OUS G 
590 GOTO 1588 

608 NEXT Z 

619 M9=0:V1=0 

629 N1=1 

638 FOR M4=1 TO 8 
648 L=L(M4)+1 

650 IF L>8 THEN 1080 
668 V=1 

670 P$=0$ :W=0 

680 M=M4 

698 GOSUB 1249 

700 FOR Z1=1 TO 4:N(Z1)=0:NEXT Z1 
718 FOR Z=1 TO 4 

729 S=S(2) 

730 IF S-W>3 THEN 1130 

740 T=S+F(Z) 

750 IF T<4 THEN 789 

760 V=V+4 

770 N(S)=N(S)+1 

789 NEXT Z 

798 FOR I = 1 TO 4 

808 N=N(I)-1 

819 IF N=-1 THEN 840 

820 11=8*W+4*SGN (N) +I 

830 V=V + V(Il1) + N*V(8*W+1I) 

849 NEXT I 

850 IF W=1 THEN 880 

869 W=1:PS=XS 

870 GOTO 698 

880 L=L+1 

920 IF L>8 THEN 1020 

932 GOSUB 1249 

948 FOR Z=1 TO 4 

958 IF S(Z)>3 THEN V=2 

968 NEXT Z 

1928 IF V<V1 THEN 1080 

1930 IF V>V1 THEN N1=1: GOTO 1069 
1948 NI=N1 + 1 

1958 IF RND(1)>1/N1 THEN 1089 
1969 V1 = V 

1978 M9=M4 

1989 NEXT M4 

1290 IF M9<>9 THEN 1129 

1199 PRINT "MATCH NUL..." 
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08 
AGNEZ !I!" 


1110 
1120 
1139 
1140 
1150 
1169 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1249 
1250 
1260 
1270 
1280 
1290 
1300 
1318 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1499 
1410 
1420 
1430 
1440 
1459 
1469 
1470 
1489 
1490 
1580 
1519 
1520 
1530 
1540 
1550 
1569 
1570 
1588 
1590 


L'ORDINATEUR CHOISIT LA COLONNE 5 


BXIHIUUUN 
nOtTItTEttTt! 
Dit uu 
NTM 
DIU UuuU 


CRE 
DIT 
CREER 


UN NOMBRE ENTRE 1 ET 8? 5 
RE 
RE 
1 2 3 4 5 6 7 


L'ORDINATEUR CHOISIT LA COLONNE 7 


É ='JES Ru ONE LS 
- - - O0 O0 0 O0 - 
- _- - 90 X Q X - 
- — — O0 X X O - 
— — X X O X X x 
1 2 3 4 5 6 7 8 


L'ORDINATEUR GAGNEÏIII 
ENTREZ ‘RETURN' POUR FINIR. 


Ok 


GOTO 1589 

M=M9 

PRINT "L'ORDINATEUR CHOISIT LA COLONNE" ;M: PRINT 
L=L(M)+1:L(M)=L(M)+1 
B$(L,M)=0$ 

P$=0$:GOSUB 349 

GOSUB 1249 

FOR Z = 1 TO 4 

IF S(Z)<4 THEN 1220 
PRINT'L'ORDINATEUR GAGNE !!!" 
GOTO 1589 

NEXT Z 

GOTO 459 

9$=X$ 

IF PS$S=X$S THEN Q$=0$ 
D2=1:D1=0 

2z=0 

GOSUB 1360 

Di=1:D2=1 

GOSUB 1369 

D2=8:D1=1 

GOSUB 1369 

D2=-1:D1=1 

GOSUB 1369 

RETURN 

D=1:S=] 

T=0 

Z=2+]1 

Cc=8 

FOR K=1 TO 3 
MS=M+K*D1 : L1=L+K#D2 

IF M5<1 OR L1<1 OR M5>8 OR L1>8 THEN 1518 
B$=B$ (L1,M5) 

IF C=8 THEN 1489 

IF B$=QS THEN K=3: GOTO 1510 
T = T+l 

GOTO 1510 

IF B$=P$ THEN S=5+1:GOTO0 1510 
C=1 

GOTO 1459 

NEXT K 

IF D=9 THEN 1550 

D=@:D1=-D]1 :D2=-D2 

GOTO 1399 

S(Z)=S 

F(Z)=T 

RETURN 

PRINT:LINE INPUT "ENTREZ 'RETURN' POUR FINIR. ";XXS$:PRINT 
END 


eowar 
(La bataille géographique) 





Ce programme très simple représente ni RAT RTLLEZCEOGRAPATOUE 
un champ de bataille sur lequel vous, le CREATIVE COMPUTING 
joueur, vous trouvez aux coordonnées AT An Ce 
0,0. Il y a cinq installations ennemies qui 


peuvent se trouver n'importe où dans un VOULEZ-VOUS UNE DESCRIPTION DU JEU? OUI 
carré de trente carreaux de côté sauf dans LE PREMIER QUADRANT D'UN GRAPHE REGULIEREMENT INDICE SERT DE 
: i ôté n CHAMP DE BATAILLE.IL EXISTE CINQ INSTALLATIONS ENNEMIES À L'INTERIEUR DU CARRE 
Pres dodo Se 20 CARREAUX DE COTE,MAIS AUCUNE DANS CELUI DE 10 CARREAUXDE COTE 
. œ CAR L'ORIGINE EST LE LIEU OU SE TROUVE VOTRE BASE.QUAND L'ORDINATEUR 
pourra clarifier la situation. Au contraire de VOUS DEMANDE PE NOMBRE: DE; DRGRES, DE’ ÉYANGUE-DE SE ERPREFONDRS 
la plupart des jeux d'artillerie où vous ENTRE 1 ET 90. 
lancez des projectiles qui retombent sur FROLEN**#ææ ame“ 
les installations ennemies, dans ce jeu 1. UN COUP AU BUT EST UN COUP À MOINS D'UN DEGRE # L 
vous utilisez une sorte de missile laser DE LA CIRLE. Marre * TOUCHE*** + 
: ‘ Fe : : : . UN I USS C E Ÿ 
dans une direction rectiligne qui détruit FN SE RS Den OP ° D de. ve 
tout sur son passage. Si le missile passe à 3. UN COUP FROLE NOIT PASSER À MOINS DE TROIS DEGRES : 
un degré au nord-ouest ou au sud-est de DE LA CIBLE EN CE SENS QUE LA PARTIE ENTIERE DE 
A L » . ; *  #**#*TOUCHE * 
la cible, ou bien sur, sur la cible, celle-ci L'INTERVALE DOIT ETRE DEUX.IL PROVOQUE LA RELOCA- 
* * 


est détruite. S'il passe à deux degrés de la 


cible, le missile est détruit et cette cible LISATION DE LA CIBLE À MOINS D'UNE UNITE. HRANANRAAAFROLE 

| 6 LES MISSILES ONT UNE PORTEE INFINIE ET PEUVENT DESCENDREPLUS D'UNE CIBLE 
bougera d'un degré au plus dans UN MISSILE QUI RATE DE PEU UNE INSTALLATION (FROLE) SERA 
n'importe quelle direction par rapport à sa IMMEDIATEMENT DESCENDU. TOUT COUP REUSSI PRECEDEMENT SERA  ANNULE 


JUSQU'A CE QU'UN COUP DIRECT SOIT REUSSI. 


position initiale. 
La bataille géographique est en grande 


. . , . . . PRET? OUI 
partie un jeu d'estimation avec des infor- 
mations incomplètes comme indices. RONNES CHANCES 
Néanmoins, il est amusant de jouer et Rene dE 
c'est une jolie version du fameux jeu du PAS DE CHANCE -- ESSAYEZ À NOUVEAU. 
nombre mystérieux. |l a été écrit par Gary a NT RES LANCE NEC TRT 138 
Lorenc et est paru pour la première fois PAS DE CHANCE -- ESSAYEZ À NOUVEAU. 
dans Creative Computing, mai-juin 1975. RENTRER (L'ANGLE DE TIR2:"47 
UN COUP FROLE. L'ENNEMI S'EST RELOCALISE. 
RENTRER L'ANGLE DE TIR? 48 
© UN COUP FROLE. L'ENNEMI S'EST RELOCALISE. 
30 RENTRER L'ANGLE DE TIR? 49 
30 UN COUP FROLE. L'ENNEMI S'EST RELOCALISE. 


RENTRER L'ANGLE DE TIR? 51 
*** FELICITATIONS *#*#* UN COUP REUSSI. 
1 DESCENDU(S) -- 4 RESTANT(S). 


20 58 


RENTRER L'ANGLE DE TIR? 77 
UN COUP FROLE. L'ENNEMI S'EST RELOCALISE. 


RENTRER L'ANGLE DE TIR? 79 
UN COUP FROLE. L'ENNEMI S'EST RELOCALISE. 


RENTRER L'ANGLE DE TIR? 82 
UN COUP FROLE. L'ENNEMI S'EST RELOCALISE. 


RENTRER L'ANGLE DE TIR? 80 
UN COUP FROLE. L'ENNEMI S'EST RELOCALISE. 





vou A) RENTRER L'ANGLE DE TIR? 79 
##** OEIL DE LYNX *##*#* 2 COUPS--UN COUP DIRECT SUR 1 D'ENTRE EUXI 
3 DESCENDU(S) -- 2 RESTANT(S). 


RENTRER L'ANGLE DE TIR? 10 
##*** OEIL DE LYNX ***#* UN COUP DIRECTI 
4 DESCENDU(S) -- 1 RESTANT(S). 


RENTRER L'ANGLE DE TIR? 50 
UN COUP FROLE. L'ENNEMI S'EST RELOCALISE. 


RENTRER L'ANGLE DE TIR? 48 
#*** FELICITATIONS *#** UN COUP REUSSI. 


TOTAUX DU JEU: 3 COUPS ET 2 COUPS DIRECTS SUR 15 TIRS. 
PRET POUR UN AUTRE JEU? NON 

TOTAUX POUR 1 JEUX: 3 COUPS ET 2 

COUPS DIRECTS SUR 15 TIRS. 


UNE MOYENNE DE 3 TIRS PAR CIBLE. 
Ok 
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1 PRINT CHR$(26);TAB(26); "BATAILLE GEOGRAPHIQUE":WIDTH 80 96 IF D<H(A-1) THEN 105 

2 PRINT TAB(20);"CREATIVE COMPUTING" 97 IF D>D(A/2)+1 THEN 101 

3 PRINT TAB(18);"MORRISTOWN, NEW JERSEY" £3 IF D<D(A/2)-1 THEN 101 

& PRINT:PRINT:PRINT $9 D1=D1+1 

S PRINT "VOULEZ-VOUS UNE DESCRIPTION DU JEU"; 100 GOTO 102 

6 INPUT 1$ 101 H1=H1+1 

7 IF LEFT$(I$,1)="N" THEN 46 102 F(D14#H1)=A 

8 PRINT CHR$(26) 103 NEXT À 

9 PRINT " LE PREMIER QUADRANT D'UN GRAPHE REGULIEREMENT INDICE "; 104 GOTO 108 

10 PRINT " SERT DE" 105 IF D1>0 THEN 110 

11 PRINT "CHAMP DE BATAILLE.IL EXISTE CINQ INSTALLATIONS ENNEMIES"; 106 GOSUB 138 

12 PRINT “ A L'INTERIEUR DU CARRE" 107 GOTO 81 

13 PRINT "DE 30 CARREAUX DE COTE,MAIS AUCUNE DANS CELUI DE 10 CARREAUX"; 108 IF D14H1<>0 THEN 112 

14 PRINT "DE COTE" 109 IF T5=1 THEN 159 

15 PRINT "CAR L'ORIGINE EST LE LIEU OU SE TROUVE VOTRE BASE."; 110 PRINT "PAS DE CHANCE -- ESSAYEZ À NOUVEAU." 
16 PRINT "QUAND L'ORDINATEUR" 111 GOTO 81 

17 PRINT "VOUS DEMANDE LE NOMBRE DE DEGRES DE L'ANGLE DE TIR,REPONDRE "; 112 1F D120 THEN 118 

18 PRINT "PAR UN NOMBRE COMPRIS" 113 IF H1>1 THEN 116 

19 PRINT "ENTRE 1 ET 90." 114 PRINT "### FÉLICITATIONS #*#*#* UN COUP REUSSI." 
20 PRINT 115 GOTO 124 

21 PRINT TAB(51),"FROLE######mmman 116 PRINT "### FELICITATIONS #*#*#";H1;COUPS REUSSIS." 
22 PRINT " 1. UN COUP AU BUT EST UN COUP A MOINS D'UN DEGRE"; 117 GOTO 124 

23 PRINT TAB(51),"* LU 118 PRINT "###*e OEIL DE LYNX #### 1"; 

24 PRINT " DE LA CIBLE.",TAB(S1),"#* TOUCHE### #" 119 IF D1>1 THEN 123 

25 PRINT “ 2. UN COUP REUSSI DOIT PASSER A MOINS DE DEUX "; 120 IF H130 THEN 123 

26 PRINT TAB(51),"# . 121 PRINT " UN COUP DIRECTI" 

27 PRINT " DEGRES DE LA CIBLE."; 122 GOTO 124 

28 PRINT TAB(51),"# * B  * *" 123 PRINT Dl4H1;"COUPS--UN COUP DIRECT SUR";D1;"D'ENTRE EUX!" 
29 PRINT " 3. UN COUP FROLE DOIT PASSER A MOINS DE TROIS DEGRES "; 124 15=15-(D14#H1) 

30 PRINT TAB(51),"* * me 125 D5=D5+D1 

31 PRINT " DE LA CIBLE EN CE SENS QUE LA PARTIE ENTIERE DE "; 126 HS=H5+H1 

32 PRINT TAB(51),"* #*##*TOUCHE #*" 127 IF 1520 THEN 167 

33 PRINT " L'INTERVALE DOIT ETRE DEUX.IL PROVOQUE LA RELOCA-"; 128 FOR J=1 T0 H1+D1 

34 PRINT TAB(51),"* Lu 129 Z=F(3) 

35 PRINT " LISATION DE LA CIBLE À MOINS D'UNE UNITE."; 130 D(Z/2)=0 

36 PRINT TAB(51),"##########f ROLE" 131 H(Z)=0 

37 PRINT 132 H(Z-1)=0 

39 PRINT " LES MISSILES ONT UNE PORTÉE INFINIE ET PEUVENT DESCENDRE"; 133 S(Z)=0 

40 PRINT "PLUS D'UNE CIBLE." 134 S(Z-1)=0 

41 PRINT "UN MISSILE QUI RATE DE PEU UNE INSTALLATION (FROLE) "; 135 NEXT 9 

42 PRINT "SERA" 136 PRINT 5-15; "DESCENDU(S) --";T5;"RESTANT(S)." 
43 PRINT "IMMEDIATEMENT DESCENDU. TOUT COUP REUSSI PRECEDEMENT SERA "; 1357 GOTO 81 

&& PRINT " ANNULE" 138 PRINT "UN COUP FROLE. L'ENNEMI S'EST RELOCALISE." 
45 PRINT "JUSQU'A CE QU'UN COUP DIRECT SOIT REUSSI." 139 FOR R=1 TO 2 

46 PRINT 140 X2=INT(RND(1)*100) 

47 PRINT 141 IF ABS(C(A-(R-1))-X2)>1 THEN 140 

48 PRINT "PRET"; 142 IF C(A-(R-1))<=2 THEN 140 

49 INPUT R$ 143 C(A-(R-1))=X2 

50 IF LEFT$(R$,1)="N" THEN 192 144 NEXT R 

51 PRINT:PRINT "BONNE CHANCE !" 145 D(A/2)=FNV(C(A)/C(A-1)) 

52 PRINT 146 L1=A 

53 DIM C(10),H(20),D(10),5(20),F(5) 147 FOR I=A TO L1 STEP 2 

54 DEF FNV(V1)=INT((180/3.14159)*ATN(V1)+.5) 148 H(1-1)=FNV((C(1)-1)/(C(1-1)+1)) 

55 X=250 149 H(I)=FNV((C(I)+1)/(C(1-1)-1)) 

56 XI=RND(1) 150 S(1-1)=FNV((C(1)-2)/(C(1-1)+2)) 

57 G2=-0 151 S(1)=FNV((C(1)+2)/(C(1-1)-2)) 

58 5220 152 NEXT I 

59 D2=0 153 RETURN 

60 H2=0 154 R=INT(RND(1)*100) 

61 FOR K=1 10 10 155 IF R>30 THEN 154 

62 GOSUB 154 156 IF R<C3 THEN 154 

63 1F INT(K/2)©K/2 THEN 70 157 C(K)=R 

64 IF C(K-1)>10 THEN 70 158 RETURN 

65 IF C(K)>10 THEN 70 159 FOR Z1=1 10 5 

66 FOR L=K-1 TO K 160 IF D(Z1)>1 THEN 162 

67 GOSUB 154 161 NEXT 21 

68 NEXT L 162 IF D<D(Z1) THEN 165 

69 GOTO 63 163 PRINT " TROP HAUT -- ESSAYEZ À NOUVEAU." 

70 NEXT K 164 GOTO 81 

71 S=0 165 PRINT "TROP BAS -- ESSAYER À NOUVEAU." 

72 FOR L=1 TO 5 166 GOTO 81 

73 D(L)=FNV(C(2*L)/C(2*L-1)) 167 PRINT 

74 NEXT L 168 PRINT "TOTAUX DU JEU:";H5; "COUPS ET";D5; "COUPS DIRECTS SUR"S;"TIRS." 
75 A=2 169 PRINT 

°76 L1=10 170 PRINT "PRET POUR UN AUTRE JEU"; 

77 1525 171 G2=G2+1 

78 DS=0 172 S2=52+5 

79 H52=0 173 D2=D2+D5 

80 GOSUB 147 174 H2=H24H5 

81 PRINT 175 INPUT G$ 

82 PRINT "RENTRER L'ANGLE DE TIR"; 176 IF LEFT$(G$,1)="N" THEN 184 

83 D1-0 177 PRINT 

84 H1=0 178 PRINT 

85 FOR Q=1 T0 5 179 PRINT 

86 F(Q)=20 180 PRINT "CINQ NOUVELLES INSTALLATIONS ONT ETE CONSTRUITES A DIFFERENTS"; 
87 NEXT Q 181 PRINT M"ENDROITS." 

88 INPUT D 182 PRINT:PRINT "BONNE CHANCE !" 

89 IF D>=90 THEN 81 183 GOTO 61 

90 ON SGN(D)+2 GOTO 177,192 184 PRINT 

91 S=5+1 185 PRINT 

92 FOR A=2 TO 10 STEP 2 186 PRINT "TOTAUX POUR";G2;"JEU ; "COUPS ET";D2 
93 IF D>S(A) THEN 103 187 PRINT "COUPS DIRECTS SUR";S2;"TIRS." 

94 IF D<S(A-1) THEN 103 188 PRINT "UNE MOYENNE DE";5S2/(D2+H2);"TIRS PAR CIBLE." 
95 IF D>H(A) THEN 105 192 END 
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Grand Prix 





Dans ce programme, vous tentez 
d'accomplir un tour de circuit de Grand 
Prix, avec un adversaire choisi parmi six 
possibles, depuis le camion postal jusqu'à 
la Ferrari de 1974. La piste est constituée 
de quatre lignes droites et de quatre 
courbes. Pour chacune de ces parties, la 
vitesse est limitée. Selon la voiture que 
vous conduisez, vous pouvez parcourir 
ces lignes droites et prendre ces virages à 
des vitesses différentes. De plus, les 
caractéristiques de freinage dépendent 
aussi de la voiture, si bien que vous 


virage à vive allure et freiner à la dernière 
minute. 

Il semble facile de gagner en choisis- 
sant tout simplement une Porsche ou une 
Ferrari pour vous-même, et comme adver- 
saire un camion postal ou une Ford 
Mustang usagée, mais ce n'est pas si 
évident que cela, attention ! 

L'origine de ce jeu reste inconnue. Les 
seules choses qui permettent de l'identi- 
fier sont ces trois initiales : PUC. Est-ce le 
« Pacific Union College » ? Peut-être, 
mais ce n'est pas sûr. 


pouvez, dans certains cas, entamer un 


RUN 
GRAND PRIX 
CREATIVE COMPUTING 
MORRISTOWN, NEW JERSFY 


BIENVENUE AU GRAND PRIX DU PUC 


VOULEZ VOUS UNE DESCRIPTION DE LA COURSE? OUI 
ASSUREZ VOUS QUF VOTRE IMPRIMANTE EST PRETE. 


ENTREZ ‘RETURN' POUR COMMENCER L'IMPRESSION. 
--- IMPRESSION --- 
2 1 
CCOXPXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXOCC 
85-100 CC (800) c 
c C 
3 O COURSE DU GRAND PRIX DU PUC c 
x c 
X cc 
x ss (2800) € 50- 
x sssssss SSS  SSSOXXXXXXXXXXXXXXXXXPXXOC 70 
x ss sssssss 7 8 
x (1900)0 6 90-110 
X x 
x x DISTANCES EN YARDS, EG. (800) = 800 YDS. 
x X  VITESSES EN KM/H, EG. DE 85 À 100 KM/H. 
P x 
x x 
x x 
x x 
4 0(1500) X 
H x 
H x 
20-H O5 
35H H 
HH 
1 À 2 EST INF LIGNE DROITE DF RO0O YARDS DF LONG 


2 À 3 EST UN VIRAGE DE 200 YARDS DE LONG 
LA VITESSE DE SORTIE DE LA PISTE VA DE 85 A 100 KM/H 
3 À 4 EST UNE LIGNE DROITE DE 500 YARDS NE LONG 
ELLE FINIE À 1500 YARDS DU DEPART4 À 5 EST UN VIRAGE EN EPINGLE À CHEVEUX 
LA VITESSE DE SORTIE DE PISTE VA DE 20 À 35 KM/H 
5 À 6 EST UNE NOUVELLE LIGNE DROITE NE 300 YARDS DE LONG 
ELLE FINIE A 1900 YARDS DU DEPART 
6 À 7 EST UNE SERIE DE VIRAGES EN ‘S' DE 500 YARDS DE LONG 
LA VITESSE MOYENNE EST DE 90-110 KM/H 
7 À 8 EST LA LIGNE DROITE FINALE DE 400 YARDS 
ON ENTRE DANS LE DERNIER VIRAGE APRES 2800 YARDS 
8 À 9 EST LE DERNIER VIRAGE DE 400 YARDS 
LA VITESSE DE SORTIE DE PISTE VA DF 50 À 70 KM/H 


LA LONGUEUR TOTALE D'UN TOUR EST 3200 YARDS 
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DURANT LES LIGNES DROITES VOUS DEVREZ CONTROLER L'ACCELE- 

RATION ET LE FREINAGE DE VOTRE VOITURE. LE VIRAGE SERA PRIS 

À LA VITESSE À LAQUELLE VOUS L'ENTAMEREZ. 

EN DESSOUS DE LA VITESSE DE SORTIE,LE VIRAGE SERA PRISSANS DIFFICULTE 
AU DELA DE LA PLUS GRANDE DES VITESSES INDIQUEES,VOUS VOUS ECRASEREZ! 
ENTRE LES DEUX,IL CE PEUT QUE VOUS PERDIEZ DE LA VITESSE 

OU DU TEMPS ,PARCE QUE VOUS AVEZ CHASSE OU DERAPE. 

PLUS VITE VOUS PRENEZ LES VIRAGES,PLUS GRANDS SONT LES -- 

RISQUES ET MOINS LONG LE TEMPSIII1 


VOTRE TACHE EST DE PARCOURIR LA PISTE EN UN MINIMUM DE 
TEMPS SANS CARAMBOLAGEIII 


VOTRE VOITURE PEUT ETRE UNE DES SUIVANTES: 
1. PORSCHE 

2. FERRARI 

3. MASERATI 

4. FORD LOTUS 


QUELLE VOITURE VOULEZ VOUS? 4 


VOTRE VOITURE A UNE ACCELERATION MAXIMUM DE 8 KMh/SEC. 
ET UN FREINAGE MAXIMUM DE -30 KM/H/SEC. 


VOUS COURREREZ CONTRE UNE DES VOITURES SUIVANTES: 
1. UN FOURGON POSTAL DES U.S 

2. UNE PONTIAC GTO CABOSSEE DE 1970 

3. UNE FORD MUSTANG BIEN USEE DE 1966 

4. UNE FORD LOTUS 

5. UNE FERRARI 1974 

6. LA ‘RAYON DE LUMIERE' SPECIALE SUPERGONFLEE 


CHOISISSEZ UN ADVERSAIRE EN ENTRANT SON NUMERO? 2 
TEMPS ECOULE VITESSE 


POSITION DE POSITION 


SECONDES KM/H YARDS L'ADVERSAIRE ACCELERATION 
0.0 [e) [o) 0 ?-8 
2.0 16 7 3 ? 8 
4.0 32 31 16 ? 8 
6.0 48 70 48 ? 8 
8.0 64 125; * 93 ? 8 

10.0 80 195 155 ? 8 
12.0 96 281 233 ? 8 
14.0 112 383 325 ? 8 
16.0 128 500 434 ? -20 
18.0 88 606 561 25 
20.0 98 697 696 P«=2 
22.0 94 791 789 210 
VIRAGE 2 -3 , VITESSE 94 KM/H 
26.5 94 1000 981 2-0 
28.5 94 1091 1061 ? 0 
30.5 94 1183 1161 ? 0 
32.5 94 1275 1274 ? -30 
34.5 34 1338 1382 ? 8 
36.5 50 1379 1460 ? 8 
38.5 66 1436 1499 28 


PERDU LE CONTROL À 80 KM/H. VOTRE VOITURE S'EST ECRASEE!! 
VOTRE ADVERSAIRE À FINI EN 91.3997 SECONDES! 





VOULEZ VOUS RECOMMENCER? OUI 


VOTRE VOITURE PEUT ETRE UNE DES SUIVANTES: 
1. PORSCHE 

2. FERRARI 

3. MASERATI 

4. FORD LOTUS 


QUELLE VOITURE VOULEZ VOUS? 3 


VOTRE VOITURE À UNE ACCELERATION MAXIMUM DE 12 KMh/SEC. 


ET UN FREINAGE MAXIMUM DE -22 KM/H/SEC. 


VOUS COURREREZ CONTRE UNE DES VOITURES SUIVANTES : 
1. UN FOURGON POSTAL DES U.S 

2. UNE PONTIAC GTO CABOSSEE DE 1970 

3. UNE FORD MUSTANG BIEN USEE DE 1966 

4. UNE FORD LOTUS 

5. UNE FERRARI 1974 

6. LA "RAYON DE LUMIERE' SPECIALE SUPERGONFLEE 


CHOISISSEZ UN ADVERSAIRE EN ENTRANT SON NUMERO? 3 


TEMPS ECOULE VITESSE POSITION DE POSITION 
SECONDES KM/H YARDS L'ADVERSAIRE ACCELFRATION 
0.0 0 0 0] ? 12 
2.0 24 LL 3 2 12 
4.0 48 46 19 ? 12 
6.0 72 105 56 ? 12 
8.0 96 187 108 ? 12 
10.0 120 293 178 ? 10 
12.0 140 420 267 ? 0 
14.0 140 557 374 2 0 
16.0 140 694 500 ? -22 
VITESSE AU VIRAGE 100 KM/H, PRENFZ LE VIRAGE LARGE, PERDU 1.3 SFC. 
23.2 100 1000 901 2 
25.2 100 1098 992 ? 0 
27.2 100 1196 1078 ? -10 
29.2 80 1284 1192 ? -10 
31.2 60 1353 1315 ? -10 
33.2 40 1402 1412 ? 0 
35.2 40 1442 1482 ? -3 
37.2 34 1478 1512 2 0 
VIRAGE 4 -5 , VITESSE 34 KM/H 
44.4 34 1600 1619 ? 12 
46.4 58 1645 1666 ? 12 
48.4 82 1714 1727 ? 10 
50.4 102 1804 1807 2 -5 
52.4 92 1899 1893 2 0 
VIRAGE 6 -7 , VITESSE 92 KM/H 
63.4 92 2400 2459 2 0 
65.4 92 2490 2571 2 0 
67.4 92 2580 2696 ? 0 
69.4 92 2671 2780 ? -22 
71.4 48 2739 2839 ? 10 
73.4 68 2796 2898 ? 0 


VIRAGE 8 -9 , VITESSE 68 KM/H 


TOUR EFFECTUE,TEMPS ECOULE 85.5 SEC. 
VOTRE ADVERSAIRE À FINI EN 83.6766 SECONDES 
DESOLE,VOUS AVEZ PERDU DE 1.82337 SECONDES 


VOULEZ VOUS RECOMMENCER? MON 
Ok 


19 PRINT CHRS$ (26) ; TAB (26) ; "GRAND PRIX" 

26 PRINT TAB (28) ; "CREATIVE COMPUTING" 

30 PRINT TAB(18) ;"MORRISTOWN, NEW JERSEY" 
48 PRINT:PRINT:PRINT 


1029 DIM P(9),F(4),G(4) ,H(82) 
1938 REM 

1948 FOR X=1 TO 9 

1943 READ P(X) 

1945 NEXT X 

1950 FOR 1=1 TO 4 

1968 READ G(1),F(I) 

1980 LET G(I1)=G(1)/2.04545 

1990 LET F(I)=(F(1)+.61/2.04545) 

1198 NEXT I 

1118 FOR X=1 TO 82:READ H(X):NEXT X 

1115 REM 

1128 DEF FNA(X)=INT(X*2.04545+.05) 

1130 DEF FNT(T)=INT(T*19+.5)/10 

1133 DEF FNC(T)=-(INT(T*R) +2) * (INT (T#R)+2<82)-82* (82CINT(T*R) +2) 
1134 DEF FNB(T)=-(INT(T#R)+1) * (INT(T#R)+1<82)-82* (82CINT(T*R)+1) 
1135 DEF FNP(T)=INT(H(FNB(T) )+FNQ(T) *FNR(T)+.5) 

1136 DEF FNQ(T)=H(FNC(T))-H(FNB(T)) 

1137 DEF FNR(T)=T#*R-INT (T#R) 

1140 REM 

1158 LET D=2 

1208 PRINT 

1219 PRINT “BIENVENUE AU GRAND PRIX DU PUC" 

1220 PRINT 

1250 REM 

1269 PRINT “VOULEZ VOUS UNE DESCRIPTION DE LA COURSE"; 

1278 INPUT AS 

1280 IF LEFTS(A$,1)<>"O" THEN 1918 

1320 PRINT "ASSUREZ VOUS QUE VOTRE IMPRIMANTE EST PRETE." 

1302 LINE INPUT “ENTREZ "RETURN' POUR COMMENCER L' IMPRESSION. ";XXS 
1304 PRINT:PRINT "—— IMPRESSION -—":PRINT 

1320 LPRINT TAB(23);"2";TAB(66) ;"1" 

1330 LPRINT TAB (21) ; "CCBXPXXXXXXXXXXXXXINONX OO IOOOTOONX BEC" 
1340 LPRINT TAB(12);"85-199 CC (80@)";TAB(69) ;"C" 

1358 LPRINT TAB (18) ;"C";TAB (70) ;"C" 

1360 LPRINT TAB(15);"3 @";TAB(21) ; "COURSE DU GRAND PRIX DU PUC";TAB (78) ;"C" 
1370 LPRINT TAB(16) ;"X";TAB (69) ;"C" 

1375 LPRINT TAB (15) ;"X";TAB (67) ; "CC" 

1380 LPRINT TAB (14) ;"X";TAB (38) ;"SS";TAB(59) ;" (2808) C 5@-" 

1390 LPRINT TAB(13) ;"X";TAB (22) ; "SSSSSSS SSS  SSSOXXXXXXXXXXXXXXXX " ; 
1395 LPRINT "XPXXOC 70" 

1408 LPRINT TAB(12);"X ss SSSSSSS Lau 

1495 LPRINT TAB(64) ;"8" 

1418 LPRINT TAB(11);"X (1920)0 6 98-119" 

1426 LPRINT TAB(10);"x x" 

1430 LPRINT TAB(9);"X X"; 

1433 LPRINT TAB (28) ;"DISTANCES EN YARDS, EG. "; 

1435 LPRINT "(808) = 800 yDS." 


1440 LPRINT TAB(8) ;"X X";TAB (20) ; "VITESSES EN KM/H, "; 
1445 LPRINT "EG. DE 85 À 199 KM/H." 

1450 LPRINT " P x" 

1468 LPRINT " x x" 

1478 LPRINT " X x" 

1488 LPRINT " X x" 

1490 LPRINT " 4 @(1508) x" 

1509 LPRINT “ H x" 

1510 LPRINT ” H x" 

1528 LPRINT "29-H @ 5" 


1538 LPRINT " 35 H H" 
1535 LPRINT " HH* 
1549 LPRINT 
1558 LPRINT 


1568 LPRINT "1 À 2 EST UNE LIGNE DROITE DE 899 YARDS DE LONG" 

1570 LPRINT "2 À 3 EST UN VIRAGE DE 208 YARDS DE LONG" 

1589 LPRINT " LA VITESSE DE SORTIE DE LA PISTE VA DE 85 À 190 KM/H" 
1599 LPRINT "3 À 4 EST UNE LIGNE DROITE DE 594 YARDS DE LONG" 

1698 LPRINT " ELLE FINIT À 1549 YARDS DU DEPART"; 

1619 LPRINT "4 À 5 EST UN VIRAGE EN EPINGLE A CHEVEUX DE 109 YARDS DE LONG" 
1629 LPRINT " LA VITESSE DE SORTIE DE PISTE VA DE 28 À 35 KM/H" 
1630 LPRINT "5 À 6 EST UNE NOUVELLE LIGNE DROITE DE 309 YARDS DE LONG" 
1649 LPRINT " ELLE FINIF À 1990 YARDS DU DEPART" 

1650 LPRINT "6 À 7 EST UNE SERIE DE VIRAGES EN 'S' DE 598 YARDS DE LONG" 
1669 LPRINT " LA VITESSE MOYENNE EST DE 99-110 KM/H" 

1679 LPRINT "7 À 8 EST LA LIGNE DROITE FINALE DE 498 YARDS" 

1688 LPRINT " ON ENTRE DANS LE DERNIER VIRAGE APRES 2808 YARDS" 
1698 LPRINT "8 À 9 EST LE DERNIER VIRAGE DE 490 YARDS" 

1709 LPRINT " LA VITESSE DE SORTIE DE PISTE VA DE 50 À 76 KM/H" 
1710 LPRINT CHRS (12) 

1720 PRINT:PRINT "LA LONGUEUR TOTALE D'UN TOUR EST 3289 YARDS" 

1739 PRINT 

1828 PRINT"DURANT LES LIGNES DROITES VOUS DEVREZ CONTROLER L'ACCELE-" 
1839 PRINT"RATION ET LE FREINAGE DE VOTRE VOITURE. LE VIRAGE SERA "; 
1835 PRINT " PRIS" 

1840 PRINT "A LA VITESSE À LAQUELLE VOUS L'ENTAMEREZ." 

1842 PRINT “EN DESSOUS DE LA VITESSE DE SORTIE,LE VIRAGE SERA PRIS"; 
1844 PRINT "SANS DIFFICULTES." 

1850 PRINT "AU DELA DE LA PLUS GRANDE DES VITESSES INDIQUEES,VOUS VOUS ECRASEREZ 
ju" 

1869 PRINT "ENTRE LES DEUX,IL CE PEUT QUE VOUS PERDIEZ DE LA VITESSE" 
1870 PRINT "OU DU TEMPS,PARCE QUE VOUS AVEZ CHASSE OÙ DERAPE.* 

1889 PRINT "PLUS VITE VOUS PRENEZ LES VIRAGES,PLUS GRANDS SONT LES --"* 
1899 PRINT "RISQUES ET MOINS LONG LE TEMPS!!11* 

1905 PRINT 

1996 PRINT 

1907 PRINT "VOTRE TACHE EST DE PARCOURIR LA PISTE EN UN MINIMUM DE * 
1998 PRINT "TEMPS SANS CARAMBOLAGE!!1" 

1999 PRINT 

1918 PRINT:PRINT "VOTRE VOITURE PEUT ETRE UNE DES SUIVANTES: " 

1911 PRINT “1. PORSCHE" 

1912 PRINT "2. FERRARI" 

1913 PRINT "3. MASERATI" 

1914 PRINT "4. FORD LOTUS " 

1915 PRINT:PRINT "QUELLE VOITURE VOULEZ VOUS"; 

1916 INPUT Z:PRINT 

1917 ON Z GOTO 1920,1923,1926,1929 

1918 PRINT "NOUS N'AVONS PAS CETTE VOITURE EN STOCK ,RECHOISISSEZ."; 
1919 GOTO 1916 






1920 M=15 

1921 LET B=-29 3370 LET T=T+4T1 

1922 GOTO 1931 3388 GUTU 3104 

1923 M=10 3400 LET Y=P(J+1)-X 
1924 B=-25 3402 IF AC>4 THEN 3414 
1925 GOTO 1931 3404 LET T=T+Y/5S 

1926 M=12 3496 GOTO 3440 

1927 B=-22 3410 LET 5 QR (S*5+24A8Y) 
1928 GOT 1931 3420 LET (S-S1)/A 
1929 M=8 3430 LET l 

1930 B=-39 3449 LET J=J+1 

1931 PRINT "VOTRE VOITURE À UNE ACCELERATION MAXIMUM DE";M;"KMh/SEC." 3454 SGUTO Buy 


1932 PRINT "ET UN FREINAGE MAXIMUM DE ";B;"KM/H/SEC." 

1933 PRINT:PRINT “VOUS COURREREZ CONTRE UNE DES VOITURES SUIVANTES :" 
1934 PRINT “1. UN FOURGON POSTAL DES U.S" 

1935 PRINT "2. UNE PONTIAC GTO CABOSSEE DE 1970" 

1936 PRINT "3. UNE FORD MUSTANG BIEN USEE DE 1966" 

1937 PRINT "4. UNE FORD LOTUS " 


LET X1=X+5#D+A/2#D#1) 
IF X1>P(J+1) THEN 3444 
LET T=T+D 

LET 
LET X 
UT) 3104 



































1938 PRINT "5. UNE FERRARI 1974" 3600 IF AL <= M THEN 3700 
1939 PRINT "6. LA "RAYON DE LUMIERE'" SPECIALE SUPERGONFLEE":PRINT 3616 PRINT "L' ACCÉLÉRATION MAXIMUM EST DE "M; "KM/H/SEC" 
1949 PRINT "CHOISISSEZ UN ADVERSAIRE EN ENTRANT SON NUMERO"; 3620 GUTU 3204 

1941 INPUT RI 3704 LET X1=X#+5*0+A/2#D#D 

1942 IF R1>8 AND RI1<6 THEN 1946 3714 IF X1>P(J+1) THEN 3404 

1943 IF R1=6 THEN 1948 3720 SUTO 350U 

1944 PRINT "QUELLE VOITURE AVEZ VOUS DIT"; BAUU REA ### SOUS VIRAGE ##* 

1945 GOTO 1941 gulu 

1946 LET R=2*R1-5 gw2u =INT(J/2) 

1947 GUTO 1949 BU LET TLs(P(J+1)=P(J))/S 

1948 LET R=2.5E+08 8U4U LET 512G(1)#+(F(1)-G(1)) *RND(1) 

1949 LET R=(90+2*R)/190+7*RND(1)/100 SOS LE 5>51 THE! 81:4) 

1958 PRINT 3095 PRINT "VILRAG 0 VITESSE"; FNA(S) 3 "KM/H" 
3000 REM BM6U LET J=J+1 

3002 REM COMMENCONS LA COURSE! ! 397U LET X=P(J) 

3004 REM 848U LET 

3018 LET J=1 8090 SUTO 3144 

3020 PRINT "TEMPS ECOULE", "VITESSE", "POSITION DE"," POSITION" 81H IF 3>51#(F(1)-51)/2 THEN 8206 

3830 PRINT " SECONDES" ," KM/H"," YARDS"," L'ADVERSAIRE", "ACCELERATION" 3114 LET T2=TI*RND(1)#.4 

3035 PRINT = — "tt ——","- AR see Nr ere is 3120 PRINT "VITESSE AU VIRAGE";FNA (5) ;"KM/H, PRENEZ LE VIRAGE LARGE, PERDU"; 
3949 PRINT 2125 PRINT ENT(T2) ;"5EC." 

3070 X=0:S=0:T=0:TI=0:X9=0 LET TL=TI#T2 

3080 REM UT) 8u64 

3199 IF J<9 THEN 3200 IF 5>F(1) THEN d 300 

3130 PRINT LET S2=5 


>*RND (1) *.9 
LET rl 52 
PRINT "DERAPAGE A"3;FNA(S) ;"KM/H, VOUS AVEZ PERDU VITESSE ET TEMPS" 





3160 PRINT "TOUR EFFECTUE";",TEMPS ECOULE" ;FNT(T) ; "SEC." 

3166 PRINT "VOTRE ADVERSAIRE À FINI EN";84/R; "SECONDES" 

3167 LET K1=FNT(T)-80/R 

3168 IF K1>4 THEN 3171 

3169 PRINT "FELICITATIONS, VOUS AVEZ GAGNE DE";-K1 ; "SECONDES" 
3170 GOTO 8608 

3171 PRINT "DESOLE,VOUS AVEZ PERDU DE" ;K1 ; "SECONDES" 











GUT) 8 
PRINT "PERDU LE CONTROL A";FNA (5) 
PRINT "VOTRE ADVEIGAIRE A FINI EN 
REM 





;"KM/H. VOTRE VOITURE S'EST ECRASEE! !" 
382/R; "SECONDES! " 








3172 GOTU 8600 PRINT 
3200 IF FNP(T)>3290 THEN 3203 PRINT "VOULEZ VOUS RECOMMENCER" ; 
3201 PRINT USING " #4##.# ##4 CEE CEE CE INPUT AS 
FNT(T) ;ENA(S) ; INT (X) ; FNP(T) ; 8620 IF LEFTS(AS,1)="O" THEN 1910 
3202 GOTO 3210 DUO REA 
3203 PRINT " ";FNT(T)," ";FNA(S)," ";INT(X),"  FINI"," "; 201 DATA 0,800, 1UUU, 1540, 1600, LJUU, 2400, 2800, 3200 
3219 INPUT Al 9026 DATA 85,140 
3220 LET A=A1/2.04545 9838 DATA 24,35 
3230 IF Al>=0 THEN 3644 9648 DATA 90,110 
3240 IF Al>=B THEN 3300 9058 DATA 54,70 
3259 PRINT "LE FREINAGE MAXIMUM EST DE ";B;"KM/H/SEC" 9060 REM 
3266 GOTO 3204 9078 DATA 6,1,3,9,21,39,62,87,120,156,196,244,293,351,410 
3308 LET Tl=-S/A 9089 DATA 479,550,625,700,758,800,847,894,942,990, 1030, 1080 
3310 IF T1>D THEN 3500 9093 DATA 1135,1208,1260,1330,1382,1425,1470,1490,1505,1519 
3320 LET X1=X+5*T1+A/2*TL4TI 9104 DATA 1939,1548,1563,1578,1512,1610,1632,1658,1683,1718 
3330 IF X1>P(J+1) THEN 3400 9119 DATA 1758,1800,1850,1890,1943,1997,2050,2104,2057,2210 
3348 PRINT "VOUS VOUS ETES ARRETE A";INT(P(J+1)-X1) ;"YARDS DU POINT" ;J+1 9128 DATA 2294,2317,2370,2420,2480,2535,2600,2670,2725,2768,2799,2830 
3350 LET S=0 9138 DATA 2861,2892,2920,2951,2982,3013,3044,3075,3106,3137,3168,3199 
3368 LET X=X1 9149 DATA 10000 
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Guess-it (Devinez) 


Beaucoup, si ce n'est la plupart des 
jeux informatiques qui nécessitent deux 
joueurs, sont régis par des lois figées, qui 
assurent le gain de la partie à celui qui se 
sert au mieux de ces règles et utilise la 
stratégie la plus rationnelle. Si les deux 
joueurs utilisent de façon similaire les 
règles et la stratégie, le gagnant est très 
souvent celui qui a commencé. Tic-tac- 
toe, Batnum et Even sont des jeux de ce 
type. 

On trouve plus d'intérêt dans les jeux où 
la stratégie dépend de plusieurs facteurs. 
Cela veut dire que le coup le plus efficace 
est souvent fonction des coups antérieurs 
et que le joueur ne fait qu'évaluer une 
probabilité pour que son choix soit le 
meilleur. Les jeux de cartes usuels 
(bridge, poker) sont de bons exemples de 
cette deuxième catégorie. 

Bon nombre de ces jeux sont cepen- 
dant soit si compliqués qu'on ne peut pas 
élaborer les meilleures stratégies, soit si 
simples qu'ils sont dénués d'intérêt. « De- 
vinez » forme une exception à cette règle. 
En effet, la part de « désinformation » (les 
anglicistes disent « bluff »), qui y joue un 
rôle prépondérant, en constitue tout 
l'attrait. La procédure optimale pour ce jeu 
a été mise au point par Rufus Isaacs. 


RUN 
DEVINEZ 
CREATIVE COMPUTING 
MORRISTOWN, NEW JERSEY 


VOULEZ VOUS LE MODE D'EMPLOI? OUI 


LE BUT DE CE JEU EST DE DEVINER UN NOMBRE INCONNU 
APPELE LE ‘NOMBRE MANQUANT'. LE JEU SE JOUE AVEC LES NOMBRES 


DE L A 11. ON VOUS DONNERA UNE MAIN DE 5 
NOMBRES CHOISIS AU HASARD ENTRE 1 ET 11. L'OR 
DINATEUR AURA UNE MAIN SEMBLABLE. 


VOUS JOUEZ A TOUR DE ROLE AVEC L'ORDINATEUR.A CHAQUE TOUR 


Le programme ci-dessous simule « De- 
vinez ». L'ordinateur adopte la stratégie 
de Isaacs. Reportez-vous aux lignes 1740 
à 1930 pour avoir les règles du jeu. Le 
nombre des valeurs attribuées à chaque 
adversaire est donné à la ligne 70. (Il est 
fixé à cinq. C’est le chiffre qu'a utilisé 
Isaacs dans son étude.) Pour le modifier, il 
suffit simplement de changer la valeur de 
H à la ligne 70. 

Pour jouer de la meilleure façon, vos 
décisions seront dictées par les probabi- 
lités de victoire à P(m,n) où m est le 
nombre de valeurs en votre possession et 
n le nombre correspondant, propriété de 
votre adversaire. La matrice, image de 
ces probabilités, est entrée en mémoire 
dans les lignes 80 à 180. 

Si vous voulez percer la meilleure 
stratégie utilisée par l'ordinateur, un géné- 
rateur de nombres aléatoires des probabi- 
lités de victoire est nécessaire. (Reportez- 
vous aux références (1) et (2) pour 
apprendre comment obtenir et utiliser ces 
renseignements, qui ne sont valables que 
dans le cas où il y a au plus cinq nombres 
par joueur.) 

La réponse à la question : « Le joueur 
a-t-il bluffé ? » est donnée à la ligne 750. 
La réponse à la question : « Faut-il bluffer 


AVEZ VOUS 8 ? OUI 


VOULEZ VOUS DEVINER LE 


dans ma prochaine demande ? » est 
donnée à la ligne 940. 

Le programme laisse au joueur le choix 
de commencer. La probabilité de victoire 
vaut dans ce cas : P(5,5)=0.538. Celui qui 
commence prend donc une légère option 
sur la victoire finale, si l'on considère que 
les deux joueurs utilisent la meilleure 
stratégie. 

Deux raisons prouvent l'importance du 
bluff, quelle que soit la stratégie adoptée. 
Supposons tout d’abord qu'un des 
joueurs ne « mente » jamais; le premier 
nombre demandé qui n’est pas dans le jeu 
de son adversaire est à coup sûr le 
nombre manquant. Par ailleurs, un 
mensonge qui aura porté ses fruits peut 
pousser l'adversaire à la faute. 

Le programme et la règle du jeu sont de 
Gerard Kiernan, collège de Manhattan 
Ville, à Purchase, Etat de New York. 
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‘NOMBRE MANQUANT‘? NON 


QUEL NOMBRE VOULEZ VOUS DEMANDER? 1 


1 EST DANS MON JEU. 


AVEZ VOUS 2 ? NON 


VOULEZ VOUS DEVINER LE 


IL Y A DEUX OPTIONS - DEVINER LE NOMBRE MANQUANT OU 


POSER DES QUESTIONS SUR UN NOMBRE. 


LE NOMBRE MANQUANT EST 2. 


D'APRES VOUS ,QUEL EST LE 


"NOMBRE MANQUANT’? OUI 


‘NOMBRE MANQUANT'? 2 


VOTRE PROPOSITION DU 2 EST CORRECTE. VOUS GAGNEZ! 


QUAND UN JOUEUR DEVINE LE NOMBRE MANQUANT LE JEU S'ARRETE. 


SI LA PROPOSITION ETAIT CORRECTE CE JOUEUR GAGNE. 


SI ELLE NE L'ETAIT PAS CE JOUEUR PERD. 


VOULEZ VOUS REJOUER? OUI 


VOICL VOTRE MAIN 


A TOUTES LES QUESTIONS SUR LES NOMBRES PLACES DANS LA 
MAIN ADVERSE ON DOIT REPONDRE HONNETEMENT.UN JOUEUR 5 9 3 1 6 
PEUT BLUFFER EN DEMANDANT UN NOMBRE DE SA PROPRE MAIN 


(L'ORDINATEUR LE FERA PARFOIS). 

ON NE PEUT DEMANDER UN NOMBRE QU'UNE FOIS. 
ENTREZ 'RETURN' POUR DEBUTER LE JEU. 

VOICI VOTRE MAIN 

8: ‘6. (EL 3. 9 


VOULEZ VOUS COMMENCER? NON 


VOULEZ VOUS COMMENCER? NON 


AVEZ VOUS 6 ? OUI 


VOULEZ VOUS DEVINER LE ‘NOMBRE MANQUANT’? NON 


QUEL NOMBRE VOULEZ VOUS DEMANDER? 2 


2 N'EST PAS DANS MON JE. 
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AVEZ VOUS 5 ? OUI 


VOULEZ VOUS DEVINER LE ‘NOMBRE MANQUANT'? OUI 
D'APRES VOUS ,QUEL EST LE ‘NOMBRE MANQUANT'? 2 


LE NOMBRE MANQUANT EST 2. 
VOTRE PROPOSITION DU 2 EST CORRECTE. VOUS GAGNEZ1 


VOULEZ VOUS REJOUER? OUI 
VOICI VOTRE MAIN 
5 7 11 6 2 


VOULEZ VOUS COMMENCER? NON 


AVEZ VOUS 7 ? OUI 


VOULEZ VOUS DEVINER LE ‘NOMBRE MANQUANT’? NON 
QUEL NOMBRE VOULEZ VOUS DEMANDER? 1 


1 EST DANS MON JEU. 


AVEZ VOUS 9 ? NON 


VOULEZ VOUS DEVINER LE ‘NOMBRE MANQUANT‘? NON 
QUEL NOMBRE VOULEZ VOUS DEMANDER? 3 
3 HS1 DANS MON EU, 


9 N'ETAIT PAS DU BLUFF. 
JE PENSE QUE LE NOMBRE MANQUANT ES 9. 


LE NOMBRE MANQUANT EST 9, J'AVALS RALSIN...VOUS PERDEZ. 


VOULEZ VOUS REJOUER? NON 


VOUS AVEZ JOUE 3 JHUX. VOUS EN AVEZ PERDUS 1VOUS EN AVEZ GAGNES 2. 


Ok 
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1 PRINT CHRS (26) ; TAB (26) "DEVINEZ* 

2 PRINT TAB(28) "CREATIVE COMPUTING" 

3 PRINT TAB(18)"MORRISTOWN, NEW JERSEY* 
4 PRINT 

19 PRINT 

29 G1=0:C1=0 

59 Al=RND(1) 

78 H=S 

88 DIM P(18,10) 

98 FOR K=1 TO H 

109 P(K,8)=1 

119 P(2,K)=1/(K+1) 

129 NEXT K 

130 FOR 1=1 TO H 

140 FOR J=I TO H 

158 P(I,J)=(1#J*P(J,1-1)*(1-P(J-1,1)))/(1+(J+2)*P(J,1-1)) 
168 P(J,1)=(1+I*P(1,J-1)*(1-P(I-1,J)))/(1+(1+#1)*P(1,9-1)) 
170 NEXT J 

188 NEXT I 

190 Z=11 

208 DIM U(Z),N(Z) 

219 PRINT "VOULEZ VOUS LE MODE D'EMPLOI"; 
228 INPUT A$ 

230 IF LEFT$S(A$,1)="O" THEN 17398 

248 IF LEFTS(A$,1)©"N" THEN 219 

250 PRINT 

268 G1=G1+1 

270 FOR J=2 TO Z 

288 U(J)=8 

290 NEXT J 

300 E=0:T=0:C=0:P=0:L=9 

319 GOSUB 1639 

320 REM N = = 
329 RE NUL) TO N(H)= COMP MAIN N(H+1)=TO N(Z)= AUTRE MAIN 
348 PRINT"VOICI VOTRE MAIN" 

350 PRINT 

360 FOR I=H+1 TO Z-1 

370 PRINT N(I); 

380 NEXT I 

390 PRINT 

408 PRINT 

410 PRINT"VOULEZ VOUS COMMENCER"; 

429 INPUT A$ 

430 IF LEFTS(A$,1)="O" THEN 479 

448 IF LEFTS(A$,1)©>"N" THEN 399 

458 K=1 

468 GOTO 489 

478 K=9 

480 K=K+1 

498 M=H—C 

500 N=H-P 

519 PRINT 

520 IF K=(INT(K/2))*2 THEN 868 

530 PRINT 

549 PRINT"VOULEZ VOUS DEVINER LE ‘NOMBRE MANQUANT '"; 
550 INPUT A$ 

569 IF LEFTS$(A$,1)="O" THEN 1259 

570 IF LEFTS(A$,1)©"N" THEN 538 

580 PRINT 

590 PRINT"QUEL NOMBRE VOULEZ VOUS DEMANDER" ; 
620 INPUT E 

618 FOR I1=1 TO Z 

620 IF E=U(I) THEN 658 

630 NEXT I 

649 GOTO 678 

654 PRINT E;"A DEJA ETE DEMANDE .RECOMMENCEZ . * 
669 GOTO 589 

670 FOR J=1 TO H 

689 IF N(J)=E THEN 880 

698 NEXT J 

708 PRINT 

719 PRINT E;"N'EST PAS DANS MON JEU." 
728 IF M=Q THEN 1460 

730 IF N=8 THEN 1449 

749 Y=((M+1) *P(M,N-1)-MX*P (M-1,N))/(1+(M+1) *P (M,N-1)) 
750 IF RND(1)<Y THEN 1389 

768 GOSUB 1229 

770 IF (H-P)=1 THEN 1469 

789 P=P+]1 

798 GOTO 488 

808 PRINT 

818 PRINT E;"EST DANS MON JEU." 

828 C=C+l 

830 GOSUB 1229 

848 GOTO 489 

850 KEM SEQ ORDI DEMARRE 

869 IF T<>8 THEN 1418 

870 IF H-C<>0 THEN 898 

880 GOTO 1460 

898 IF H-P<>8 THEN 919 

989 GOTO 1468 

910 IF (2*H-2)-(P4#C) ©8 THEN 930 

928 GOTO 1468 

930 REM DECISION DE BLUFFER OÙ PAS EN DEMANDANT UNE CARTE 
948 IF RND(1)>1/(1+(N+1)*P(N,M-1)) THEN 1960 
950 PRINT 

960 A=INT (H*RND (1) )+1 

978 FOR J=1 TO Z 

988 IF N(A)=U(J) THEN 960 

999 NEXT J 

1000 PRINT"AVEZ VOUS LE";N (A); 

1919 C=C+1 

1928 INPUT A$ 

1930 E=N (A) 

1840 GOSUB 1220 

1958 GOTO 489 

1969 GOSUB 1179 

1970 PRINT 

1888 PRINT"AVEZ VOUS" ;N (A) ; 

1990 INPUT A$ 

1190 IF LEFTS(A$,1)="O" THEN 1139 

1119 T=1 

1129 GOTO 489 

1138 E=N (A) 


1149 
1150 
1168 
1179 
1189 
1190 
1290 
1210 
1220 
1238 
1249 
1250 
1260 
1279 
1280 
1290 
1300 
1319 
1320 
1330 
1349 
1350 
1364 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1449 
1458 
1460 
1478 
1480 
1498 
1509 
1519 
1520 
1538 
1540 
1550 


P=P+1 

GOSUB 1229 

GOTO 488 

ASINT ( (H+1) *RND (1) )+ (H+1) 

FOR J=1 TO Z 

IF N(A)=U(J) THEN GOTO 1179 

NEXT J 

RETURN 

LeL+] 

U(L)=E 

RETURN 

PRINT 

PRINT"D'APRES VOUS ,QUEL EST LE "NOMBRE MANQUANT"; 

INPUT B 

PRINT 

PRINT"LE NOMBRE MANQUANT EST";N (Z) ;CHRS (8) ;"." 

IF D=N(Z) THEN GOTO 1364 

PRINT 

PRINT"VOTRE PROPOSITION DU";B;"EST CORRECTE. VOUS GAGNEZ!" 
C1=C1+1 

GUTO 1529 

PRINT 

PRINT"VOTRE PROPOSITION DU";B;"EST CORRECTE. VOUS GAGNEZ!" 
GOTO 1528 

PRINT"JE PENSE QUE VOUS NE BLUFFIEZ PAS EN DEMANDANT LE";E;CHRS (8);"." 
G=E 

GOTO 1480 

PRINT N(A);"N'ETAIT PAS DU BLUFF." 

G=N (A) 

GOTO 1489 

G=N (2) 

GuTro 1480 

GOSUB 1178 

G=N (A) 

PRINT"JE PENSE QUE LE NOMBRE MANQUANT EST" ;G;CHRS (8) ;"." 
IF G=N(Z) THEN 1590 

PRINT 

PRINT®LE NOMBRE MANQUANT EST LE";N(Z) ;CHRS(8);". J'AVAIS TORT... VOUS GAGNEZ." 
PRINT:PRINT "VOULEZ VOUS REJOUER"; 

INPUT AS 

IF LEFTS (A$,1)="O" THEN 250 

IF LEFTS (A$,1) ©"N" THEN 1520 


1569 
1570 
1575 
1588 
1599 
1608 
1610 
1628 
1639 
1640 
1658 
1669 
1670 
1689 
1690 
1700 
1710 
1729 
1730 
1748 
1758 
1768 
1770 
1780 
1798 
1808 
1810 
1820 
1830 
1848 
1850 
1869 
1878 
1889 
1899 
1900 
1918 
1920 
1938 
1948 
1958 
1968 
1978 


PRINT 

PRINT*VOUS AVEZ JOUE";G1l;"JEUX. VOUS EN AVEZ PERDUS" ;C1;CHRS (8) ; 
PRINT "VOUS EN AVEZ GAGNES";G1-C1;CHRS (8) ;"." 

FOR XX=1 TO 2000:NEXT : END 

PRINT 


PRINT®LE NOMBRE MANQUANT EST";N (Z) ;CHRS (8);". J'AVAIS RAISON. .. VOUS 
C1=C1+1 

GOTO 1520 

FOR 1=1 TO Z 

N(I)=I 

NEXT I 

FOR 1=1 TO Z 

R=INT (RND(1)*((Z+1)-1))+1 

W=N (R) 

N(R)=N(1) 

N(I)=W 

NEXT I 

RETURN 

PRINT CHRS$ (26) 

PRINT"LE BUT DE CE JEU EST DE DEVINER UN NOMBRE INCONNU" 
PRINT"APPELE LE ‘NOMBRE MANQUANT'. LE JEU SE JOUE AVEC LES NOMBRES" 
PRINT"DE 1 A";Z;CHR$(8);". ON VOUS DONNERA UNE MAIN DE";H 
PRINT"NOMBRES CHOISIS AU HASARD ENTRE 1 ET";Z;CHR$(8);". L'OR " 
PRINT"DINATEUR AURA UNE MAIN SEMBLABLE." 

PRINT 

PRINT"VOUS JOUEZ À TOUR DE ROLE AVEC L'ORDINATEUR.A CHAQUE TOUR" 
PRINT"IL Y À DEUX OPTIONS — DEVINER LE NOMBRE MANQUANT OÙ " 
PRINT*POSER DES QUESTIONS SUR UN NOMBRE." 

PRINT 

PRINT*QUAND UN JOUEUR DEVINE LE NOMBRE MANQUANT LE JEU S'ARRETE." 
PRINT"SI LA PROPOSITION ETAIT CORRECTE CE JOUEUR GAGNE. " 
PRINT"SI ELLE NE L'ETAIT PAS CE JOUEUR PERD." 

PRINT 

PRINT"A TOUTES LES QUESTIONS SUR LES NOMBRES PLACES DANS LA" 
PRINT"MAIN ADVERSE ON DOIT REPONDRE HONNETEMENT.UN JOUEUR " 
PRINT"PEUT BLUFFER EN DEMANDANT UN NOMBRE DE SA PROPRE MAIN" 
PRINT" (L'ORDINATEUR LE FERA PARFOIS) ." 

PRINT 

PRINT"ON NE PEUT DEMANDER UN NOMBRE QU'UNE FOIS." 

PRINT 

LINE INPUT “ENTREZ 'RETURN' POUR DEBUTER LE JEU. ";XXS$ 

GOTO 258 

END 
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PERDEZ ." 


ICBM (Missile) 


Votre station radar enregistre un missile ennemi se 
dirigeant vers vous et vous donne ses coordonnées (en miles 
au nord et en miles à l’est de l'endroit où vous vous trouvez). 
Vous lancez un missile sol-air (SAM) pour l'intercepter. 

Votre seul contrôle sur le SAM est que vous pouvez le 
diriger dans n'importe quelle direction au lancement et en vol. 
En vous guidant des coordonnées du missile ennemi, vous 
entrez la direction (en degrés à partir du nord) dans laquelle 
votre missile va se diriger. 

Au passage suivant du radar, l'ordinateur vous donne les 
nouvelles coordonnées du missile ennemi, les coordonnées 
de votre SAM, et la distance entre les deux. Vous pouvez 
alors faire une correction sur la trajectoire de votre SAM en 
entrant une nouvelle direction. 

Vous ne pouvez contrôler l'altitude de votre SAM, mais 
vous savez qu'il va chercher à atteindre l'altitude du missile 
ennemi. 

Quand les deux missiles se rapprochent, vous faites des 
corrections sur la direction de votre SAM de façon à 
intercepter le missile ennemi. Il est difficile de frapper au but, 
car le missile ennemi est programmé pour dévier au hasard 
de la direction de votre base. De plus, sa vitesse n'est pas 
connue, bien qu'elle ne change pas après avoir été choisie au 
hasard au début de chaque partie. 

Vous pouvez détruire le missile ennemi en vous en 
approchant à moins de 5 miles; les capteurs de chaleur de 
votre SAM prennent alors le relai et le conduisent droit vers 
son but. Si vous dépassez le missile ennemi, vous pouvez 


MISSILE 
CREATIVE COMPUTING 
MORRISTOWN, NEW JERSEY 


= MISSILE----- SAM = 
MILES MILES MILES MILFS DIRECTION 
NORD EST NORD EST ? 
444 396 0 0 215 
LE MISSILE ET SAM SONT MAINTENANT DISTANT DE 504 MILES 
412 374 57 15 ? 85 
LE MISSILE ET SAM SONT MAINTENANT DISTANT DE 431 MILES 
388 356 62 74 2 75 
LE MISSILE ET SAM SONT MAINTENANT DISTANT DE 344 MILES 
366 77 131 ? 80 
C'EST NUL. VOTRE SAM S'EST ECRASE ! 
VOULEZ VOUS ESSAYER ENCORE? (O OÙ N)? O 
= MISSILE=---- SGAM = 
MILES MILES MILES MILES DIRECTION 
NORD EST NORD EST ? 
366 318 77 131 ? 85 
LE MISSILE ET SAM SONT MAINTENANT DISTANT DE 265 MILES 
325 285 81 180 ? 80 
LE MISSILE ET SAM SONT MAINTENANT DISTANT DE 202 MILES 
290 257 89 229 2 15 
LE MISSILE ET SAM SONT MAINTENANT DISTANT DE 114 MILES 
221 137 241 ? 15 
LE MISSILE ET SAM SONT MAINTENANT DISTANT DE 62 MILES 
198 192 185 253 ? -90 
LE MISSILE ET SAM SONT MAINTENANT DISTANT DE 53 MILES 
154 159 185 203 ? -90 
LE MISSILE ET SAM SONT MAINTENANT DISTANT DE 85 MILES 
110 112 185 153 ? -50 
LE MISSILE ET SAM SONT MAINTENANT DISTANT DE 143 MILES 
78 80 217 114 ? -15 
LE MISSILE ET SAM SONT MAINTENANT DISTANT DE 243 MILES 
30 37 265 101 ? -15 
313 88 C'EST NULI 


(o] [e] 
LE MISSILE VIENT DE DETRUIRE VOTRE BASEII 


VOULEZ VOUS ESSAYER ENCORE? (O OÙ N)? N 


faire faire demi-tour à votre SAM et pourchasser le missile 
ennemi qui vient vers vous. Mais faites attention, vous avez 
alors des chances de recevoir les deux missiles. 

La chance intervient en plus de tout ceci, car plusieurs 
accidents ont été programmés pour survenir au hasard. Cela 
peut jouer en votre faveur ou en votre défaveur. 

Quelques possibilités pour améliorer ou étendre le pro: 
gramme sont : 


1. Un contrôle de l'opérateur sur la vitesse du SAM : dans 
cette version du programme, la vitesse du SAM est sélec: 
tionnée au hasard par l'ordinateur au début du jeu, et reste 
constante ensuite. Cela conduit souvent à dépasser le missile 
ennemi. Modifiez le programme de façon à pouvoir entrer une 
nouvelle vitesse (dans certaines limites) en même temps que 
vous entrez une nouvelle direction. 

2. Version en trois dimensions : faites imprimer l'altitude dt 
missile ennemi à l'ordinateur en même temps que ses 
coordonnées. Vous devrez alors rentrer l'angle que votre 
SAM doit faire avec l'horizontale, quand vous entrez les 
autres facteurs. 

8. Extension à tous les quadrants. Dans la version que 
nous vous présentons, le missile ennemi vient toujours di 
Nord-Est. Vous pouvez étendre ceci à toutes les direction: 
possibles. 


Ce jeu provient d'un programme suggéré par Chris Falco 
La rédaction est de Paul Calter et est parue la première foi: 
dans Creative Computing, mai-juin 1975. 


19 PRINT CHRS (26) ; TAB (26) ; "MISSILE" 

28 PRINT TAB(28) ; "CREATIVE COMPUTING" 

36 PRINT TAB(18);"MORRISTOWN, NEW JERSEY" 

40 PRINT:PRINT:PRINT 

119 X1=0:Y1=0 L 

128 X=INT(RND(1) *804)+288:Y=INT (RND (1) *894) +298 

138 S=INT (RND(1) *28+58) : S1=INT (RND (1) *24+58) 

170 PRINT "— MISSILE-— QE 

175 PRINT " SAM —" 

189 PRINT "MILES","MILES" ,"MILES" ,"MILES" , "DIRECTION" 
198 PRINT "NORD ","EST ", "NORD ","EST ","?" 

200 PRINT = ———— ——", 

205 PRINT = —" 

218 FOR N=1 TO 58 

220 PRINT USING "###4# Va YrXrY1eX1, 

2306 IF X=9 THEN 550 

240 INPUT T1 

259 T1=T1/57. 296 

268 H=INT (RND (1) *200+1) 

270 IF H>4 THEN 290 

288 ON H GOTO 478,490,519,530 

298 X1=INT (X1+S1*SIN(T1)):Y1=INT(Y14+S1#COS (T1)) 

319 IF SOR(X"2+Y"2)>S THEN 350 

320 X=0:Y=0 

348 GOTO 430 

350 B=SOR(X"2+Y"2)/1200 

362 T=ATN(Y/X) 

370 X=INT (X-S*COS (T) +RND (1) *294R) 

389 Y=INT(Y-S*SIN(T)+RND(1) *204#R) 

398 D=SQR ((X-X1) "2+(Y-Y1) “2) 

400 IF D=<5 THEN 448 

419 D=INT (D) 

420 PRINT "LE MISSILE ET SAM SONT MAINTENANT DISTANT DE"; D; "MILES" 
430 NEXT N 

448, PRINT "BRAVO ! VOTRE SAM EST ARRIVE À MOINS DE";D;"MILES DU" 
458 PRINT "MISSILE ENNEMI ET L'A DETRUIT!" 

468 GOTO 568 

470 PRINT "C'EST NUL. VOTRE SAM S'EST ECRASE !" 

489 GOTO 568 

498 PRINT "VOTRE SAM VIENT D'EXPLOSER EN VOL!" 

500 GOTO 568 

519 PRINT “VOUS AVEZ DE LA CHANCE .LE MISSILE ENNEMI VIENT D'EXPLOSER!" 
520 GOTO 568 

538 PRINT “PAR CHANCE ,LE MISSILE ENNEMI S'AVERE ETRE UN AVIUN AMI!" 
549 GOTO 568 , À 
559 PRINT "C'EST NUL!" 

555 PRINT “LE MISSILE VIENT DE DETRUIRE VOTRE BASE! !" 
569 PRINT:PRINT “VOULEZ VOUS ESSAYER ENCORE? (0 OÙ N)"; 
578 INPUT AS 

58 IF LEFTS$(A$,1)="O" THEN PRINT CHRS (26) :GOTO 139 
598 EXD 














Inkblot (Tache d'encre) 


Ce programme crée des «taches 
d'encre » analogues à celles utilisées 
dans le célèbre « Test de la tache d'encre 
de Rorschach ». || génère ces taches de 
façon aléatoire si bien qu'il peut produire 
des millions de résultats distincts. La 
plupart de ces modèles sont très intéres- 
sants et ne sont pas seulement des bribes 
de conversation mais aussi de véritables 
exemples d'« art » informatique. 

De plus, ce programme est intéressant 
au point de vue mathématique. En effet, 
« Tache d'encre » génère réellement des 
taches en dessinant des ellipses sur le 
côté gauche de la page et leurs symétri- 
ques par rapport à la «pliure». Le 
programme détermine d’abord les ellipses 
par une sélection aléatoire des variables 
a, b, j, k, z, apparaissant dans l'équation 
de l’ellipse. 


a? b? 


d 
ai 


TR 


/ 
cd Z 





Y 


où a est le grand rayon de l’ellipse, b est le 
petit rayon de l’ellipse, j,k sont les coor- 
données du centre de l’ellipse dans le 
repère ci-dessus, z est l'angle formé par le 
grand diamètre de l’ellipse et l'horizontale. 

Le processus d'impression, assez com- 
plexe, n'est pas traité ici. 

« Tache d'encre » peut être compliqué 
de différentes façons, par exemple en 
permettant à l'utilisateur de choisir le 
caractère qui sera imprimé dans la tache. 
Il peut choisir de produire le négatif d'une 
tache en noircissant le papier à l'extérieur 
de l'ellipse plutôt que l’ellipse elle-même. 
Enfin, il est possible de construire un 


[(X — j)cosz + (y — k)sinzP? " [(y — k)cosz — (x — j)sinz]? : 


Lai 


1 





«hasard répétitif» de sorte que des 
résultats exceptionnels puissent être 
reproduits à la demande. Ces modifica- 
tions sont laissées au soin du program- 


meur ambitieux. 


Le programme et la description sont de 


Scott Costello. 


RUN 


TACHE D'ENCRE 


CREATIVE COMPUTING 


MORRISTOWN, NEW JERSEY 


CE PROGRAMME TOURNE MIEUX SUR LES TERMINAUX HARD COPY,MAIS 
IL NECESSITE UNE ‘PRESENTATION LARGE' QUE LE BASIC 
MICROSOFT CPM N'A PAS.SI VOUS VOULEZ UTILISER UN TERMINAL 
HARD COPY,JE SUGGERE QUE VOUS L'ADRESSIEZ À UNE CONSOLE, 
RECHARGIEZ LE BASIC,PUIS QUE VOUS LE FASSIEZ TOURNER. 


SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
$ssss 


ssss 
$sss SSSSSSSSS SSSSSSSSS $$sss$ 
S$s$$ SSSSSSSSSSSSSSSSSSSSSSSSSS $s$s$s$ 
$sss SSSSSSSSSSSSSSSSSSSSSSSSSSSS $s$s$ 
$ss$ SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS $$$$ 
$$S$s SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS S$sss 
$s$ss SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS S$s$$ 
$S$s$ SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS ssss 
$$$ SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS $$$ 
$s$ SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS $$$ 
$$ SSSSSSSSSSSSSSSSSSSSSSSSSSSS $$ 
$$ SSSSSSSSSSSSSSSSSSSSSSSS $$ 
$$ SSSSSSSSSSSSSSSSSSSSSSSS $$ 
$$ SSSSSSSSSSSSSSSSSSSSSSSSSS $$ 
$$ SSSSSSSSSSSSSSSSSSSSSSSSSSSS $s 
$$ SSSSSSSSSSSSSSSSSSSSSSSSSSSS $$ 
$s SSSSSSSSSSSSSSSSSSSSSSSSSSSS $$ 
$$ SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS $$ 
$$ SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS $$ 
$$ SSSSSSSSSSSSSSSSSSSSSSSSSSSS $$ 
$s SSSSSSSSSSSSSSSSSSSSSSSSSSSS $s 
$s SSSSSSSSSSSSSSSSSSSSSSSSSSSS $$ 
$$ SSSSSSSSS SSSSSSSSSSSSSSSSSSSSSSSSSS SSSSSSSSS $$ 
$$ SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS $$ 
$$ SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS $s 


$$ SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
$s SSSSSSSSSSSSSSSSSSSSSSSSSS 

SS SSSSSSSSSSSSSSSSSSSSSSSSSSSS 
SS SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
SS SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
SS SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
SS SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
SS SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
SS SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
SS SSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
$$ SSSSSSSSSSSSSSSSSSSSSSSSSSS 
$s SSSSSSSSSSSSSSSSSSSSSSSSS 


SSSSSSSSSSSSSSSSSSSSSSSSSSSSS $$ 
SSSSSSSSSSSSSSSSSSSSSSSSSS $$ 
SSSSSSSSSSSSSSSSSSSSSSSSSSSS S$S 
SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS S$ 
SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS S$$ 
SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS S$ 
SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS $S 
SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS $$ 
SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS S$S 
SSSSSSSSSSSSSSSSSSSSSSSSSSSSS SS$S 
SSSSSSSSSSSSSSSSSSSSSSSSSSS $$ 
SSSSSSSSSSSSSSSSSSSSSSSSS $$ 


$$ SSSSSSSSSSSSSSSSSSSSSS SSSSSSSSSSSSSSSSSSSSSS $s 
ss SSSSSSSSSSSSSSSSSS SSSSSSSSSSSSSSSSSS ss 
$$ SSSSSSSSSSSSS SSSSS SSSSS SSSSSSSSSSSSS $$ 
$$ SSSSSSSSSSSSSSSSSSSSSSSSSS $$ 
s$ SSSSSSSSSSSSSSSSSSSSSSSSSSSSSS ss 
$$ SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS $$ 
$$ SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS $$ 
$s SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS $$ 
$$ SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS $$ 
$$ SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS $$ 
$$ SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS $$ 


SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 


ok 
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RUN 
INKBLOT 


CREATIVE COMPUTING 
HORRISTOUN, NEU JERSEY 


CLEREEESENSESEEEEL TE LEE EE EEEESETEEEEEETEEEEEEEEEEEEEETEEEE EEE EEE EE EE EE LEE] 
CELYEYEEEEEEETEETS EE TEE TENEEEESENTEE EYE EEYEESEEEEYETEEEEEEE EEE EEE LE LE LA) 


$s LELREEEEEEEEEEEEEEES) LE] 
$4 CREEEEEEEEEEEEEEEEEX EE) 54 
LL CEREEEEEEEEEEEEEETEEEE EE] LE 
+ 5555555959 939395359938 LA 
$s 55555598 LELLEEEE) 54 
$t LEREEELEEE EE) LRREEEEELEE EL) + 
LA 199555595599 553999 15535593593559539333%3 LE 
$4 LEREEESEEENSENSEEEEEESETEESEEEEESEEEEEEEXXE LE] 
+4 CLLLENTENENEEEEEEEEESEEETEETEETEEEEETSETEETESYE LE 
LA CRLEENEEE EEE TETE NENEESEEEESSEEESEEEETESETEEETSES ES] 54 
LE CRXEEEESENEEESENSEEEEEEEEEESESEEEXESXXSEEEEEELEEEE LE] LE 
LA CXXYEESETEEENSE EEE SEEEEEEEEEEEEEEEEEEESXEEELELEELEEX ZX) ss 
LA CRXELELEETEEIEENEEETENSEENEEEEEEEESEEEESYEETEEESEEE EEE] 54 
44 CRLEENSE TELE S ESS E EE TEETEESESESSEEEEEEEXEEYESEESXEEEEEX)] LE 
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19 PRINT CHRS (26) 

20 CLEAR 1900 

109 PRINT TAB (26) ; "TACHE D'ENCRE" 

195 PRINT TAB (28) ; "CREATIVE COMPUTING" 

119 PRINT TAB (18) ;"MORRISTOWN, NEW JERSEY" 

114 PRINT:PRINT:PRINT 

115 PRINT"CE PROGRAMME TOURNE MIEUX SUR LES TERMINAUX HARD COPY,MAIS * 
116 PRINT "IL NECESSITE UNE "PRESENTATION LARGE' QUE LE BASIC " 

117 PRINT" MICROSOFT CPM N'A PAS.SI VOUS VOULEZ UTILISER UN TERMINAL" 
118 PRINT" HARD COPY,JE SUGGERE QUE VOUS L'ADRESSIEZ À UNE CONSOLE," 
119 PRINT" RECHARGIEZ LE BASIC,PUIS QUE VOUS LE FASSIEZ TOURNER.":PRINT:PRINT 
129 REM *** FABRICATION DES TACHES ELLIPTIQUES ET DE LEURS IMAGES 
130 DIM À (12,13),B$(36) ,A$ (36) 

149 REM *#** CHOIX DE 5 À 12 ELLIPSES 

159 M=INT(8*RND(1))+5 

169 REM *** CREATION DES TAILLE, LIEU ET ANGLE DES M ELLIPSES 

178 FOR L=1 TO M 

189 A(L,1)=34*RND(1) 

198 A(L,2)=88*RND (1) 

209 A(L,3)=(15*RND(1)+2) "2 

219 A(L,4)=(1S#*RND(1)+2) "2 

220 T=3.14159*RND(1) 

238 A(L,5)=COS(T) 

2498 A(L,6)=SIN(T) 

259 A(L,7)=A(L,5)*A(L,6) 

269 A(L,5)=A(L,5) *A(L,5) 

276 A(L,6)=A(L,6)*A(L,6) 

289 A(L,8)=A(L,1)*A(L,1) *A(L,6) 

299 A(L,9)=A(L,1)*A(L,1)*A(L,S) 

300 A(L,18)=A(L,1)#A(L,7) 

319 A(L,11)=-2*A(L,1) #A(L,6) 


=-2*, *, 
338 AE REA EAL, 5) /a (2,3) 
340 NEXT L 
350 REM *** IMPRESSION DU BORD SUPERIEUR; B$ CONTIENT 36 DOLLARS 
360 BS="SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS" 
370 PRINT B$;B$ 
380 PRINT B$;BS 
399 REM *** LA BOUCLE Y : COORDONNEES Y DE LA TACHE; À CHAQUE FOIS 
409 REM **#*QUE LA BOUCLE Y EST EXECUTEE,UNE LIGNE EST ECRITE 
419 FOR Y=79.9 TO © STEP -1.6 
420 AS$="SS k 
438 REM *** BOUCLE E VERIFIE L'EQUATION DE CHAQUE ELLIPSE POUR 
449 REM *** VOIR SI ELLE COUPE UNE LIGNE À ECRIRE 
459 FOR E=1 TO M 
469 Y1=Y-A(E,2) 
470 Y2=Y1*Yl 
489 Y3-Yl*A(E,10) 
499 Y4=YI*A(E,7) 
509 B=(A(E,12)+Y4)/A(E,3)+(-Y4+A(E,11))/A(E,4) 
510 C=(Y2*A(E,6)+A(E,9)-Y3)/A(E,3)+(Y2*A(E,5)+A(E,8)+Y3)/A(E,4)-1 
529 REM *** R EST LE RADICAL DANS LA FORMULE QUADRATIQUE STANDARD 
530 R=B#B-4*A(E, 13) *C 
540 IF R<G THEN 690 
559  R=SQR(R) 
560 REM ***TROUVER OU LA LIGNE COUPE L'ELLIPSE 
579 R1=INT(-(B+R)/2/A(E,13)+1) 
589 IF R1>34 THEN 698 
599 R2=INT((R-B)/2/A(E,13)) 
609 IF R2<1 THEN 698 
619 IF R2<35 THEN 639 
620 R2=34 
630 IF R1>9 THEN 660 
649 R1=1 
659 REM ***REMPLIR LA LIGNE QUI COUPE L'ELLIPSE 
669 FOR J=R1+2 TO R2+2 
670 AS=LEFTS (A$ ,J-1)+"S"4+RIGHTS (AS ,LEN (AS) 7) 
689 NEXT J 
699 NEXT E 
709 REM *** IMPRIMER LA LIGNE 
718 PRINT A$; 
720 FOR K=36 TO 1 STEP -1 
738 PRINT MIDS(AS,K,1) ; 
748 NEXT K 
758 NEXT Y 
760 REM *** IMPRIMER LE BORD INFERIEUR 
778 PRINT BS;B$ 
788 PRINT B$;B$ 
798 END 





Joust (Joute) 






PRINT CHR$ (26) 
10 PRINT TAB (26) ; "JOUTE" 

28 PRINT TAB (20) ; "CREATIVE COMPUTING" 

30 PRINT TAB (18) ;"MORRISTOWN, NEW JERSEY" 

40 PRINT: PRINT: PRINT 

108 INPUT"QUEL EST VOTRE NOM, SVP";A$ 

119 PRINT CHR$ (26) 

128 PRINT"SIR ";A$;", VOUS ETES UN CHEVALIER MEDIEVAL PARTICIPANT À DES JOUTES." 
121 PRINT"LE PRIX ACCORDE AU VAINQUEUR EST LA MAIN DE LA PRINCESSE." 
122 PRINT "POUR GAGNER, VOUS DEVEZ BATTRE QUATRE AUTRES CHEVALIERS." 
125 PRINT"POUR LA JOUTE, VOUS CHOISISSEZ UN POINT DE VISEE" 

126  PRINT"POUR LA LANCE,ET UNE DES 3 À 6 DIFFERENTES POSITIONS" 

128 PRINT" DE DEFENSE POSSIBLE ." 

129 PRINT 

138 PRINT "LES POINTS DE VISEE SONT:* 

158 PRINT "l- LE HEAUME" 

208 PRINT “2- GAUCHE SUP (DU BOUCLIER)" 

258 PRINT "3- MILIEU SUP" 

309 PRINT “4- DROITE SUP" 

359 PRINT "S- GAUCHE INF" 

400 PRINT "6- MILIEU INF” 

458 PRINT “7- DROITE INF" 

599 PRINT "8- BASE DU BOUCLIER" 

528 PRINT 

530  PRINT"SI VOUS CASSEZ UNE LANCE OU PERDEZ UN HEAUME,ON VOUS EN ." 
559 PRINT "DONNERA UN AUTRE. BONNE CHANCE, SIR!" 

555 PRINT 

609 FOR À = 1 TO 4 

652 ON À GOTO 800, 950, 1100, 1250 

700 REM VOUS PARTEZ POUR LES QUATRE JOUTES. 

750; CRM 

809 PRINT"VOICI VOTRE PREMIERE JOUTE,CONTRE LE CHEVALIER D'OR." 

858 GOTO 1408 

959 PRINT"VOICI VOTRE SECONDE JOUTE.VOTRE ADVERSAIRE EST LE CHEVALIER D'ARGENT." 
1988 GOTO 1408 

1108 PRINT"VOUS VOUS BATTEZ BIEN! POUR VOTRE TROISIEME JOUTE VOICI * 
1119 PRINT'LE CHEVALIER ROUGE." 


sh : 1158 GOTO 1498 
Dans ce programme, vous participez à 1259 PRINT"VOICI VOTRE TEST FINAL!! SI VOUS GAGNEZ CELUI CI LA PRIN-" 
un tournoi comme les Chevaliers du 1279 PRINT"CESSE SERA VOTRE!!! VOUS COMBATTEREZ CONTRE LE FERQCE " 
L 1275 PRINT"CHEVALIER NOIR!111" 
Moyen Age. La récompense pour le 1400 PRINT: INPUT "VOTRE POINT DE VISEE (1-8)";8:PRINT 
j , É É 1450 IF B <1 OR B>8 THEN 1409 
vainqueur est d'obtenir la main de la 1470 PRINT "VOUS POUVEZ UTILISER UNE DE SES DEFENSES:" 
Princesse. Pour gagner, vous devez 1520 DAC 1559, 1659, 1759, 1850, er 1558, ER : 
combattre quatre autres chevaliers, le À RO M ne SE ee nn 
i ! i ’ 1659 PRINT " 3-PENCHER À GAUCHE, 4-FERME ASSIETTE, * 
chevalier d'or, le chevalier d'argent, le 1655 PRINT “ S-BOUCLIER HAUT, G-BOUCLIER BAS." 
chevalier pourpre, l’ardent chevalier noir. AR ee 
: ue @ PRINT " 1-HEAUME BAISSE, 2-PENCHER DROITE, 
Avant chaque joute, vous devez choisir un 1752 PRINT * 3-PENCHER GAUCHE, d-FERME ASSIEITE, " 
point de contact parmi huit, tels le Sn ie a ra LE EE HE 
heaume, plus bas à gauche le cœur, le 1858 PRINT “ 2-PENCHER DROITE, 4-FERME ASSIETTE," 
bouclier, etc. Selon votre choix, vous dd en 
optez pour trois positions de défense DE PRINT Pt BAISSE, 4-FERME ASSIETTE, 5-BOUCLIER HAUT," 
RES : ; RESES PRINT " 6-BOUCLIER BAS." 
parmi six possibles, telles qu’une incli- 2000 PRINT:INPUT "QUEL EST VOTRE CHOIX"; C:PRINT 
nason du buste sur la droite, ou une 2100 on D'GOTO 2158, 2208, 2250 2300, 2350, 2400, 2450, 2500 
protection avec le bouclier. 2158 ON C GOTO 2609, 2600, 2600, 2700, 2800, 2600 
Selon votre façon de combattre, il existe 2280 Où © GOTO 250, 2600! 2650! 2750 2920, 2300 
différentes issues à ces joutes : une lance ne 0 de 2 
brisée, ou un coup porté au bouclier... 2409 UN C GOTO,2950, 2650, 2750, 2950, 2850, 2750 
è i 2450 ON C GOTO 2650, 2600, 2950, 2650, 2650, 2650 
D'autres ISSUES sont plus fatales, telles 2589 ON C GOTO 2750, 2650, 2859, 2750, 2850, 2758 
« Vous avez été blessé à mort », ou bien 2690 PRINT "IL VOUS À RATE!":S=0:GOTO 3009 
À " VOTRE ETE E.":S=0:GOTO 3009 
« . cheval vous a désarçonné ». De. DIE SIL A FAT 1ORER VON NME UN | : 
Seri 2759 PRINT "IL À CASSE SA LANCE.":S=9:GOTO 3009 
an Yarbrough a conçu et écrit ce 2899 PRINT "IL VOUS À DESARCONNE (BRUIT MAT) !":5=5:GOTO 3090 
programme. 2852 PRINT "IL À CASSE SA LANCE, VOUS À BLESSE ET DESARCONNE (OUCH) !" 
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2855 S=5:GOTO 3200 


3650 

4050, 
3750, 
3850, 
4058, 
3950, 
3850, 


3750, 
3700, 
4058, 
3750, 
3750, 
3750, 


3850 
3758 
3900 
3850 
3950 
3850 


“VOUS AVEZ FRAPPE SON BOUCLIER MAIS IL L'A DEVIE.":T=ÿ:GOTO 4199 
“VOUS AVEZ FAIT CHUTER SON HEAUME (BIEN) !":T=ÿ:GOTO 4109 


“VOUS L'AVEZ DESARCONNE (BRUYANTS BRAVOS ET HOURRAS) !!":T=5:GOTO 4199 
“VOUS AVEZ CASSE VOTRE LANCE,MAIS DESARCONNE ET BLESSE VOTRE ENNEMI" 


GOTO 4199 
=5:GOTO 4129 






PRINT:PRINT “VOUS ETES MAINTENANT CAPABLE DE RECOMMENCER.":GOTO 1499 
PRINT:PRINT "DESOLE, PLUS DE CHANCE À LA PROCHAINE JOUTE.":GOTO 9999 


VOUS POUVEZ UTILISER UNE DE SES DEFENSES: 
2-PENCHER DROITE, 4-FERME ASSIETTE, 
5-BOUCLIFR HAUT,6-BOUCLIER BAS. 


2908 PRINT “IL VOUS À BLESSE ET DESARCONNE (CRASH) !":S=5:GOTO 3009 
2959 PRINT "IL À CASSE SA LANCE ET VOUS À DESARCONNE (CLANG) !":S=5 
3000 PRINT:E = INT(RND(1)*6) + 1 
3058 ON D GOTO 3190,3159,3200,3258, 3100, 3200,3100, 3300 
3199 IF E<4 THEN 3209 
3119 GOTO 3359 
3150 IF E<3 THEN 3000 
3209 GOTO 3359 
3259 IF E=1 OR E=3 THEN 3000 
3269 GOTO 3359 
3300 IF E = 2ORE = 3 THEN 3090 
3358 ON E GOTO 3490, 3450, 3500, 3550, 3600, 
3499 ON B GOTO 3799, 3900, 3950, 3750, 3850, 
3450 ON B GOTO 3700, 3850, 3900, 3700, 4056, 
3529 ON B GOTO 3700, 3700, 3758, 3850, 3700, 
3550 ON B GOTO 3894, 3850, 3850, 3750, 3850, 
3600 ON B GOTO 3900, 3850, 4050, 3750, 3700, 
3658 ON B GOTO 3709, 3700, 4000, 3900, 3850, 
3700 PRINT "VOUS L'AVEZ MANQUE (HISS)!":T=ÿ:GOTO 4109 
3750 PRINT 
3800 PRINT 
3850 PRINT "VOUS AVEZ CASSE VOTRE LANCE (CRACK...)":T=ÿ:GOTO 4180 
3908 PRINT 
3959 PRINT 
3955 T=5:GOTO 4129 
4008 PRINT “VOUS BLESSEZ ET DESARCONNEZ VOTRE ADVERSAIRE. ": 
4058 PRINT “VOTRE LANCE EST CASSEE MAIS ENNEMI DESARCONNE. 
4198 IF S = T AND S = @ THEN 4459 
4150 IF S = T THEN 4400 
4200 IF SCT THEN 4300 
4250 IF S>T THEN 4358 
4308 PRINT:PRINT "VOUS AVEZ REMPORTE CETTE JOUTE.":PRINT:GOTO 4329 
4320 NEXT À 
4330 GOTO 4559 
4350 PRINT:PRINT "TROP MAUVAIS, VOUS AVEZ PERDU. J'ESPERE QUE VOTRE" 
4355 PRINT"ASSURANCE À ETE PAYEE." 
4369 GOTO 4500 
4408 PRINT:PRINT"TROP MAUVAIS, VOUS AVEZ TOUS LES DEUX PERDU.AU" 
4439 PRINT “MOINS VOTRE HONNEUR EST INTACT." 
4440 GOTO 4509 
4459 
4500 
4558 PRINT:PRINT “HOURAH! VOUS ETES VAINQUEUR. VOILA LA PROMISE!" 
4568  PRINT:PRINT 
9999 LINE INPUT "ENTREZ 'RETURN' POUR FINIR. ";XX$ : END 
RUN 
JOUTE 
CREATIVE COMPUTING 
MORRISTOWN, NEW JERSEY 


QUETI, EST VOTRE NOM, SVP? JACQUES 


SIR JACQUES, VOUS ETES UN CHEVALIFR MEDIEVAL PARTICIPANT À DES JOUTES. 


LE PRIX ACCORNE AU VAINQUEUR 
POUR GAGNER,VOUS DEVEZ BATTRE QUATRE AUTRES CHEVALIFERS. 
POUR LA JOUTE,VOUS CHOISISSEZ UN POINT DE VISEE 

POUR LA LANCE,ET UNE DES 3 À 6 DIFFERENTES POSITIONS 
DE DEFENSE POSSIBLE 


LES POINTS DE VISEE SONT: 


1- LE HEAUME 

2- GAUCHE SUP (DU BOUCLIER) 

3- MILIEU SUP 

4- DROITE SUP 

5- GAUCHE INF 

6- MILIEU INF 

7- DROITE INF 

B- BASE DU BOUCLIER 

SI VOUS CASSEZ UNE LANCE OU PERDEZ UN HEAUME,ON VOUS FN 


DONNERA UN AUTRE. RONNE CHANCE, SIRI 
VOICI VOTRE PREMIERE JOUTE,CONTRE LE CHEVALIER D'OR. 
VOTRE POINT DE VISEE(1-8)? 4 
VOUS POUVEZ UTILISER UNF DE SES DEFENSES: 
2-PENCHER DROITE, 4-FERME ASSIETTE, 
5-ROUCLIER HAUT,6-ROUCLIFR BAS. 
QUEL EST VOTRE CHOIX? 2 


IL À CASSE SA LANCE. 


VOUS AVEZ FRAPPE SON BOUCLIER MAIS IL L'A DEVIE. 
VOUS ETES MAINTENANT CAPABLE DE RECOMMENCER. 
VOTRE POINT DF VISEE(1-8)? 8 
VOUS POUVEZ UTILISER UNE DE SES DFFENSES: 

1-HEAUME BAISSE, 4-FERME ASSIETTE, 5-BOUCLIFER HAUT, 
6-BOUCLIER BAS. 
QUEL EST VOTRE CHOIX? 1 


IL VOUS A RATE! 


EST LA MAIN DE LA PRINCESSE. 


VOUS AVEZ CASSE VOTRE LANCE,MAIS DESARCONNE ET BLESSE VOTRE ENNEMI 


VOUS AVEZ REMPORTE CFTTE JOUTF. 


VOICI VOTRE SECONDE JOUTE.VOTRE ADVERSAIRE EST LE CHEVALIFR D'ARGENT. 


VOTRE POINT DE VISEE(1-8)? 4 
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QUEL EST VOTRE CHOIX? 4 


IL À FRAPPE VOTRE BOUCLIFR MAIS LE COUP À ETF DEVIE. 


VOUS L'AVEZ DESARCONNE (BRUYANTS BRAVOS ET HOURRAS)I1I 
VOUS AVEZ REMPORTE CETTE JOUTE. 


VOUS VOUS BATTEZ BIEN! 
LE CHEVALIER ROUGE. 


POUR VOTRE TROISIEME JOUTE VOICI 


VOTRE POINT DE VISEE(1-8)? 8 


VOUS POUVEZ UTILISER UNE 
1-HEAUME BAISSE, 4-FERME ASSIETTE, 
6-BOUCLIER BAS. 


DE SES DEFENSES: 
S-BOUCLIER HAUT, 


QUEL EST VOTRE CHOIX? 1 


IL A CASSE SA LANCE. 


VOUS AVEZ CASSE VOTRE LANCE,MAIS DESARCONNE ET BLESSE VOTRE ENNEMI 


VOUS AVEZ REMPORTE CETTE JOUTE. 

VOICI VOTRE TEST FINALII SI VOUS GAGNEZ CELUI CI LA PRIN- 

CESSE SERA VOTREIII VOUS COMBATTEREZ CONTRE LE FEROCE 

CHEVALIER NOIRIIII 

VOTRE POINT DE VISEE(1-8)? 8 

VOUS POUVEZ UTILISER UNE DE SES DEFENSES: 
1-HEAUME BAISSE, 4-FERME ASSIETTE, 5-BOUCLIER HAUT, 
6-BOUCLIER BAS. 

QUEL EST VOTRE CHOIX? 1 

IL VOUS A RATEI 

VOUS AVEZ CASSE VOTRE LANCE (CRACK...) 

VOUS ETES MAINTENANT CAPABLE DE RECOMMENCER. 

VOTRE POINT DE VISEE(1-8)? 1 


VOUS POUVEZ UTILISER UNE DE SES DEFENSES: 
4-FERME ASSIETTE, 5-BOUCLIER HAUT, 6-BOUCLIER BAS. 


QUEL EST VOTRE CHOIX? 5 
1L VOUS À DESARCONNE (BRUIT MAT)! 
VOUS L'AVEZ MANQUE (Hiss)1 


TROP MAUVAIS, VOUS AVEZ PERDU. J'ESPERE QUE VOTRE 
ASSURANCE À ETE PAYEE. 


DESOLE, PLUS DE CHANCE A LA PROCHAINE JOUTE. 
ENTREZ "RETURN' POUR FINIR. 
Ok 


Jumping Balls 
(Les balles sautantes) 





Les balles sautantes est un jeu pour 
une personne se jouant sur un tableau 
contenant neuf trous alignés qui peuvent 
être remplis par quatre balles blanches du 
côté droit et quatre noires du côté gauche. 
Sans tableau, il peut être joué avec des 
pièces de monnaie ou des chips. Le but 
du jeu est d’inverser la position des balles 
(ou autres objets) d’un côté du tableau à 
l'autre. 

Chaque coup consiste à déplacer une 
balle jusqu'au trou libre immédiatement 
adjacent ou en sautant une autre balle. 
Vous ne pouvez pas sauter deux balles ou 
plus en un seul coup. Les trous sont 
numérotés de la gauche vers la droite. Au 
début du jeu, le trou numéro cinq est vide. 


LES BALLES SAUTANTES 
CREATIVE COMPUTING 
MORRISTOWN, NEW JERSEY 


INSTRUCTIONS? OUI 


DANS 


CE JEU, ON VOUS DONNE HUIT BALLES PLACEES SUR 


UN TABLEAU DE NEUF TROUS. LE BUT DU JEU EST D'INVERSER L'ORDRE 

DES BALLES.LES ‘A' SONT DES BALLES ARGENTEES ET LES ‘D' SONT DOREES. 
VOUS DEVEZ METTRE LES ARGENTEES OÙ SE TROUVENT LES DOREES 

ET LES DOREES OU SE TROUVENT LES ARGENTEES.UN TROU EST UNE 

PERIODE DU TABLEAU. 


BONNE CHANCEII VOICI LE TABLEAU: 
AAAAÀA.DDDD MOVE? 6,5 
AAAAD.DDD MOVE? 4,6 
AAA .DADDOD MOVE? 5,4 
A A À D. A D DD MOVE? 7,5 
AAADDA.DOD MOVE? 6,7 
AAADD.ADD MOVE? 5,6 
AAAD.DADOD MOVE? 6,5 
AAADD.ADOD MOVE? 5,6 
AAAD.DADOD MOVE? 3,5 
AA.DADADOD MOVE? 4,3 
AAD.ADADOD MOVE? 6,4 
AADDA.ADD MOVE? 8,6 
AADDADA.D MOVE? 7,8 
AADDAD.AD MOVE? 5,6 
L'ESPACE 6 EST OCCUPE. 

MOVE? 5,7 
AADD.DAAD MOVE? 4,5 
AAD.DDAAD MOVE? 2,4 
A . DA DDAAD MOVE? 3,2 
AD.ADDAAD MOVE? 1,3 
« DAADDAAD MOVE? 2,1 
D.AADDAAD MOVE? 3,2 
DA.ADDAAD MOVE? 5,3 
DADA.DAAD MOVE? 6,5 
DADAD.AAD MOVE? 7,6 
DADADA.AD MOVE? 9,7 
DADADADA. MOVE? 8,9 
DAD.DADAA MOVE? 
D. DADADAA MOVE? 3,2 
DD .ADADAA MOVE? 5,3 
DDDA.ADAA MOVE? 7,5 
DDDADA.AA MOVE? 6,7 
DDDAD.AAA MOVE? 4,6 
DDD.DAAAA MOVE? 5,4 
VOUS AVEZ GAGNEIII 
VOUS AVEZ TERMINE LE JEU EN 34 MOUVEMENTSIIII 


ENCORE? NON 


Ok 


De ce fait, un premier coup légitime serait 
six vers cinq, quatre vers cinq, trois vers 
cinq, qui serait un saut, ou bien sept vers 
cinq, un autre saut. 

L'ordinateur ne note pas votre habilité 
au jeu, mais nous pensons que vous 
devriez être capable de finir le jeu en un 
nombre de coups inférieur à celui de notre 
exemple. 

L'auteur original de ce jeu est Anthony 
Rizzolo. 


5 PRINT CHR$(26) 

10 PRINT TAB(22);"LES BALLES SAUTANTES" 

20 PRINT TAB(20);"CREATIVE COMPUTING" 

30 PRINT TAB(18);"MORRISTOWN, NEW JERSEY" 

40 PRINT:PRINT:PRINT 

1040 DIM Q(9,1) 

1050 PRINT "INSTRUCTIONS"; 

1060 INPUT A$ 

1065 PRINT 

1070 IF LEFT$(A$,1)="N" THEN 1150 

1080 PRINT " DANS CE JEU, ON VOUS DONNE HUIT BALLES PLACEES SUR " 
1090 PRINT "UN TABLEAU DE NEUF TROUS. LE BUT DU JEU EST D'INVERSER L'ORDRE" 


1100 PRINT "DES BALLES.LES 'A' SONT DES BALLES ARGENTEES ET LES 'D' SONT DOREES." 


1110 PRINT "VOUS DEVEZ METTRE LES ARGENTEES OU SE TROUVENT LES DOREES" 
1120 PRINT "ET LES DOREES OU SE TROUVENT LES ARGENTEES.UN TROU EST UNE" 
1125 PRINT "PERIODE DU TABLEAU." 

1130 PRINT "BONNE CHANCEII VOICI LE TABLEAU:" 
1135 PRINT 

1140 5=0 

1150 FOR X=1 T0 4 

1160 LET Q(X,1)=1 

1170 NEXT X 

1180 LET Q(5,1)=0 

1190 FOR X=6 T0 9 

1200 LET Q(X,1)22 

1210 NEXT X 

1220 LET A$ÿ=".AD" 

1230 FOR X=1 10 9 

1240 PRINT MID$(A$,Q(X,1)+1,1); 

1250 PRINT " "; 

1260 NEXT X 

1265 S25+1 

1270 PRINT " MOVE"; 

1280 INPUT M,Ml 

1290 IF M<=9 AND M>=1 AND M1<=9 AND M1>=1 THEN 1320 
1300 PRINT "MOUVEMENT INTERDIT." 

1310 GOTO 1270 

1320 REM: VERIFICATION DE LA POSSIBILITE DU CHANGEMENT 
1330 IF M+l=M1 OR M-1=M1 THEN 1430 

1340 REM: SOUS-PROGRAMME DE VERIFICATION DES SAUTS 
1350 IF M=9 THEN 1390 

1360 IF M=1 THEN 1410 

1370 IF Q(M+1,1)=0 OR Q(M-1,1)=0 THEN 1300 

1380 GOTO 1420 

1390 IF Q(M-1,1)=0 THEN 1300 

1400 GOTO 1420 

1410 IF Q(M+1,1)=0 THEN 1300 

1420 IF M+2CM1 AND M-2CML THEN 1300 

1430 IF Q(M,1)C0 THEN 1460 

1440 PRINT "IL N'Y A RIEN LE TROU";M;CHR$(8);"." 
1450 GOTO 1270 

1460 IF Q(M1,1)=0 THEN 1490 

1470 PRINT "L'ESPACE";M1;"EST OCCUPE." 

1480 GOTO 1270 

1490 LET Q(M1,1)=Q(M,1) 

1500 LET Q(M,1)=0 

1510 x9=Q(1,1)+Q(2,1)+0(3,1)+0(4,1) 

1512 Y9=Q(6,1)+Q(7,1)+0(8,1)+0(9,1) 

1514 IF X9=8 AND Y9=4 THEN 1530 

1520 GOTO 1230 

1530 PRINT:PRINT "VOUS AVEZ GAGNEI II" 

1535 PRINT "VOUS AVEZ TERMINE LE JEU EN"3S;"MOUVEMENTSI III" 
1540 PRINT "ENCORE"; 

1550 INPUT A$ 

1560 IF LEFT$(A$,1)="0" THEN 1130 

1570 END 


Keno 





ABB EC0eE6GEe 
(29 &a) (2) () (5) 2) ©) De 





Le Keno est une invention bien améri- Le LENS 

caine, qui apparut dans les casinos du 
à CREATIVE COMPUTING,MORRISTOWN, NEW JERSEY 

Nevada, peut-être de Reno. Au cours du 
jeu, vingt nombres sont choisis au hasard, 
parmi les valeurs 1 à 18. Au casino, avant ON JOUE AU KENO DANS DE NOMBREUX CASINOS À LAS VEGAS 
chaque jeu, le joueur choisit de un à JOUEZ AU KENO CONTRE L'ORDINATEUR.UNE VARIATION DU JEU, 
quinze nombres, ou « spots » qui, à son UTILISE LE GENERATEUR DE NOMBRES ALEATOIRES. 
avis, apparaîtront au cours du jeu. Une LE JOUEUR CHOISIT 8 DIFFERENTS NOMBRES DE 1 À 80 INCLUS 

: : NE ET ET MISE $1.20.L'ORDINATEUR SELECTIONNE 20 NOMBRES AU 
fois son choix terminé, il mise sur chacun HASARD ET ELIMINE LES DOUBLES QUI POURRAIENT APPARAITRE. 
de ces nombres. A la fin de chaque jeu, UN AUTRE NOMBRE SERA INSERE À LA PLACE DE MANIERE 


£ : A CE QUE L'ORDINATEUR AIT 20 NOMBRES DIFFERENTS. 
ces « spots» sont comparés aux vingt 


nombres sortis, et le gain qui en est issu rose Ci 


est mémorisé par l'ordinateur. Keno QUAND L'ORDINATEUR AFFICHERA ? TAPEZ UN NOMBRE DE 1 à 80 
connaît beaucoup de succès à Las Vegas, 2 Tate APT DISPANU ee D? Ê 

parce que les paris sont très simples, et le oh 

gain maximum très élevé ($ 25 000). ? 24 

Néanmoins, la probabilité de succès est At 

extrêmement faible. En fait, Keno rapporte ŒL 

pratiquement plus à la maison de jeux ? 2 

qu'aucun autre jeu. 

Dans cette version informatisée, L'ORDINATEUR VA SELECTIONNER 20 NOMBRES AU HASARD. LA CLOCHE 
participe un seul joueur. De plus, il ne peut INDIQUERA QU'IL EST EN TRAIN DE SELECTI . 
miser que huit différents « spots ». Au 

. à 0 VOS NOMBRES SONT LES SUIVANTS: 
Nevada, le pari unitaire est de 60 cents; 1 23 24 35 46 77 65 2 
cependant, dans ce jeu, le pari unique L'ORDINATEUR À SELECTIONNE LES NOMBRES SUIVANTS: 
peut être de $1,20. Le versement pour huit 20 25 73 42 5 64 40 30 79 69 59 1 78 70 77 4 72 53 45 66 
« Spots » marqués est le suivant : LE PROGRAMME COMPARERA VOS NOMBRES AVEC CEUX QUE 
Nombre L'ORDINATEUR À SELECTIONNES. 
de « spots » Gain ECOUTEZ LA CLOCHE--- CHAQUE SONNERIE INDIQUERA UN 
5 $10 00 NOMBRE CORRECTEMENT DEVINE PAR VOUS. 
6 $100.00 Li AVEZ DEVINE LES NOMBRES SUIVANTS: 
7 $2 200,00 
8 $25 000,00 
77 
Aucun gain n’est attribué pour 0, 1, 2, 8, RE ete 2 Rd due et 
ou 4 nombres corrects sur 8. | CE N'EST PAS ASSEZ -- ‘DESOLE',PAS D'ARGENT. 

Cette version de Keno est de Vincent 

Fazio. VOULEZ VOUS REJOUER AU KENO? OUI 
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ALLONS-YIII 

QUAND L'ORDINATEUR AFFICHERA ? ,TAPEZ UN NOMBRE DE 1 A 80 
INCLUS,ET TAPEZ "RETURN'.RECOMMENCEZ JUSQU'A CE QUE LE 
SIGNE ? AIT DISPARU. 

? 23 

65 

7 

25 

46 

75 

1 

55 


© +0 0 0 +0 +0 +0 


L'ORDINATEUR VA SELECTIONNER 20 NOMBRES AU HASARD. LA CLOCHE 
INDIQUERA QU'IL EST EN TRAIN DE SELECTIONNER LES NOMBRES. 


VOS NOMBRES SONT LES SUIVANTS: 
23 65 7 25 46 75 1 55 


L'ORDINATEUR À SELECTIONNE LES NOMBRES SUIVANTS: 
41 47 36 70 3 49 63 23 19 11 60 18 71 69 46 30 75 21 62 


LE PROGRAMME COMPARERA VOS NOMBRES AVEC CEUX QUE 
L'ORDINATEUR À SELECTIONNES. 


ECOUTEZ LA CLOCHE--- CHAQUE SONNERIE INDIQUERA UN 
NOMBRE CORRECTEMENT DEVINE PAR VOUS. 

VOUS AVEZ DEVINE LES NOMBRES SUIVANTS: 

23 


46 
75 


VOUS AVEZ TROUVE 3 NOMBRES SUR 8 -- 
CE N'EST PAS ASSEZ -- 'DESOLE',PAS D'ARGENT. 


VOULEZ VOUS REJOUER AU KENO? NON 


C'EST TOUT POUR MAINTENANT.REJOUEZ AU KENO,AU REVOIR. 
Ok 


1 PRINT CHRS (26) ; TAB (34) “KENO" : PRINT 

2 PRINT TAB(15)" CREATIVE COMPUTING,MORRISTOWN, NEW JERSEY" 

3 DIM N(21),M(23) ,A(8) 

9 PRINT: PRINT: PRINT 

19 PRINT"ON JOUE AU KENO DANS DE NOMBREUX CASINOS À LAS VEGAS." 

13 PRINT "JOUEZ AU KENO CONTRE L'ORDINATEUR.UNE VARIATION DU JEU," 
16 PRINT"UTILISE LE GENERATEUR DE NOMBRES ALEATOIRES. * 

19 PRINT 

28 PRINT"LE JOUEUR CHOISIT 8 DIFFERENTS NOMBRES DE 1 À 88 INCLUS" 
23 PRINT"ET MISE $1.28.L'ORDINATEUR SELECTIONNE 29 NOMBRES AU" 

26 PRINT"HASARD ET ELIMINE LES DOUBLES QUI POURRAIENT APPARAITRE. " 
29 PRINT"UN AUTRE NOMBRE SERA INSERE À LA PLACE DE MANIERE" 

32 PRINT"A CE QUE L'ORDINATEUR AIT 29 NOMBRES DIFFERENTS." 

38 PRINT:PRINT:PRINT "ALLONS-YI 11" 

49 PRINT"QUAND L'ORDINATEUR AFFICHERA ? ,TAPEZ UN NOMBRE DE 1 À 89" 
43 PRINT"INCLUS,ET TAPEZ "RETURN'.RECOMMENCEZ JUSQU'A CE QUE LE" 
46 PRINT"SIGNE ? AIT DISPARU." 

48 FOR 1=1 TO 8 

50 INPUT A(I) 

S1 1F A(1)>88 THEN 56 

53 IF A(1)=0 THEN 56 

54 IF A(I)<ÿ THEN 56 

55 GOTO 57 

56 PRINT"TAPEZ UN NOMBRE DE 1 À 89 INCLUS, SVP.": GOTO 59 

57 NEXT I 

58 C=2:FOR K=1 TO 7 

59 FOR J=K TO 7 

69 X=A(K):Y=A(J+1) 
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17 


IF XOY THEN 72 

C=C+1 

PRINT"UN NOMBRE EN DOUBLE À ETE TROUVE DANS "ENTREE." 
PRINT"TAPEZ UN AUTRE NOMBRE,S'IL VOUS PLAIT.":INPUT Y 

IF Y=0 THEN 70 

IF Y>88 THEN 70 

IF Y<@ THEN 78 

A(J+1)=Y 


69 GOTO 61 
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PRINT "TAPEZ UN NOMBRE DE 1 À 89 INCLUS, SVP." 

GOTO 64 

NEXT J 

NEXT K :PRINT: PRINT 

IF C=0 THEN 88 

GOTO 58 

PRINT"L'ORDINATEUR VA SELECTIONNER 29 NOMBRES AU HASARD. LA CLOCHE" 
PRINT"INDIQUERA QU'IL EST EN TRAIN DE SELECTIONNER LES NOMBRES. " 


100 FOR L=1 TO 24 

193 N(L)=INT (8Y*RND (80)+1) 
196 M(L)=N(L) 

109 NEXT L 

119 L=21 

112 FOR K=1 TO 20 

115 FOR J=K TO L-1 


118 
121 
124 


X=M(K) 
YM(J+1) 
IF XOY THEN 139 


130 M(J+1)=INT (88*RND(1)+1) 
133 Y-M(J+1) 

136 GOTO 124 

139 OUT 2,52' PRINT CHRS (7); 
142 NEXT J 

145 NEXT K 

147 PRINT: PRINT 


148 
151 
154 
157 
168 
163 


PRINT "VOS NOMBRES SONT LES SUIVANTS: " 

FOR 1=1 TO 8 

PRINT A(I); 

NEXT I:PRINT: PRINT 

PRINT"L'ORDINATEUR À SELECTIONNE LES NOMBKES SUIVANTS:" 
FOR L=1 TO 29 


167 PRINT M(L); 


170 


NEXT L:PRINT: PRINT 


173 PRINT"LE PROGRAMME COMPARERA VOS NOMBRES AVEC CEUX QUE " 
176 PRINT"L'ORDINATEUR À SELECTIONNES. " 


179 


PRINT: PRINT 


182 PRINT"ECOUTEZ LA CLOCHE-—— CHAQUE SONNERIE INDIQUERA UN " 
185 PRINT "NOMBRE CORRECTEMENT DEVINE PAR VOUS." 


188 
191 
194 
197 
200 
203 


PRINT "VOUS AVEZ DEVINE LES NOMBRES SUIVANTS :" 
G=0 

1=1 

FOR J=1 TO 20 

X=A (1) 

Y=M(J) 


206 IF X=Y THEN 213 


289 
218 


213 OUT 2,52" 


216 
219 


NEXT J 

GOTO 225 

PRINT CHR$ (7); 
FOR VI1=1 TO 3976:NEXT V1 
PRINT A(1); 


222 G=G+1 
225 1=1+1:PRINT:IF 1<>8 THEN 197 


228 
231 
234 
237 
240 
242 
243 
245 
246 


IF G<5S THEN 242 

IF G=5 THEN 261 

IF G=6 THEN 267 

IF G=7 THEN 273 

IF G=8 THEN 279 

PRINT "VOUS AVEZ TROUVE";G; "NOMBRES SUR 8 —" 

PRINT "CE N'EST PAS ASSEZ — "DESOLE',PAS D'ARGENT." 
PRINT: PRINT 

PKINT "VOULEZ VOUS REJOUER AU KENO"; 


250 C=0 


251 
252 


INPUT X$ 
IF LEFTS(X$,1)="O" THEN 38 


253 IF LEFT$(X$,1)="N" THEN 299 


254 


C=C+1 


255 IF C=3 THEN 299 
256 PRINT "TAPEZ ‘OUI' OU 'NON'" 


257 
258 
259 
261 
264 
267 
270 
273 


GOTO 251 

IF LEFTS$(X$,1)="N" THEN 299 

PRINT "TAPEZ OUI OÙ NON SVP!1" 

PRINT "VOUS AVEZ TROUVE";G; "NOMBRES SUR 8 — VOUS GAGNEZ $19,00" 
PRINT:PRINT:GOTO 246 

PRINT "VOUS AVEZ TROUVE";G;"NOMBRES SUR 8 — VOUS GAGNEZ $100,00" 
PRINT:PRINT:GOTO 246 

PRINT "VOUS AVEZ TROUVE ";G;"NOMBRES SUR 8 — VOUS GAGNEZ $2.2D0,00" 


276 PRINT:PRINT:GOTO 246 


279 
282 
285 


PRINT "VOUS AVEZ TROUVE ";G;"NOMBRES SUR 8 — VOUS GAGNEZ $25.000,00" 
PRINT "8 SUR 8 ,CA N'ARRIVE PAS SOUVENT, VEINARD. " 
PRINT:PRINT:GOTO 246 


299 PRINT:PRINT"C'EST TOUT POUR MAINTENANT.REJOUEZ AU KENO,AU REVOIR." 
300 END 


L Game (Jeu du L) 





Ce jeu de stratégie se joue à deux, et 
utilise comme support une grille 4 par 4. II 
fut imaginé par Edward de Bono et parut 
dans le livre The five-day course in 
thinking (ou Apprendre à réfléchir en cinq 
leçons). Chaque joueur possède un « L » 
qui recouvre quatre cases de la grille, 
(trois en hauteur, deux en travers). Les 
deux «L» sont imprimés différemment 
pour éviter la confusion. La grille possède 
deux cases neutres susceptibles d'être 
déplacées. Pour jouer avec l'ordinateur, il 
faut numéroter les cases comme ci- 
dessous : 





Chaque jeu commence avec les deux 
« L» positionnés comme ci-dessous : 





L'objectif du jeu est tout simplement de 
positionner un «L» et les deux cases 
neutres pour neutraliser son adversaire 
dans ses mouvements. Chaque mouve- 
ment est un mélange d'attaque et de 
défense, puisque chaque joueur doit non 
seulement neutraliser son adversaire 
es éviter de se faire lui-même neutra- 
iser. 


Pour débuter le jeu, le choix est laissé à 
l'adversaire de l'ordinateur. Le principe 
est de déplacer, à chaque tour, le « L » 
dans une position différente de la précé- 
dente. Chaque joueur peut renverser son 
«L», le faire tourner de 90 degrés, à 
condition de ne pas recouvrir des cases 
déjà utilisées, et de ne pas sortir de la 
grille. Si un joueur se révèle incapable de 
déplacer son « L », il perd. Une fois la 
nouvelle position trouvée, le joueur peut 
choisir de déplacer une, deux ou aucune 
des cases neutres vers des cases encore 
inoccupées. Une utilisation correcte de 
ces cases peut permettre d'immobiliser 
l'adversaire. Après le déplacement (ou le 
non-déplacement, suivant la décision) de 
ces cases, c'est au tour de l'autre joueur. 
Le jeu continue ainsi jusqu’à ce que l’un 
des deux joueurs soit neutralisé. 

La version informatisée de ce jeu est de 
Bill Gardner. 


RUN 


JEUX DU L 
CREATIVE COMPUTING . 
MORRISTOWN, NEW JERSEY 


INSTRUCTIONS? OUI 


Le jeu du L est un jeu simple de strategie joue sur un 
tableau 4x4 par deux joueurs,dans ce cas par vous et l' 
ordinateur. le tableau est numerote comme suit: 


Rass==222s22.— 
5 ds: 2:53 33: 4: 
aasss===22=2222— 
+ St: 6:: 7:: 8: 
3 9::10::11::12: 
m==s====2222222 
:213::14::15::16: 


===. 
ENTREZ ‘RETURN' POUR CONTINUER. 


Le jeu se joue au moyen de 4 pieces;vous et l'ordinateur 
avez chacun un ‘L',et il y a deux ‘CARRES 

par les deux joueurs.le jeu commence toujours avec 

la repartition suivante des pieces sur le tableau: 





====00000000* * * * 
:13:00000000* _* 
====00000000* * * * 


(l'ordinateur est /, vous etes O0) 
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ENTREZ ‘RETURN' POUR CONTINUER. 


Le but du jeu est de placer votre propre L et les carres 
afin d'empecher l'ordinateur de deplacer son L. Bien sur, 
il essaye de faire la meme chose avec vousl Pour vous 
deplacer,vous n'avez qu'@ rentrer les quatre coordonnees 
de l'endroit of vous voulez placer votre L.Il doit rester 
sur le tableau est ne doit pas recouvrir d'autres pieces. 
Vous devez bouger votre Li Si vous ne pouvez trouver une 
nouvelle position pour votre L,l'ordinateur aura alors 
effectivement bloque votre L,et gagne le jeu. 

En supposant que vous avez reussi @ bouger votre L,vous 
pouvez bouger les carres. Vous pouvez en bouger un,deux, 
ou aucun des deux,en rentrant simplement les coordonnees 
ou vous voulez les placer. Pour laisser un carre o% il est. 
entrez sa position actuelle. 


Apres avoir deplace les carres,c'est au tour de l'ordinateur 


de trouver un deplacement pour son L et le jeu continue 
de la meme maniere. Souvenez vous que vous ne devez pas 
seulement bloquer le L adverse mais aussi empecher que 


votre L ne le soit.De meme il est plus facile de jouer avec le 


tableau que l'ordinateur imprime. pour abandonner,entrez 
0,0,0,0 comme deplacement. BONNE CHANCEI 


IMPRESSION DU TABLEAU? OUI 
VOULEZ VOUS COMMENCER? NON 


L'ORDINATEUR VA EN 2 6 10 9 
CARRES EN 12 ET 13 





=222)// === 
: 1:////3 32: 4: 
====////===22222 DEPLACEMENT DE VOTRE L? 4,3,7,11 
====////0000==== DEPLACEMENT DES CARRES? 1,14 
: 5:////0000: 8: O.K. 
====////0000==== 
[IJIII1/0000%*** **+*+////00000000 
[IIII///0000%  * * _+*////00000000 
[IJIII1/0000%%%% ***+////00000000 
#*#*##00000000==== ====////0000==== 
* _*00000000:16: : 5:////0000: 8: 
*###00000000==== ====////0000==== 
[IT I11//0000==== 
11//////0000:12: 
1ITITII/0000==== 


æ=sstthth=z=22222 


:13:* *:15::16: 


=esst# tk 


L'ORDINATEUR VA EN 
CARRES EN 


===2=22=00000000 


##*0000==== 
*0000:12: 
#*#**0000==== 
manmanmsssss 
114::15::16: 


DEPLACEMENT DE VOTRE L? 7,11,15,16 
DEPLACEMENT DES CARRES? 10,3 


L'ORDINATEUR VA EN 


CARRES EN 
==2== ===-#"=0000 
3 1:: 2:: 3:0000 
nsssaanazsé 20000 
1III11//////0000 
1111111/1/17/7/0000 
1IIII111////0000 
111 /***#00000000 
////*. *00000000 
111 /**##00000000 
=s=====2=ttthtenss 
213::14:* *:16: 


mzsasssstfttfanz== 


DEPLACEMENT DE VOTRE L? 1,2,3,4,8 


?Redo from start 
? 2,3,4,8 


DEPLACEMENT DES CARRES? 10,15 








DEPLACEMENT DE VOTRE L? 13,14,15,11 
DEPLACEMENT DES CARRES? 8,1 


O.K. 


& Jet * 


nl 

ol 

" 

Q 
SIN 


/0000:12: 
[III TII/0000==== 
O000000000000==== 
000000000000 : 1 6 : 
O00000000000==== 


L'ORDINATEUR VA EN 
CARRES EN 





ok O.K. ma===2==22222222= 
ÉPPPPPPELLLLET TES 3 li: 215: 3:: 4 
« * ====000000000000 ===2===22=2222222= 
DR RENE ER : 1:000000000000 A TRE 
CE ====000000000000 
Aie 8: 1IIIII1///7/0000 LIIIIIIIIIIERSSS* 
1ILII11/0000==== LILIIIII111/0000 111 /*%##0000==== 
[II /***#0000==== LITIITIIT1770000 [ITI*. *0000:12 
III/*. #*0000:12: PPT ELLLEEEEREE 111 /****0000==== 
LIT I####0000==== LITI* *slls:12: 000000000000==== 
11] /====00000000 LE otre 000000000000 : 1 6 : 
1111114: 00000000 === 000000000000==== 
11 / /====00000000 213::14:* *:16: 
DEPLACEMENT DE VOTRE L? 14,15,16,12 
DEPLACEMENT DES CARRES? 2,13 
L'ORDINATEUR VA EN 5 6 7 11 O.K. 
L'ORDINATEUR VA EN 5 9 13 14 CARRES EN 15 ET 12 
CARRES EN 6 ET 10 L' 
====000000000000 : 
222222222222 : 1:000000000000 = 
5 li: 215: 3e 4: ====000000000000 / 
munmsssmussss LILILIIII11/0000 / 
[IT /**#*0000==== LIIIII111/7/0000 / 
[J//*. *0000: 8: LITIIIIIIII 70000 / 
[IT I*##*O000==== He 0 10 / 
[IT I*##*0000==== :10:////* * / 
LUI/* *0000:12: nes PRIT * 
[IL IR###0000==== ======s=ttñtanz= * 000000000000 
111 /////00000000 113::14:* *:16: *** *000000000000 
111/////00000000 ===m=stthttaz== 
[TITI 1100000000 
L'ORDINATEUR À GAGNEI L'ORDINATEUR VA EN 9 10 11 7 


CARRES EN 3 ET 8 
REJOUEZ-VOUS? OUI 
VOULEZ VOUS COMMENCER? NON 
DEPLACEMENT DE VOTRE L? 12,8,4,11 


DEPLACEMENT DES CARRES? 10,15 L'ORDINATEUR VA EN 2 6 10 9 el 
O.K. CARRES EN 12 ET 16 = 

? 
m===========0000 ====/// === = 
: li: 2 3:0000 : 1:////: 3:: 4 / 
æ====22=2=2=0000 ====////====222= / //0 
11 //========0000 ====////0000==== III II1//1///0000 
1l//: 6:: 7:0000 5:////0000: 8: ====000000000000 
111 /========0000 ====////0000==== 413 : 000000000000 
111 /*#*#**00000000 11111/0000%%%% æ===000000000000 
[IT F*.. #00000000 [ITII17/0000%  * 
111 /***#*00000000 11111///0000%%%* L'ORDINATEUR À GAGNEI 
I lallshnininint ==2=2=0, * 
LITIIITIR *:16: :13:00000000% __* REJOUEZ-VOUS? NON 
III INR **===S æ===00000000% * #* # Ok 
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520 NEXT X 


5 PRINT CHR$(26) 530 GOSUB 1420 

10 PRINT TAB(26);"JEUX DU L" 540 LET F1=1 

11 PRINT TAB(20); "CREATIVE COMPUTING" 550 LET N1=Z 

12 PRINT TAB(18);"MORRISTOWN, NEW JERSEY" 560 GUSUB 1800 

13 PRINT: PRINT : PRINT 570 IF M1=0 THEN 1300 

20 DIM C(4),0(4),1(4),8(16),N(16),M(100) 580 REM TROUVER LE DEPLACEMENT AVEC LE MEILLEUR RECOUVREMENT CENTRAL 
25 PRINT "INSTRUCTIONS"; 585 GOSUB 1370 

30 INPUT A$ 590 FÜR E=0 TO M1-4 STEP 4 

35 IF LEFI$(A$,1)="0" THEN 3000 600 FUR F=1 T0 4 

40 PRINT "IMPRESSION DU TABLEAU"'; 610 FÜR Gz=1 T0 4 

45 INPUT A$ 620 IF M(E#)OT(G) THEN 640 

50 IF LEFT$(AS,1)="N" THEN 65 630 LET N(E/4+1)=N(E/4+1)+1 

55 LET F2=0 640 NEXT G 

eU GOTU 7U 650 NEXT F 

65 LET F2z=1 66U NEXT E 

70 GOSUB LOU 670 GOSUB 1500 

8U GUTU 210 690 LET Y=(Z-1)*4 

100 REM DATA D'INITIALISATIUN 700 FOR X=1 T0 4 

101 REM B1,U2 = PUSITIUNS DES CARRÉS 710 LET C(X)=M(X+#Y) 

102 REM C(1,2,3,4) = POSITION DE L'ORDINATEUR (L) 720 LET B(C(X))22 

103 REM 0(1,2,3,4) = PUSITIUN DE L'ADVERSAIRE (L) 730 NEXT X 

104 REM 1(1,2,3,4) = 6,7,10,11 = PUSITIUNS DU CENTRE 740 PRINT 

105 REM B(1,:.:16) = TABLEAU: 750 PRINT "L'ORDINATEUR VA EN ";C(1);" "3C(2)5" "3C(3);" ";C(4) 
106 RLH B(X)=0 VIDE 760 REM TROUVER LES DEPLACEMENTS DES CARRES 
107 REM B(X)=1 L LE L'ADVERSAIRE 765 REM DEPLACEMENTS DES CARRES SUR LE TABLEAU 
108 REM B(X)=2 L DE L'ORDINATEUR 770 LET B(B1)=0 

109 REM B(X)=23  CARRES 780 LET B(B2)=0 

115 RLSTURE 790 REM L'ADVERSAIRE EST-IL DANS UN COIN? 
120 DATA 1,16,2,7,6,6,11,7,10,15,10,3,14,11 800 FOR I1=1 T0 4 

130 LATA 3,2,2,0,0,2,1,0,0,2,1,0,0,1,1,3 810 FÜR J=1 T0 4 

140 READ B1,B2 820 IF O(1)=T(3) THEN 870 

190 FUR X=1 T0 4 830 NEXT J 

160 READ C(X),0(X),T(X) 840 NEXT I 

170 NEXT X 845 REM L'ADVERSAIRE EST DANS UN COIN, IGNORER LE CENTRE 
180 FUR X=1 T0 16 850 GOTO 1020 

190 READ B(X) 860 REM L'AUVERSAIRE N'EST PAS DANS UN COIN,REMPLIR LE CENTRE DE CARRE 
200 NEXT X 870 FOR X=1 T0 4 

205 RETURN 880 1F B(T(X))>0 THEN 920 

210 PRINT "VOULEZ VOUS COMMENCER"; 890 LET B1=T(X) 

215 INPUT A$ 900 LET B(B1)=3 

220 IF LEFT$(A$,1)="N" THEN 500 910 GOTO 950 

230 REM DEPLACEMENT DE L'ADVERSAIRE 920 NEXT X 

235 GUSUB 2270 930 REM PAS DE PLACE AU CENTRE 

240 PRINT 940 GOTO 1020 

245 PRINT "DEPLACEMENT DE VOTRE L'"; 950 FOR X=1 T0 4 

25U INPUT D(1),D(2),D(3),D(4) 960 IF B(T(X))>0 THEN 1000 

255 IF ABS(D(1))+ABS(D(2))+ABS(D(3))+ABS(D(4))=0 THEN 1280 970 LET B2=T(X) 

265 FOR X=1 TU 4 980 LET B(B2)=3 

270 FOR Y=2 10 4 990 GOTO 1080 

275 IF D(Y)DD(Y-1) THEN 295 1000 NEXT X 

280 LET Z=D(Y) 1005 REM CENTRE REMPLI 

285 LET D(Y)=D(Y-1) 1010 GOTO 1050 

290 LET D(Y-1)=Z 1015 REM LES DEUX CARRES A POSITIONNER 

295 NEXT Y 1020 GOSUB 1610 

300 NEXT X 1030 LET B1=83 

305 REM VERIFIER LA LEGALITE 1040 LET B(B1)2=3 

310 FOR X=1 TO 4 1045 REM UN CARRE À POSITIONNER 

315 LET N(X)=D(X) 1050 GUSUB 1610 

320 NEXT X 1060 LET B2=B3 

325 LET N1z=4 1070 LET B(B2)=3 

330 LET F120 1080 PRINT TAB(9);"CARRES EN ";B1;" ET ";B2 
335 GOSUB 1800 1081 FOR X=1 T0 4 

340 IF M1<>4 THEN 1220 1082 LET B(O(X))=1 

345 FOR X=1 TO 4 1083 NEXT X 

350 1F B(M(X))>1 THEN 1220 1085 GOSUB 2270 

355 NEXT X 1090 REM VERIFICATION DE LA VICTOIRE 

360 FOR X=1 TO 4 1100 FOR X=1 10 4 

365 LET B(O(X))=0 1110 LET B(O(X))=0 

370 NEXT X 1120 NEXT X 

375 FOR X=1 10 4 1130 GOSUB 1420 

380 LET B(M(X))=1 1140 LET F122 

385 LET O(X)=M(X) 1150 LET N1z=Z 

390, NEXT X 1160 GOSUB 1800 

395 LET B(B1)=0 1170 IF M1=0 THEN 1280 

400 LET B(B2)=0 1180 FOR X=1 10 4 

405 PRINT "DEPLACEMENT DES CARRES"; 1190 LET B(O(X))=1 

410 INPUT X,Y 1200 NEXT X 

415 IF ABS(X)+ABS(Y)C©X+Y THEN 1250 1210 GOTO 240 

416 IF X=Y THEN 1250 1220 PRINT "DEPLACEMENT DU L ILLEGAL." 
420 IF B(X)+B(Y)>0 THEN 1250 1230 PRINT 

430 LET B1=X 1240 GOTO 240 

440 LET B2=Y 1250 PRINT "DEPLACEMENT DU CARRE ILLEGAL." 
450 LET B(B1)=3 1260 PRINT 

460 LET B(B2)=3 1270 GOTO 405 

470 PRINT "O.K." 1280 PRINT "L'ORDINATEUR A GAGNE I" 

475 GOSUB 2270 1290 GOTO 1310 

480 REM DEPLACEMENT DE L'ORDINATEUR 1300 PRINT "FELICITATIONSIVOUS AVEZ GAGNE." 
500 FOR X=1 TO 4 1310 PRINT 

510 LET B(C(X))=0 1320 PRINT "REJOUEZ-VOUS"; 
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2090 
2110 


INPUT A$ 

1F LEFT$(A$,1)="0" THEN 70 

GOTO 4000 

REM ###* SUBROUTINES ##* 

REM EFFACER N(X) 

FOR X=1 T0 16 

LET N(X)=0 

NEXT X 

RETURN 

REM LOCAL ISATIONS DES POSITIONS INOCCUPEES EN N(X) 
LET Z=0 

FOR X=1 TO 16 

IF B(X)>0 THEN 1470 

LET Z=Z+1 

LET N(Z)=X 

NEXT X 

RETURN 

REM CE SOUS PROGRAMME RETOURNE LE LIEU DE LA PLUS GRANDE 
REM VALEURS EN N(X). SI UNE EGALITE EST TROUVEE,CHOIX AU HASARD 
LET Y=0 

LET Z=1 

FOR X=1 T0 M1/4 

IF N(X)<Y THEN 1580 

IF N(X)>Y THEN 1560 

IF RND(1)>.5 THEN 1580 

LET Y=N(X) 

LET Z=X 

NEXT X 

RETURN 

REM TROUVER-CARRE 

REM CE SOUS PROGRAMME TROUVE LE DEPLACEMENT D'UN CARRE QUI 
KEM RÉDUIRA LE PLUS LE DÉPLACEMENT DU L DE L'ADVERSAIRE 
REM EN NOMBRE DE DÉPLACEMENTS POSSIBLES 

FOR X2=1 10 4 

LET B(O(X))=0 

NEXT X 

GOSUB 1420 

LET F122 

LET N1z=z 

GOSUB 1800 

GOSUB 1370 

FOR X=1 TO M1 

LET N(M(X) )=N(M(X) )+1 

NEXT X 

FOR X=1 T0 4 

LET N(U(X))=0 

NEXT X 

LET M1=64 

GOSUB 1500 

LET 8322 

RETURN 

REM TROUVER-L 

REM CE SOUS PROGRAMME CALCULE TOUS LES DÉPLACEMENTS POSSIBLES POUR 
REM UN L DONNE, TUUTES LES POSITIUNS LIBRES EN N(X). SI Fiz=l, 
REM LA POSITION ACTUELLE DE L'ORDINATEUR EST UMISE, SINON C'EST 
REM CELLE DE L'ADVERSAIRE QUI EST OMISE. LES DÉPLACEMENTS SUNT 
REM RÉTOURNES EN M(X),ET ML EST LA LONGUEUR DE M(X). 
REM (M1 = NOMBRES DE DÉPLACEMENTS * 4) 

LET Miz=U 

LET J=4 

LET Kz=1 

GUSUB 1880 

LET J=1 

LET Kz=4 

GOSUB 1880 

RETURN 

LET P=0 

LET P=P+] 

LET A(1)=N(P) 

LET X=P 

LET X=X+1 

IF XDN1 THEN 2050 

IF N(X)-A(1) 9 THEN 1920 

LET A(2)=N(X) 

LET X2=X+1 

IF XDN1 THEN 20SÛ 

IF N(X)-A(2)>J THEN 1960 

LET A(3)=N(X) 

FOR Ez=1 TO N1 

IF ABS(N(E)-A(1))=K THEN 2060 

IF ABS(N(E)-A(3))=K THEN 2060 

NEXT E 

GOTU 1890 

IF P€N1-2 THEN 1890 

RETURN 

LET A(4)=N(E) 

FOR Fz=1 TU 4 

IF A(F)/4C>INT(A(F)/4) THEN 2130 

FOR G=1 T0 4 

IF A(G)=A(F)+1 THEN 2030 


2120 
2150 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
225Ù 
2260 
2270 
2275 
2280 
2290 
2300 
2310 
23520 
2350 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2450 
2440 
2450 
2460 
2470 
2480 
2490 
2560 
2510 
2520 
2530 
2540 
3UUO 
3010 
3020 
3050 
3U4U 
30SU 
3060 
3070 
3080 
3090 
3092 
3100 
3110 
3120 
3130 
3150 
3160 
3165 
3166 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 
3350 
3340 
3350 
3360 
3370 
3380 
3450 
4000 


NEXT G 

NEXT F 

FOR Y=1 TU 4 

IF F1zl THEN 2190 

IF ACY)O@O(Y) THEN 2210 

NEXT Y 

GOTU 2050 

IF A(Y)©@C(Y) THEN 2210 

GOTO 2170 

FOR Y=1 TU 4 

LET M(MI+#Y)=A(Y) 

NEXT Y 

LET MI1=M1+4 

GUTO 2030 

REM SUUS PRUGRAMME D'IMPRESSIOUN DU TABLEAU 
PRINT 

IF F221 THEN 2930 

FUR Lz=1 T0 13 STEP 4 

FUR F=1 TU 3 

FOUR G=E TU E+3 

UN B(G)+1 GUTU Z32U,2410,243U, 2450 

IF Fz2 THEN 23550 

PRINT 
GUTU 2 
PRINT "2"; 

IF G>9 THEN 2390 

PRINT " ";CHR$(4B+G);":"; 

GUTU 2490 

PRINT "1";CHR$(38+G);":"; 

GUTU 2490 

PRINT "O000"; 

GOTO 2490 

PRINT "////"; 

GUTO 2490 

IF F22 THEN 2480 

PRINT. Rens 

GOTO 2490 

PRINTE-"# “ans 

NEXT G 

PRINT 

NEXT F 

NEXT E 

PRINT 

RETURN 

REM  INSTRUCTIUNS 

PRINT CHK$(26) 

PRINT " Le jeu du L est un jeu simple de strategie joue sur un" 
PRINT "tableau 4x4 par deux joueurs,dans ce cas par vous et l1'" 
PRINT "ordinateur. le tableau est numerote comme suit:" 

LET F2=0 

FUR X=1 10 16 

LET B(X)20 

NEXT X 

GOSUB 2270 

GUSUB 50000 

PRINT "Le jeu se joue au moyen de 4 pieces;vous et l'ordinateur" 
PRINT "avez chacun un 'L',et il y a deux 'CARRES' utilises" 
PRINT "par les deux joueurs.le jeu commence toujours avec" 

PRINT "la repartition suivante des pieces sur le tableau:" 

GOSUB 100 

GOSUB 2270 

PRINT "(l'ordinateur est /, vous etes 0)" 

PRINT:PRINT:GOSUB 50000 

PRINT "Le but du jeu est de placer votre propre L et les carres" 
PRINT "afin d'empecher l'ordinateur de deplacer son L. Bien sur," 
PRINT "il essaye de faire la meme chose avec vous! Pour vous" 
PRINT "deplacer,vous n'avez qu'à rentrer les quatre coordonnees" 
PRINT “de l'endroit où vous voulez placer votre L.11 doit rester" 
PRINT "sur le tableau est ne doit pas recouvrir d'autres pieces." 
PRINT “Vous devez bouger votre L! Si vous ne pouvez trouver une" 
PRINT "nouvelle position pour votre L,l'ordinateur aura alors " 
PRINT "effectivement bloque votre L,et gagne le jeu." 

PRINT " En supposant que vous avez reussi à bouger votre L,vous" 
PRINT "pouvez bouger les carres. Vous pouvez en bouger un,deux," 
PRINT "ou aucun des deux,en rentrant simplement les coordonnees" 







PRINT "ou vous voulez les placer. Pour laisser un carre où il est." 


PRINT “entrez sa position actuelle." 


PRINT " Apres avoir deplacer les carres,c'est au tour de l'ordinateur" 


PRINT "de trouver un deplacement pour son L et le jeu continue" 
PRINT "de la meme maniere. Souvenez vous que vous ne devez pas" 
PRINT "seulement bloquer le L adverse mais aussi empecher que" 


PRINT "votre L ne le soit.De meme il est plus facile de jouer avec le" 


PRINT " tableau que l'ordinateur imprime. pour abandonner ,entrez" 
PRINT "0,0,0,0 comme deplacement. BONNE CHANCE!" 

PRINT 

GOTO 40 

END 


50000 LINE INPUT "ENTREZ "RETURN' POUR CONTINUER. ";XX$ 
50010 PRINT CHR$(26) 
50020 RETURN 
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Life Expectancy 





(Espérance de vie) 


Ce programme consiste en un test 
d'estimation de l'espérance de vie, dérivé 
du livre de Peter Passell : « How to ». Le 
test vous pose une série de questions se 
rapportant à Votre style de vie et votre 
environnement. A la fin du questionnaire, 
le programme vous donne votre espé- 
rance de vie et le pourcentage de la 
population qui a une espérance de vie 
inférieure. 

Vous pouvez essayer d'expérimenter le 
test avec différentes variables afin de voir 
leurs effets sur la durée de votre vie. Il est 
invraisemblable que vous vouliez changer 
de sexe, mais vous pouvez essayer de 
voir les effets du tabac, de la boisson, de 
l'état mental ou du poids. 

Ce programme a été écrit par John 
E. Rogers. 


RUN 


ESPERANCE DE VIE 
CREATIVE COMPUTING 
MORRISTOWN, NEW JERSEY 


CECI EST UN TEST D'ESPERANCE DE VIE. 
VOULEZ-VOUS LE MODE D'EMPLOI? OUI 


CECI EST UN TEST PERMETTANT DE PREVOIR VOTRE DUREE DE VIE. 
JE VAIS VOUS POSER UNE SERIE DE COURTES QUESTIONS, AUXQUELLES 
VOUS REPONDREZ EN RENTRANT LA REPONSE CORRESPONDANTE. 


EXEMPLE: QUELLE EST VOTRE SEXE? 
M=MASCULIN 
F=FEMININ 
‘M' ET ‘F' SONT LES DEUX REPONSES POSSIBLES, REPONDEZ COMME 
SUIT: 
CHOISISSEZ UNE DES LETTRES CI-DESSUS? M 
TAPER UN ‘'M' SIGNIFIE QUE VOUS ETES DE SEXE MASCULIN. 


+++SEXE+++ 
ETES VOUS DE SEXE MASCULIN OU FEMININ? 
M = MASCULIN. 
F = FEMININ. 
CHOISISSEZ UNE DES LETTRES CI-DESSUS? M 


+++STYLE DE VIE+++ 
OU HABITEZ-VOUS? 


G = SI VOUS HABITEZ DANS UNE ZONE URBAINE D'UNE POPULATION DE PLUS DE 2 MILLIONS 
K = SI VOUS HABITEZ DANS UNE VILLE DE MOINS DE 10.000 HABITANTS OU DANS UNE FERM 
E. 


1 = AUCUN DES DEUX 
CHOISISSEZ UNE DES LETTRES CI-DESSUS? G 


COMMENT TRAVAILLEZ-VOUS? 
M SI VOUS TRAVAILLEZ DERRIERE UN BUREAU. 
L SI VOTRE TRAVAIL NECESSITE UN EFFORT PHYSIQUE IMPORTANT. 
1 AUCUN DES DEUX. 
CHOISISSEZ UNE DES LETTRES CI-DESSUS? 1 


COMBIEN DE FOIS EXERCEZ-VOUS UNE ACTIVITE ENERGIQUE, 
(TENNIS,COURSE À PIED,NATATION, ETC. (? 
F CINQ FOIS PAR SEMAINE,POUR AU MOINS UNE DEMI-HEURE CHAQUE. 
K JUSTE DEUX A TROIS FOIS PAR SEMAINE. 
I NE PRATIQUE PAS D'EXERCISE DE CETTE FACON. 

CHOISISSEZ UNE DES LETTRES CI-DESSUS? K 


AVEC QUI VIVEZ-VOUS? 
= SI VOUS VIVEZ AVEC UNE EPOUSE,UN AMI,OU EN FAMILLE. 
SI VOUS VIVEZ SEUL DEPUIS 1 À 10 ANS À PARTIR DE VOS 25 ANS. 
DEPUIS 11 À 20 ANS. 
DEPUIS 21 À 30 ANS . 
DEPUIS 31 À 40 ANS. 
DEPUIS PLUS DE 40 ANS. 
D = DEPUIS PLUS DE 40 ANS. 
CHOISISSEZ UNE DES LETTRES CI-DESSUS? N 


0mMZOLIZ 
CRD 


+++PSYCHE+++ 
DORMEZ-VOUS PLUS DE 10 HEURES PAR NUIT? 
I = NON. 
E = OUI. 
CHOISISSEZ UNE DES LETTRES CI-DESSUS? I 


+++ETAT MENTAL+++ 
M = SI VOUS ETES VIF,AGRESSIF, OU FACILEMENT EN COLERE. 
L = SI VOUS ETES CONCILIANT,DECONTRACTE,OU INFLUENCABLE. 
1 = NI L'UN ,NI L'AUTRE. 

CHOISISSEZ UNE DES LETTRES CI-DESSUS? L 


+++COMMENT VOUS SENTEZ VOUS?+++ 
ETES-VOUS HEUREUX OU MALHEUREUX? 
J HEUREUX. 
G MALHEUREUX. 
I NI L'UN,NI L'AUTRE 
CHOISISSEZ UNE DES LETTRES CI-DESSUS? 


+++FACTEURS+++ 
AVEZ-VOUS EU UNE CONTRAVENTION POUR EXCES DE VITESSE DANS L'ANNEE ECOULEE? 
.H = OUI. 
1 = NON. 
CHOISISSEZ UNE DES LETTRES CI-DESSUS? I 
+++REVENU+++ 
GAGNEZ-VOUS PLUS DE 300.000 FRANCS PAR AN? 
G = OUI. 
I = NON. 


CHOISISSEZ UNE DES LETTRES CI-DESSUS? 1 


+++ETUDES+++ 
J SI VOUS AVEZ PASSE LE BACCALAUREAT. 
L SI VOUS AVEZ EFFECTUE DES ETUDES SUPERIEURES. 
I AUCUN DIPLOME. 
CHOISISSEZ UNE DES LETTRES CI-DESSUS? L 


+++AGE+++ 
AVEZ-VOUS 65 ANS ET TRAVAILLEZ-VOUS TOUJOURS? 
L = OUI. 
1 = NON 
CHOISISSEZ UNE DES LETTRES CI-DESSUS? I 
+++HEREDITE+++ 
K SI L'UN DE VOS GRAND-PARENTS À ATTEINT L'AGE DE 85 ANS. 


o SI VOS QUATRE GRAND-PARENTS ONT ATTEINT L'AGE DE 80 ANS. 
I AUCUN GRAND-PARENT QUALIFIE PRECEDEMMENT. 
CHOISISSEZ UNE DES LETTRES CI-DESSUS? K 


EST-CE QU'UN DE VOS PARENT EST MORT D'UNE ATTAQUE D'APOPLEXIE OU CARDIAQUE 


AVANT SES 50 ANS? 
E = OUI. 
I = NON. 
CHOISISSEZ UNE DES LETTRES CI-DESSUS? 1 


+++MALADIES HEREDITAIRES+++ 


EST-CE QU'UN PARENT,UN FRERE,OU UNE SOEUR DE MOINS DE 50 ANS À (OU A EU) 


UN CANCER,DES PROBLEMES CARDIAQUES OU DU DIABETE DEPUIS SON ENFANCE? 


M = OUI 
1 = NON 
CHOISISSEZ UNE DES LETTRES CI-DESSUS? I 
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+++SANTE+++ 
COMBIEN FUMEZ-VOUS? 
À = SI VOUS FUMEZ PLUS DE DEUX PAQUETS PAR JOUR. 
= DE UN A DEUX PAQUETS PAR JOUR. 
D'UN DEMI À UN PAQUET PAR JOUR. 
I = NE FUME PAS. 
CHOISISSEZ UNE DES LETTRES CI-DESSUS? I 






+++BOISSON+++ 
BUVEZ-VOUS L'EQUIVALENT D'UN 
QUART DE BOUTEILLE DE BOISSON ALCOOLISEE PAR JOUR? 
H = OUI 
I = NON 
CHOISISSEZ UNE DES LETTRES CI-DESSUS? I 


+++POIDS+++ 
À : SI VOUS AVEZ UN EMBONPOINT DE 25 KILOS OU PLUS. 
E DE 15 A 25 KILOS. 
G DE 5 À 15 KILOS. 
I = PAS D'EMBONPOINT. 
CHOISISSEZ UNE DES LETTRES CI-DESSUS? I 








+++EXAMENS MEDICAUX+++ 


PASSEZ-VOUS,SI VOUS ETES UN HOMME DE PLUS DE 40 ANS,UN EXAMEN MEDICAL ANNUEL COM 


PLET? 
K = OUI. ; 
I = NON,OU PAS UN HOMME DE PLUS DE 40 ANS. 
CHOISISSEZ UNE DES LETTRES CI-DESSUS? I 


ALLEZ-VOUS,SI VOUS ETES UNE FEMME,VOIR UN GYNECOLOGUE UNE FOIS PAR AN? 
K = OUI. 
1 = NON,OU PAS UNE FEMME. 

CHOISISSEZ UNE DES LETTRES CI-DESSUS? 1 


+++AGE+++ 

= SI VOUS AVEZ ENTRE 30 ET 40 ANS. 
= ENTRE 40 ET 50 ANS. 

ENTRE 50 ET 70 ANS. 

= PLUS DE 70 ANS . 

= MOINS DE 30 ANS. 

CHOISISSEZ UNE DES LETTRES CI-DESSUS? I 






K 
L 
F 
N 
1 
Oo 


VOUS POUVEZ ESPERER VIVRE JUSQU'A L'AGE DE 83 ANS. 
EN SURVIVANT A 758DES HOMMES ET 538DES FEMMES. 
VOULEZ-VOUS UNE AUTRE ESTIMATION? N 

Or 


am 
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5 PRINT CHR$(26) 

10 PRINT TAB(21);"ESPERANCE DE VIE" 

20 PRINT TAB(20);"CREATIVE COMPUTING" 

30 PRINT TAB(18);"MORRISTOWN, NEW JERSEY" 


270 
280 
290 
300 
310 
320 
330 
340 
350 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
550 
540 
550 
560 
270 
580 
590 
éuu 
610 
620 
630 
640 
CE 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
77U 
780 
790 
800 
810 
82u 
CU 
840 
850 
8eu 
870 
880 
890 
ou 
910 
g2u 
930 
9au 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1365 


PRINT 
PRINT 
PRINT 
INPUT 
IF .LEI 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
RS=1: 
2272 
Aÿ$="AI 
GOTO 
R9=R5: 
IF RS 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
LATA 
DATA 
DATA 
DATA 
DATA 
DATA 
LAIA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


PRINT :PRINT 

"CECI EST UN TEST D'ESPERANCE DE VIE." 

" VOULEZ-VOUS LE MUDE D'EMPLOI"; 

1$ 

FI$(1$,1)="N" THEN 470 

PRINT 

"CECI EST UN TEST PERMETTANT DE PREVUIR VOTRE DUREE DE VIE." 
"JE VAIS VOUS POSER UNE SERIE DE COURTES QUESTIONS, AUXQUELLE S" 
“VOUS REPUNDREZ EN RENTRANT LA REPUNSE CURRE SPONDANTE ." 

" EXEMPLE: QUELLE EST VOTRE SEXE?" 

" H=MASCUL IN" 

" F=FEMININ" 

MIM' ET 'F' SONT LES DEUX REPONSES POSSIBLES,REPONDEZ COMME" 
"SUIT:" 

" CHOISISSEZ UNE LES LETTRES CI-DESSUS? M" 
"TAPER UN 'M' SIGNIFIE QUE VOUS ETES DE SEXE MASCULIN." 
:PRINT 

PRINT 

BCDEMGHI JKLF NO" 

1700 

+] 

>21 THEN 190U 

M4++SEXE +++" 

"ETES VOUS DE SEXE MASCULIN OÙ FEMININ?" 

“M = MASCULIN." 

MF = FEMININ." 

2,"MF" 


M4+#STYLE DE VIE+++" 
"OU HABITEZ-VOUS ?" 

"G 
UK 


1 = AUCUN DES DEUX" 

3,"CKI" 

"COMMENT TRAVAILLEZ-VOUS?" 

"M = SI VOUS TRAVAILLEZ DERRIÈRE UN BUREAU." 

"L = SI VOTRE TRAVAIL NECESSITE UN EFFORT PHYSIQUE IMPORTANT." 
"I = AUCUN DES DEUX." 

3,"MLI" 

MCOMBIEN DE FOIS EXERCEZ-VOUS UNE ACTIVITÉ ENERGIQUE ," 

MCTENNIS, COURSE A PIED, NATATION,ETC.(?" 

"F = CINQ FUIS PAR SEMAINE ,POUR AU MOINS UNE DEMI-HEURE CHAQUE ." 
"K = JUSTE DEUX À TROIS FOIS PAR SEMAINE." 

MT NE PRATIQUE PAS D'EXERCISE DE CETTE FACON." 

3,"FKI" 

“AVEC QUI VIVEZ-VOUS?" 

"N = SI VOUS VIVEZ AVEC UNE EPOUSE,UN AMI,OU EN FAMILLE." 

"H = SI VOUS VIVEZ SEUL DEPUIS 1 À 10 ANS A PARTIR DE VUS 25 ANS." 
"G = DEPUIS 11 A 2U ANS." 
"M = DEPUIS 21 À 30 ANS . 
ME = DEPUIS 31 À 40 ANS." 
"D = DEPUIS PLUS DE 4U ANS." 

6, "NHGHED!" 

M4+4+PSYCHE +++" 

“DOURMEZ-VOUS PLUS DE IU HEURES PAR NUIT?" 

"I = NUN." 

"E = OUI." 

2,"IE" 

M4++ETAT MENTAL+4+4#+4" 

"M = SI VOUS ETES VIF,AGRESSIF, OÙ FACILEMENT EN COLERE." 
"L = SI VOUS ETES CUNCILIANT,DECOUNTRACTE,OU INFLUENCABLE ." 
MI NI L'UN ,NI L'AUTRE." 

3,"MLI" 

"4+4+CUMMENT VOUS SENTEZ VOUS ?+++" 

MÉTES-VOUS HEUREUX OU MALHEUREUX 7?" 

"J = HEUREUX." 

"G = MALHEUREUX." 

“OI = NI L'UN,NI L'AUTRE" 

3,"JGI" 

“4447 ACTEURS +++" 

“AVEZ-VOUS EU UNE CONTRAVENTION POUR EXCES DE VITESSE 
"H = OUI." 

"I = NON." 

2,"HI" 

M4 4+REVENU+++" 

"GAGNEZ-VOUS PLUS DE 300.000 FRANCS PAR AN?" 

"G = OUI." 

"I = NON." 

2,"GI" 

M4+#E TUDE S++#+" 

"J = SI VOUS AVEZ PASSE LE BACCALAUREAT." 

"L = SI VOUS AVEZ EFFECTUE DES ETUDES SUPERIEURES." 
"I = AUCUN DIPLOME." 

3, "LI" 

M+++AGE +++" 

“AVEZ-VOUS 65 ANS ET TRAVAILLEZ-VOUS TOUJOURS?" 

"L = OUI." 

"I = NON" 

2,"LI" 

M4+#HEREDITE +++" 

"K = SI L'UN DE VOS GRAND-PARENTS A ATTEINT L'AGE DE 85 ANS." 

"O = SI VOS QUATRE GRAND-PARENTS ONT ATTEINT L'AGE DE 80 ANS." 

"I = AUCUN GRAND-PARENT QUALIFIE PRECEDEMMENT." 

3,"KOI" 

MEST-CE QU'UN DE VOS PARENT EST MURT D'UNE ATTAQUE D'APOPLEXIE OÙ CARDIAQUE" 
“AVANT SES 50 ANS?" 

"E = OUI." 

“I = NON." 

2,"E1" 

“'#+4MALADIES HEREDITAIRES+++" 

MEST-CE QU'UN PARENT ,UN FRERE ,OU UNE SOEUR DE MOINS DE SU ANS A (OU À EU)" 
“UN CANCER,DES PROBLEMES CARDIAQUES OÙ DU DIABETE DEPUIS SON ENFANCE?" 

"M = mn 

“1 = NN 

2,"MI" 

M444+SANTE++4+" 

"COMBIEN FUMEZ-VOUS ?" 














DANS L'ANNÉE ECOULEE?" 


SI VOUS HABITEZ DANS UNE ZUNE URBAINE D'UNE POPULATION DE PLUS DE 2 MILLIONS." 
SI VOUS HABITEZ DANS UNE VILLE DE MUINS DE 10.000 HABITANTS OU DANS UNE FERME." 
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DATA "A = SI VOUS FUMEZ PLUS DE DEUX PAQUETS PAR JOUR." 
DATA "C = DE UN A DEUX PAQUETS PAR JOUR." 

DATA "M = D'UN DEMI A UN PAQUET PAR JOUR." 

DATA " I = NE FUME PAS." 

DATA 4,"ACHI" 

DATA "44401 SSON+++" 

VATA "BUVEZ-VOUS L'EQUIVALENT D'UN" 

LATA MQUART DE BOUTEILLE LE BUISSON ALCOULISEE PAK JUUR?" 
DATA "H = OUI" 

DATA " I = NON" 

DATA 2,"HI" 

LATA "+++PUIDS+++" 

DATA "A : SI VOUS AVEZ UN CMBONPOINT DE 25 KILUS OU PLUS." 
DATA "E = DE 15 À 25 KILOS." 

DATA "G = DE 5 À 15 KILOS." 

DATA " I = PAS D'EMBONPOINT." 

DATA 4,"ALGI" 

DATA "#44E XAMENS MED ICAUX+++" 

DATA "PASSEZ-VOUS,SI VOUS ETES UN HUMME LE PLUS LE 4U ANS,UN EXAMEN MEDICAL ANN 
DATA "K = OUI." COMPLI 
LATA " I = NUN,OU PAS UN HOMME DE PLUS DE 4U ANS." 

VATA 2,"KI" 

DATA "ALLEZ-VOUS,SI VOUS ETES UNE FEMME, VOIR UN GYNECOLUGUE UNE FUIS PAIR AN?" 
LATA "K = OUI." 

DATA "I = NON,OU PAS UNE FEMME." 

LATA 2,"KI" 

DATA !'#+4+AGE +++!" 

DATA "K = SI VOUS AVEZ ENTRE 3U LT 4U ANS." 

UATA "L = LNIRE 40 ET SU ANS." 

DATA "F = ENTRE 50 ET 7U ANS." 

DATA "N = PLUS DE 7U ANS ." 

VATA " I = MUINS DE 30 ANS." 

DATA 5,"KLFNI" 

FOR Q=1 T0 7 

READ u$ 

IF LEFT$(Q$,1)=" " THEN 1750 

PRINT " ",0$ 

NEXT Q 

PRINT " ";0$ 

READ C,C$ 

PRINT "CHOISISSEZ UNE DES LETTRES CI-DESSUS"; 

INPUT C$ 

FUR C2=1 10 C 


IF LEFI$(G$,1)=2MID$(C$,C2,1) THEN 1830 

NEXT C2 

GOTO 1770 

PRINT 

FOR N=1 TU 15 

IF LEFT$(G$,1)=MIDS(AS$,N,1) THEN 1870 

NEXT N 

H=N-9 

2=2 

GUTO 510 

PRINT "VOUS POUVEZ ESPERER VIVRE JUSQU'A L'AGE DE ";23"ANS." 
IF Z<6U THEN 1980 

FOR Y=6U TU Z STEP 5 

READ M$,F$ 

NEXT Y 

VATA 268" ,"159", "362", 208", "48%", 30", "GLE", "39%" 

DATA "75%","53%",87%", "70%", "96%", "BB%", "99,9%" ,199, 6%" 
PRINT MEN SURVIVANT À ";M$;"DES HOMMES ET ";F$;"DES FEMMES." 
INPUT "VOULEZ-VOUS UNE AUTRE ESTIMATION" ;RESP$ 

IF LEFT$(RESP$,1)="0" THEN RESTORE:GOTO 270 ELSE END 





Lissajous 





Ce programme dessine des courbes de 
Lissajous. Vous entrez les fréquences 
relatives à X et Y, et la phase de Y, 
multiple de pi. Ces fréquences doivent 
être choisies supérieures ou égales à un. 
La phase est un nombre positif au choix. 

Nous avons fait des essais dans un 
large domaine de fréquences et phases, 
et avons obtenu des modèles d'une 
beauté saisissante. Certains sont simples, 
alors que d'autres sont étonnamment 
complexes. Lorsque les fréquences 
dépassent les valeurs 9 ou 10, les 
courbes deviennent un enchevêtrement 
difficile à déchiffrer, en particulier si elles 
sont dessinées sur une imprimante 
courante. Néanmoins, le résultat est 
amusant. 

Ce programme a été écrit pour la 
première fois par Larry Ruane, et souvent 
modifié par la suite. Il est paru dans 
Creative Computing en sept.-oct. 1977. 


RUN 
LISSAJOUS 
CREATIVE COMPUTING 
MORRISTOWN NEW JERSEY 


FREQUENCE RELATIVE POUR X? 3 
FREQUENCE RELATIVE POUR Y? 6 
PHASE DE Y, MULTIPLE DE PI? O 
ASSUREZ VOUS QUE L'IMPRIMANTE MARCHE. TAPEZ 
“RETURN' QUAND VOUS ETES PRET. 


* 


Ok 





RUN 


LISSAJOUS 
CREATIVE COMPUTING 
MORRISTOWN NEW JERSEY 


FREQUENCE RELATIVE POUR X? 2 
FREQUENCE RELATIVE POUR Y? 3 
PHASE DE Y, MULTIPLE DE PI? O 
ASSUREZ VOUS QUE L'IMPRIMANTE MARCHE. TAPEZ 
"RETURN' QUAND VOUS ETES PRET. 
* 


* * * * 
* * * * 
* * * * 

* * * * 

* * * * 
* * * * 
* * * * 

* * * * 

* * 

* * * * 

* * * * 

* * * * 

* * * * 
* * * * 

* * * * 
* * * * 
* * * * 
* * * 
* * * * 
* * * * 

* * * * 

* * * * 
* * * * 
* * * * 

* * * * 

* * * * 

* * 

* * * * 

* * * * 

* * * * 
* * * * 

* * * * 
* * * * 
* * * * 

* * * * 

* * 


Ok 


RUN 
LISSAJOUS 
CREATIVE COMPUTING 
MORRISTOWN NEW JERSEY 


FREQUENCE RELATIVE POUR X? 5 
FREQUENCE RELATIVE POUR Y? 7 
PHASE DE Y, MULTIPLE DE PI? O 
ASSUREZ VOUS QUE L'IMPRIMANTE MARCHE. TAPEZ 
"RETURN' QUAND VOUS ETES PRET. 
* 


* * * 
* * * 
* * * 
* * * 
* * * 
* * * 
CE ** 
* * * 
* * * 
* * * 
* * * 
* * * 
* * * 
* * 
* * * 
* * * 
* * * 
* * 
* * * 
* * * 
CRE] * 
* * 
* * 
* * * 
* * * 
* * * 
* * * 
* * * 
* “+ 
* * * 
* * * 
* * * 
* * * 
** * * 
* * * 
* * 
Ok 
RUN 
LISSAJOUS 


CREATIVE COMPUTING 
MORRISTOWN NEW JERSEY 


FREQUENCE RELATIVE POUR X? 1 

FREQUENCE RELATIVE POUR Y? 1L 

PHASE DE Y, MULTIPLE DE PI? .5 

ASSUREZ VOUS QUE L'IMPRIMANTE MARCHE. TAPEZ 


"RETURN' QUAND VOUS ETES PRET. 
* 


* * 


Ok 


ns 


RE LE SE 
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19 PRINT CHRS (26) ; TAB (22) ; "“LISSAJOUS" 

29 PRINT TAB(18);"CREATIVE COMPUTING" 

30 PRINT TAB(16) ;"MORRISTOWN NEW JERSEY" 
40 PRINT: PRINT: PRINT 

50 DIM Y(10) 


119 
129 
122 
125 
130 
132 
135 
136 
137 
148 
158 
169 
162 
165 
178 
189 
198 
200 
219 
220 
230 
249 
250 
260 
270 
289 
298 
300 
310 
1899 


1960 REM: 


1978 
1980 
1999 
20008 
2818 
2828 
2930 
2848 


P=3.14159264 

PRINT “ FREQUENCE RELATIVE POUR X";:INPUT Fl:IF INT(Fl) < F1 THEN 129 
IF F1 < 1 THEN 129 

F=Fl:F1=2*P*Fl 

PRINT * FREQUENCE RELATIVE POUR Y";:INPUT F2:1IF INT(F2) < F2 THEN 139 
IF F2 < 1 THEN 139 

PRINT * PHASE DE Y, MULTIPLE DE Pl";:INPUT P2:P2=P#*P2 
PRINT:LINE INPUT "ASSUREZ VOUS QUE L'IMPRIMANTE MARCHE. TAPEZ" 
PRINT “ "RETURN' QUAND VOUS ETES PRET. ";XX$ 

F2=2*P*F2 

FOR X1=-18 TO 18 

X=X1/18:GOSUB 1970:T1=X:T2=P-X 

FOR 1=ÿ TO F-1 

T3=(T1+2*1*P)/F1:T4=(T2+2*I*P)/F1 

Y1=30*SIN (F2*T3+P2) : Y2=30*SIN (F2*T4+P2) 

Y1=SGN (Y1) *INT (ABS (Y1)+.5) : Y2=SGN (Y2) *INT (ABS (Y2)+.5) 
Y(2*1)=Y1:Y(2*1+1)=Y2 

NEXT I 

FOR J=1 TO 2*F-]1:1=J-1:T=Y(J) 

IF T >= Y(1) THEN 249 

Y(I#1)=Y(I1):1=1-1:1F 1 >=0 THEN 229 

Y(I+1)=T:NEXT J 

FOR I=9 TO 2*F-] 

IF 1=0 THEN 289 

IF Y(I)=Y(I-1) THEN 299 

LPRINT TAB(36+Y(1));"*"; 

NEXT I 

LPRINT 

NEXT X1 

END 





IF ABS(X) < .1 THEN 2929 
X=X/ (SQR (1+X) +SQR (1-X) ) 
GOSUB 1979 

X=2*X 

RETURN 
X=X+X73/6+.075%X"5+x"7/22.4 
RETURN 

END 


Magic Square 





(Carré magique) 


Nous connaissons tous des exemples 
de carrés magiques. Le plus commun est 
le carré 3 par 3, complété par les entiers 
de 1 à 9, de telle sorte que la somme de 
chaque ligne, colonne, diagonale vaille 
quinze. 

Dans la version informatisée de « Carré 
Magique », le but est d'obtenir un carré à 
15. Les deux joueurs, vous et l'ordinateur, 
complètent chacun leur tour les cases 
inoccupées. Lorsque l'un de vous deux 
fait un faux pas et complète une ligne par 
un nombre tel que la somme soit diffé- 
rente de quinze, il perd. 

Pour construire un carré magique à 
quinze, il n'existe qu'une solution fonda- 
mentale. Cependant, par des symétries et 
des rotations, elle engendre huit solutions 
possibles. Mais ces huit solutions ne 
peuvent être obtenues parce que l'ordina- 
teur ne pratique aucune variante de son 
jeu. Alors, combien sont possibles ? 

Pouvez-vous modifier le programme 
pour obtenir un jeu plus intéressant qui 
accepte les huit solutions ? (suggestion : 
essayez de donner un caractère aléatoire 
au déplacement et aux générateurs de 
nombres aux lignes 400 et 410). 

David Ahl a créé ce programme qui est 
paru pour la première fois dans Creative 
Computing, janv.-févr. 1975. 


RUN 


CARRE MAGIQUE 
CREATIVE COMPUTING MORRISTOWN NEW JERSEY 


LES JOUEURS CHOISISSENT ALTERNATIVEMENT UN ENTIER (1 À 9) 
QUI N'A PAS DEJA FETE UTILISE ET LE PLACENT 

DANS UNE CASE LIBRE D'UN TABLEAU 9X9. 

LE BUT EST DE RENDRE LA SOMME DE CHAQUE LIGNE,COLONNE, 

ET DIAGONALE EGALE A 15. 


LE JOUEUR QUI PERN EST LE PREMIER QUI REND LA SOMME 
DE N'IMPORTE QUELLE LIGNE, COLONNE,OU DIAGONALE 
DIFFERENTE DE 15. 

UN MATCH NUL DESSINE UN CARRE MAGIQUEI 1! 

L'ORDINATEUR VOUS DEMANDERA À CHAQUE TOUR QUELLE 

CASE VOUS VOULEZ OCCUPER,ET LE NOMBRE QUE VOUS VOULEZ 
TAPEZ ‘3,7' SI VOUS VOULEZ METTRE UN 7 DANS LA CASE 3. 


VOILA LES NUMEROS DE CASE: 


123 
456 
789 
QUE JOUEZ VOUS ? --- CASE ET NOMBRE? 1,1 
1 0 [e) 
[eo] [e) 0 
0 (9) Le) 


n 


JE REMPLIS LA CASE 2 AVEC UN 


1 2 0 
0 (o) (eo) 
0 (e) Lo) 
QUE JOUEZ VOUS ? --- CASE ET NOMBRE? 5,9 
1 2 [e) 
0 9 0 
0 (o) 0 


JE REMPLIS LA CASE 4 AVEC UN 3 


1 2 Le] 
3 9 0 
0 0 0 
QUE JOUEZ VOUS ? --- CASE ET NOMBRE? 3,5 
1 2 5 
3 9 0 
(9) [e) Le) 


DESOLE, VOUS AVEZ PERDU -- BEL ESSAI. 


VOUS REJOUEZ? OUI QUE JOUEZ VOUS ? --- CASE ET NOMBRE? 6,5 


QUE JOUEZ VOUS ? --- CASE ET NOMBRE? 1,1 1 2 0 
3 0 5 
1 0 0 0 0 9 
0 0 0 
0 0 0 JE REMPLIS LA CASE 8 AVEC UN 4 
JE REMPLIS LA CASE 2 AVEC UN 2 1 2 [eo] 
3 Q] 5 
1 2 0 0 4 9 
0 Q) 0 
0 0 0 
QUE JOUEZ VOUS ? --- CASE ET NOMBRE? 5,7 
QUE JOUEZ VOUS ? --- CASE ET NOMBRE? 9,9 1 2 0 
3 7 5 
1 2 0 0 4 9 
0 0 Q 
0 0 9 DESOLE, VOUS AVEZ PERDU -- BEL ESSAI. 
JE REMPLIS LA CASE 4 AVEC UN 3, 
1 2 0) 
3 0 0 
0 0 9 
4 PRINT CHRS (26) 
5 PRINT TAB (28) ;"CARRE MAGIQUE" 480 FOR Q=1 TO 9 
19 PRINT TAB(15);"CREATIVE COMPUTING MORRISTOWN NEW JERSEY" : PRINT 419 IF A(Q)> @ THEN 480 
12 DIM A(9),B(9: 420 FOR R=1 TO 9 
25 PRINT"LES JOUEURS CHOISISSENT ALTERNATIVEMENT UN ENTIER (1 À 9)" 430 IF B(R)>@ THEN 470 
30 PRINT "QUI N'A PAS DEJA ETE UTILISE ET LE PLACENT" 435 A(Q)=R 
35 PRINT"DANS UNE CASE LIBRE D'UN TABLEAU 9X9." 440 GOSUB 800 
49 PRINT"LE BUT EST DE RENDRE LA SOMME DE CHAQUE LIGNE, COLONNE, " 450 IF W=8 THEN 500 
45 PRINT “ET DIAGONALE EGALE À 15." 460 Q1=Q:R1=R:W=9: A (Q)=0 
47 PRINT 470 NEXT R 
59 PRINT"LE JOUEUR QUI PERD EST LE PREMIER QUI REND LA SOMME" 489 NEXT Q 
55 PRINT"DE N'IMPORTE QUELLE LIGNE,COLONNE,OU DIAGONALE" 499 W=1:R=R1 :Q=Q1:A (Q)=R 
68 PRINT "DIFFERENTE DE 15." 588 B(R)=1 
62 PRINT 528 PRINT "JE REMPLIS LA CASE";Q; "AVEC UN";R 
65 PRINT “UN MATCH NUL DESSINE UN CARRE MAGIQUE! !" 530 GOSUB 968 
67 PRINT 548 IF W=9 THEN 193 
70 PRINT “L'ORDINATEUR VOUS DEMANDERA À CHAQUE TOUR QUELLE" 558 PRINT "J'AI PERDU — VOUS AVEZ GAGNEI 1" 
75 PRINT "CASE VOUS VOULEZ OCCUPER,ET LE NOMBRE QUE VOUS VOULEZ" 568 PRINT 
88 PRINT "TAPEZ ‘3,7' SI VOUS VOULEZ METTRE UN 7 DANS LA CASE 3." 561 FŒR 1=1 TO 15 
85 PRINT 562 PRINT CHRS (7); 
99 PRINT “VOILA LES NUMEROS DE CASE:" 564 NEXT I 
92 PRINT 578 INPUT "VOUS REJOUEZ" ; ANSS 
93 PRINT "1 2 3" 572 IF LEFTS (ANS$S,1)="O" THEN 96 ELSE END 
94 PRINT "4 5 6" 809 FOR X=1 TO 8 
95 PRINT "7 8 9" 819 ON X GOTO 820,830,840,850,860,870,880,899 
96 FOR I = 1 TO 9 820 J=1:K=2:L=3:GOTO 909 
97 A(1)=0 839 K=4:L=7:GOTO 909 
98 B(1)=0 849 K=5:L=9:GOTO 908 
99 NEXT I 859 J=4:L=6:GOTO 989 
190 M=0:W=9 869 J=2:L=8:GOTO 909 
193 PRINT 870 J=3:L=7:GOTO 909 
194 PRINT "QUE JOUEZ VOUS ? —— CASE ET NOMBRE"; 880 J=7:L=9:GOTO 900 
195 INPUT I,N 899 J=7:K=8 
119 IF I<l OR I > 9 OR N < 1 OR N > 9 THEN 139 989 IF A(J)=8 OR A(K)=8 OR A(L)=0 THEN 939 
120 IF A(I)=0 AND B(N)=0 THEN 159 920 IF A(J)+A(K)+A(L) © 15 THEN 949 
139 PRINT "JEU INTERDIT ... RECOMMENCEZ" 930 NEXT X 
135 GOTO 193 935 GOTO 958 
159 A(I)=N:B (N)=1:M=M+1 ; 949 W=1 
178 GOSUB 969 958 RETURN 
180 GOSUB 809 968 PRINT 
209 IF W=8 THEN 239 965 PRINT A(1),A(2),A(3) 
218 PRINT "DESOLE, VOUS AVEZ PERDU — BEL ESSAI." 979 PRINT A(4) ,A(5) ,A(6) 
211 GOTO 568 975 PRINT A(7),A(8) ,A(9) 
230 IF M < 5 THEN 499 988 PRINT 
249 PRINT "MATCH NUL — MAIS NOUS AVONS TRACE UN CARRE MAGIQUE!" 998 RETURN 
256 GOTO 569 999 END 
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Man-Eating Rabbit 
(Le lapin mangeur d'homme) 





Dans ce jeu vous êtes dans un trou 
circulaire en compagnie d'un lapin 
mangeur d'homme. Le centre du trou, 
suffisamment grand, se trouve aux coor- 
données 0,0 et le rayon est de 10. A 
chaque coup, vous pouvez avancer dans 
l'une des huit directions suivantes 
données par les angles 0, 45, 90, 135... 
etc. Au contraire de vous, le lapin peut 
sauter plusieurs fois à chaque coup. Le 
but du jeu est d'éviter le lapin pendant dix 
coups. Si vous y arrivez, vous serez 
relâché et laissé libre. 

Nous ne savons pas exactement quelle 
race de gens et sur quelle planète a été 
rêvé ce sport diabolique, mais nous avons 
remarqué qu'il est extrêmement difficile 
d'échapper au lapin pendant plus de dix 


coups. Vous pouvez donc essayer de voir LE LAPIN MANGEUR D'HOMME 
sites CREATIVE COMPUTING 
vos chances en limitant à un ou deux le MORRISTOWN, NEW JERSEY 


nombre de mouvements que le lapin peut 
effectuer à chaque tour. Vous trouverez 


es inté : VOUS ETES DANS UN TROU CIRCULAIRE EN COMPAGNIE D'UN LAPIN 
peut-être intéressant de dessiner les MANGEUR D'HOMME.LE CENTRE SE TROUVE AUX COORDONNEES 0,0 ET LE 
résultats du jeu au fur et à mesure de son RAYON VAUT 10.SI VOUS POUVEZ EVITER LE LAPIN PENDANT 10 COUPS 
À VOUS SEREZ RELACHE.VOUS,AU CONTRAIRE DU LAPIN,NE POUVEZ VOUS 
déroulement. Pour cela, vous aurez DEPLACER QUE D'UN CARREAU À LA FOIS.MAIS LE LAPIN PEUT FAIRE 
besoin d'une feuille de papier quadrillé RE te 
d'au moins vingt et un carreaux de large VOUS POUVEZ ALLER DANS LES DIRECTIONS SUIVANTES (ANGLES): 


dans chaque direction. Dessinez un cercle ro De or Ste 


à l’aide d'un compas, de dix carreaux de Ne donS etes De 3 


rayon et ensuite indicez les axes X et Y de LE LAPIN SE TROUVE AUX COORDONNEES (-5 ,-4 ) À LA DISTANCE 9.8995 
moins dix unités à plus dix unités. Tracez COUP # 1 VOUS ETES AUX COORDONNEES( 2 , 3 ) 
les coups au fur et à mesure et vous DANS QUELLE DIRECTION VOULEZ-VOUS ALLER (ANGLE) ? 45 
A à SE DEPLACANT ...... HOMME, VOUS ETES MAINTENANT AUX COORDONNEES ( 3 , 4 ) 
verrez se développer quelques modèles LE LAPIN SE PRECIPITE DANS LA DIRECTION.... 45 
inté LE LAPIN SE PRECIPITE DANS LA DIRECTION.... 45 
intéressants. pue | LE LAPIN SE PRECIPITE DANS LA DIRECTION.... 45 
Ce programme a été conçu et écrit par LE LAPIN SE TROUVE AUX COORDONNEES (-2 ,-l ) À LA DISTANCE 7.07107 
Philip Stanway. COUP # 2 VOUS ETES AUX COORDONNEES( 3 , 4 ) 
DANS QUELLE DIRECTION VOULEZ-VOUS ALLER (ANGLE) ? 135 
SE DEPLACANT ...... HOMME, VOUS ETES MAINTENANT AUX COORDONNEES ( 2 , 5 ) 
LE LAPIN SE PRECIPITE DANS LA DIRECTION.... 45 
LE LAPIN SE PRECIPITE DANS LA DIRECTION.... 45 
LE LAPIN SE PRECIPITE DANS LA DIRECTION.... 45 


LE LAPIN SE TROUVE AUX COORDONNEES ( 1 , 2 ) À LA DISTANCE 3.16228 


COUP # 3 VOUS ETES AUX COORDONNEES( 2 , 5 }) 

DANS QUELLE DIRECTION VOULEZ-VOUS ALLER (ANGLE) ? 135 

SE DEPLACANT ...... HOMME, VOUS ETES MAINTENANT AUX COORDONNEES ( 1 , 6 ) 

LE LAPIN SE PRECIPITE DANS LA DIRECTION....LE LAPIN SE TROUVE AUX COORDONNEES 
1 , 2 )} À LA DISTANCE 4 


COUP # 4 VOUS ETES AUX COORDONNEES( 1 , 6 ) 

DANS QUELLE DIRECTION VOULEZ-VOUS ALLER (ANGLE) ? 180 

SE DEPLACANT ...... HOMME, VOUS ETES MAINTENANT AUX COORDONNEES ( O , 6 ) 
LE LAPIN SE PRECIPITE DANS LA DIRECTION.... 90 

LE LAPIN SE TROUVE AUX COORDONNEES ( 1 , 3 ) À LA DISTANCE 3.16228 


COUP # 5 VOUS ETES AUX COORDONNEES( O0 , 6 ) 

DANS QUELLE DIRECTION VOULEZ-VOUS ALLER (ANGLE) ? 180 

SE DEPLACANT ...... HOMME ,VOUS ETES MAINTENANT AUX COORDONNEES (-1 , 6 ) 
LE LAPIN SE PRECIPITE DANS LA DIRECTION.... 135 

LE LAPIN SE TROUVE AUX COORDONNEES ( O , 4 ) A LA DISTANCE 2.23607 


COUP # 6 VOUS ETES AUX COORDONNEES (-1 
DANS QUELLE DIRECTION VOULEZ-VOUS ALLER (ANGLE) ? 225 


SE DEPLACANT ...... HOMME ,VOUS ETES MAINTENANT AUX COORDONNEES (-2 , 5 ) 
LE LAPIN SE PRECIPITE DANS LA DIRECTION.... 135 
LE LAPIN SE PRECIPITE DANS LA DIRECTION.... 180 


LE LAPIN SE TROUVE AUX COORDONNEES (-2 , 5 ) A LA DISTANCE O 
*#** CROUNCH *** EH BIEN,PAIX À VOTRE AME 


A NOUVEAU? NON 
Ok 
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LP 
2P 
3 P 
4 P 


RINT CHR$(26);TAB(20);"LE LAPIN MANGEUR D'HOMME" 

RINT TAB(20);"CREATIVE COMPUTING" 

RINT TAB(18);"MORRISTOWN, NEW JERSEY" 

RINT:PRINT:PRINT 

PRINT "VOUS ETES DANS UN TROU CIRCULAIRE EN COMPAGNIE D'UN LAPIN" 
PRINT "MANGEUR D'HOMME.LE CENTRE SE TROUVE AUX COORDONNEES 0,0 ET LE" 
PRINT "RAYON VAUT 10.51 VOUS POUVEZ EVITER LE LAPIN PENDANT 10 COUPS" 
PRINT VOUS SEREZ RELACHE.VOUS,AU CONTRAIRE DU LAPIN,NE POUVEZ VOUS" 
PRINT "DÉPLACER QUE D'UN CARREAU A LA FOIS.MAIS LE LAPIN PEUT FAIRE" 
PRINT "DES BONDS MULTIPLES.":PRINT 

PRINT "VOUS POUVEZ ALLER DANS LES DIRECTIONS SUIVANTES (ANGLES):" 
PRINT "0,45,90,135,180,225,270,315,360" 

X=INT(21*RND(1)-10) 

Y2=INT(21#RND(1)-10) 

D=SQR(ABS((X-X1)"2#+(Y-Y1)72)) 

IF D>10 THEN 40 

PRINT 

PRINT 

PRINT "OU VOULEZ-VOUS ETRE DEPOSE "; 

INPUT X1,Y1 

IF SQR(ABS(X1"2+Y1"2))>10 THEN 50 

IF XCX1 THEN 70 

IF Y@Y1 THEN 70 

PRINT M##### QUI SH eee 
PRINT "LE LAPIN EST MORT! 
FOR G=1 TO 10 
D=SQR(ABS((X-X1)*2+(Y-Y1)"2)) 

PRINT "LE LAPIN SE TROUVE AUX COORDONNEES ("3X3","3Y3;") A LA DISTANCE";D 
IF D=0 THEN 330 
PRINT:PRINT "COUP £";G3" 


VOUS ETES LIBRE!":GOTO 340 


VOUS ETES AUX COORDONNEES (";X1;","3;Y1;")" 


100 PRINT "DANS QUELLE DIRECTION VOULEZ-VOUS ALLER (ANGLE) "; 


101 


INPUT A 


110 IF A/4SC>INT(A/45) THEN 100 


111 


PRINT "SE DEPLACANT ......";:Pl21 


112 M=l:IF ABS((INT(A/10)*10)-A)<5 THEN 120 
113 M=SQR(2) 
120 X2=(M*COS(A*(3.14159/180))) 


121 


Y2=(M*SIN(A*(3.14159/180))) 


125 IF SQR(((X1+X2)"2#(Y14Y2)72))<=10 THEN 130 
126 PRINT "VOUS NE POUVEZ PAS TRAVERSER UN MUR! !" 
127 GOTO 100 

130 X1=INT(X1#1000 )/1000+X2 
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131 


320 
321 
322 
323 
330 
340 
350 


Y1=INT(Y1#1000 )/10004Y2 

XI=INT(X14.5) 

YIZINT(YI+.5) 

PRINT "HOMME, VOUS ETES MAINTENANT AUX COORDONNEES (";X15","3;v1;")" 
IF XOX1 THEN 140 

IF YOY1 THEN 140 

PRINT "VOUS ALLEZ DROIT SUR LE LAPIN !1" 
GOTO 330 

PRINT "LE LAPIN SE PRECIPITE DANS LA DIRECTION...."3;:P1=Pl+l 
X2=X1-X:Y22Y1-Y 

IF X2=0 THEN 280 

IF Y2=0 THEN 300 
B=INT(ATN(ABS((Y2/X2)))/(3.14159/180)) 
ON SGN(X2)+2 GOTO 190,10,180 

ON SGN(Y2)+2 GOTO 240,10,250 

ON SGN(Y2)+2 GOTO 230,10,220 
8=180-B:G0T0 250 

B=8+180:GO0T0 180 

8=360-B 

B=INT(B/45+.5)#45:PRINT B 

M=] 

IF ABS((INT(B/10)*10)-B)<>5 THEN 260 
M=1.5 

X2=(M#C0S(B*(3.14159/180))) 
Y2=(M#SIN(B#(3.14159/180))) 

X=INT(X4X 24.5) 

Y=INT(Y+Y2+.5) 

GOTO 315 

IF Y2€0 THEN 290 

8=90:G0T0 315 

8=270:G010 250 

IF X2<0 THEN 310 

8=1:G0T0 250 

8=180:G010 250 

IF SQR((X-X1)°2+(Y-Y1)72)20 THEN 323 
P=INT(P1#RND(X)+1) 

IF POIL THEN 323 

GOTO 140 

NEXT G:PRINT:PRINT "VOUS ETES DELIVRE!":PRINT:GOTO 340 
PRINT:PRINT "### CROUNCH *#** EH BIEN,PAIX A VOTRE AME":PRINT 
INPUT "A NOUVEAU" ;ANS$ 

IF LEFTS(ANS$,1)= THEN 40 ELSE END 








Maneuvers (Manœuvres) 





j POUR TRANSMETTRE UN MESSAGE À L'AIDE DE VOTRE RADIO SUBSPATIALE, 

Dans ce jeu, vous évoluez dans un VOUS DEVEZ ETRE À MOINS D'UN PARSEC DE CHAQUE BASE.VOTRE 
espace de forme cubique, ce qui le rend SYSTEME DE PROPULSION FONCTIONNE CONSTAMMENT, VOUS COMMU- 
i ‘arê ï NIQUANT UNE ACCELERATION DE 0.2 PARSECS PAR DATESPACE AU CARRE. 
intéressant. L'arête du cube mesure dix VOUS NE POUVEZ QUE CONTROLER L'ORIENTATION DE VOTRE NAVIRE, 
parsecs. Les bases sont situées dans les POUR DIRIGER LA POUSSEE ET L'ACCELERATION. VOUS PRECISEREZ 

: ST : LA POSITION DE VOTRE VAISSEAU AVEC L'ANGLE THETA (L'ANGLE 
coins, comme l'indique le diagramme du SUIVANT LES AIGUILLES D'UNE MONTRE, DANS LE PLAN X-Y,ORIENTE 
isti , : SUIVANT L'AXE DES X) ET L'ANGLE PSI (L'ANGLE D'INCLINAISON 
listing d exemple. Quatre bases, représen PAR RAPPORT AU PLAN X-Y). VOUS ENTREZ DE NOUVEAUX ANGLES 
tées par des étoiles, sont sitdées aux À CHAQUE DATESPACE. 


quatre coins du cube. Vous devez les 
joindre dans l'ordre suivant : A, B, C, D 





pour leur communiquer un message. Bien SAOULES Re ee Net te LORS 
qu'il soit relativement simple de vous  ------ ss nee 
0 0.000 0.000 0.000 ? 0,0 
rendre à la base À, les autres bases sont 1 0.100 0.000 0.000 ? 0,0 
i iffini , = ihili 2 0.400 0.000 0.000 ? 0,0 
parfois difficiles d'accès. Une possibilité ES 0 CO000 re 5:00 
serait d'utiliser un autre ordinateur pour du 00 20e grgo 7 00 
A , Ê 2.500 . , 
calculer votre route, ou même d'estimer 6 3.600 0.000 0.000 ? 0.0 
i i 7 4.900 0.000 0.000 ? 180,0 
voire trajectoire avant que vous ne 8 6.200 0.000 0.000 ? 180,0 
commenciez le jeu, et que vous ne l'utili- 9 7.300 0.000 0.000 ? 180,0 
ï i i ï 10 8.200 0.000 0.000 ? 180,0 
siez pour le jeu. Serait ce tricher ? Je ne 11, 79 S000 7 (0 000 5000 ? 180.0 
pense pas car le fait d'écrire un programme de 0004000. 6000 
, ; 
et de l'entrer dans un ordinateur a une À TEMPS 12.28 ? 180,0 
i i 13 9.700 0.000 0.000 ? 180,0 
valeur éducative bien plus grande que 1  rn00 J9t000 200 8000 
celle que vous pourriez acquérir au cours 15 9.800 0.000 0.100 ? 90,90 
H , , , 16 9.800 0.000 0.400 ? 0,90 
de cinquante tentatives de jeu. D'autre 17 9.800 0,000 5300 3 90,45 
part, qu'y a-t-il de plus amusant ? C'est à 18 9.800 0.071 1.571 ? 90,0 
19 9.800 0.312 2.312 2? 90,0 
vous de le trouver. 20 9.800 0.754 3.054 ? 90,270 
21 9.800 1.295 3.695 ? 90,270 
Ce programme est de John C. Russ. Sn 2 0 “és HE 10 
23 9.800 2.378 4.378 ? 90,0 
24 9.800 3.019 4.519 ? 90,0 
25 9.800 3.861 4.661 ? 90,0 
26 9.800 4.902 4.802 ? 270,0 
27 9.800 5.944 4.944 ? 270,0 
28 9.800 6.785 5.085 ? 270,0 
RUN 29 9.800 7.426 5.226 ? 270,0 
30 9.800 7.868 5.368 ? 270,0 
MANOEUVRES 31 9.800 8.109 5.509 ? 270,0 
CREATIVE COMPUTING 32 9.800 8.151 5.651 ? 90,90 
MORRISTOWN, NEW JERSEY 33 9.800 8.092 5.892 ? 90,90 
34 9.800 8.034 6.333 ? 90,270 
35 9.800 7.975 6.775 ? 90,270 
36 9.800 7.916 7.016 ? 90,270 
VOULEZ VOUS DES INSTRUCTIONS? OUI 37 9.800 7.858 7.058 ? 90,90 
38 9.800 7.799 7.099 ? 90,90 
VOUS ETES LE PILOTE DE LA NAVETTE SPACIALE DE L'ENTERPRISE. 39 9.800 7.741 7.341 ? 90,90 
VOUS DEVEZ DELIVRER UN MESSAGE A CHACUNE DES 4 BASES, 40 9.800 7.682 7.782 ? 90,90 
DANS LE MINIMUM DE TEMPS. VOTRE POSITION INITIALE EST 41 9.800 7.623 8.423 ? 90,270 
UN DES COIN D'UN CUBE DE 10 PARSECS DE COTE. LES BASES 42 9.800 7.565 9.065 ? 90,270 
SONT DANS LES COINS MONTRES CI-DESSOUS,NOTES A,B,C ET D 43 9.800 7.506 9.506 ? 90,270 
DANS L'ORDRE DANS LEQUEL VOUS DEVEZ LES VISITER. 44 9.800 7.448 9.748 ? 90,270 
45 9.800 7.389 9.789 ? 90,0 
46 9.800 7.431 9.731 ? 90,90 
ENTREZ ‘RETURN' POUR CONTINUER. 47 9.800 7.572 9.772 2? 90,270 
48 9.800 7.713 9.813 ? 90,270 
Zz 49 9.800 7.855 9.655 ? 90,0 
3 50 9.800 8.096 9.396 ? 90,90 
: 51 9.800 8.438 9.238 2? 90,0 
tnt * D 52 9.800 8.879 9.179 ? 90,90 
/3 /3 53 9.800 9.421 9.220 
3 3 MESSAGE DELIVRE À LA BASE # 2 
Les VE A TEMPS 53.74 ? 90,270 
/ 3 / : 54 9.800 9.962 9.262 ? 90,0 
Re *B : 55 9.800 10.603 9.203 ? 225,0 
3 3 : : 56 9.729 11.274 9.145 ? 45,0 
: 3 : : 57 9,659 11.945 9.086 ? 270,0 
3 : 3 3 58 9.659 12.586 9.028 ? 270,0 
: D 3 3 59 9.659 13.028 8.969 ? 270,90 
Ê 2 : : 60 9.659 13.369 9.010 ? 270,90 
3 3 3 3 61 9.659 13.710 9.252 ? 270,270 
DEPART> >> #2 at 62 9.658 14.052 9.493 ? 270,270 
3 / 8 63 9.658 14.393 9.535 ? 270,270 
a 64 9.658 14.735 9.376 ? 270,90 
: / 65 9.658 15.076 9.217 ? 270,0 
A:/ 66 9.658 15.318 9.159 ? 276,0 
ES 67 9.669 15.359 9.100 ? 270,0 
/ 68 9.690 15.202 9.042 ? 245,0 
x 69 9.668 14.854 8.983 ? 250,0 
ENTREZ "RETURN' POUR CONTINUER. 70 9.571 14.321 8.925 ? 270,0 


MESSAGE 
A TEMPS 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 


9.439 13.594 8.866 
9.264 12.677 8.807 
9.030 11.571 8.749 
8.757 10.268 8.690 
8.460 8.869 8.732 
8.100 7.392 8.873 
7.581 5.805 9.015 
6.882 4.234 9.156 
6.096 2.812 9.297 
5.310 1.591 9.439 
4.524 0.569 9.580 
3.738 -.252 9.722 
2.952 -.873 9.863 
2.236 -1.324 10.004 
1.663 -1.633 10.146 
1.230 -1.801 10.287 
0.939 -1.828 10.429 
0.790 -1.713 10.570 
0.781 -1.456 10.712 
0.915 -1.058 10.853 
1.189 -.519 10.994 
1.535 0.091 11.036 
1.880 0.701 10.877 
2.126 1.311 10.619 
2.171 1.921 10.360 
2.046 2.460 10.102 
1.832 2.830 9.843 
1.601 3.002 9.584 
1.371 2.973 9.326 
1.098 2.754 9.067 
0.782 2.445 8.909 
0.467 2.135 8.950 
0.178 1.729 9.091 
-.044 1.135 9.233 
-.173 0.365 9.374 
DELIVRE À LA BASE # 3 

105.48 

-.252 -.393 9.516 
-.305 -.953 9.657 
-.314 -1.319 9.799 
-.290 -1.488 9.940 
-.230 -1.459 10.081 
-.153 -1.233 10.223 
-.076 -.806 10.364 
0.001 -.179 10.506 
0.078 0.648 10.647 
0.129 1.671 10.789 
0.154 2.791 10.830 
0.179 3.911 10.671 
0.189 5.129 10.413 
0.167 6.348 10.154 
0.130 7.468 9.996 
0.092 8.488 9.937 
0.055 9.408 9.978 


MESSAGE DELIVRE À LA BASE # 4 


A TEMPS 122.58 


D'AMELIORER VOTRE TEMPS? NON 


Ok 


S PRINT CHRS (26) 
19 PRINT TAB (24) ; “MANOEUVRES" 
11 PRINT TAB(28) ; "CREATIVE COMPUTING" 

12 PRINT TAB(18);"MORRISTOWN, NEW JERSEY"* 


13 PRINT:PRINT: PRINT 


29 PRINT "VOULEZ VOUS DES INSTRUCTIONS" ; 
30 INPUT X$ 


40 IF LEFTS(X$,1)="N" THEN 509 


196 PRINT 


245,0 
260,0 
257,0 
245,90 
230,0 
200,0 
150,0 
90,0 
90,0 
90,0 
90,0 
90,0 
45,0 
45,0 
45,0 
45,0 
45,0 
45,0 
45,0 
45,0 
200,270 
180,270 
180,0 
180,0 
225,0 
260,0 
270,0 
270,0 
245,0 
260,90 
270,90 
285,0 
295,0 
300,0 


CREER RE EN EE EN EN EN ENENENENENENEUEN REC ENENECEUECECSCECSCECR SUR 


90,0 
75,0 
80,0 
80,0 
80,0 
90,0 
90,0 
90,0 
90,0 
105,0 
103,270 
101,270 
99,0 
261,0 
270,90 
270,0 
260,90 


D NI 9 ND I D 9 9 UV JU UV 


BON TRAVAIL. VOULEZ VOUS ESSAYER 


119 PRINT "VOUS ETES LE PILOTE DE LA NAVETTE SPATIALE DE L'ENTR&PRISE. * 
"VOUS DEVEZ DELIVRER UN MESSAGE À CHACUNE DES 4 BASES, * 
"DANS LE MINIMUM DE TEMPS. VOTRE POSITION INITIALE EST * 

"UN DES COINS D'UN CUBE DE 19 PARSECS DE COTE. LES BASES" 
“SONT DANS LES COINS MONTRES CI-DESSOUS, NOTES A,B,C ET D * 
169 PRINT "DANS L'ORDRE DANS LEQUEL VOUS DEVEZ LES VISITER." 


120 PRINT 
130 PRINT 
148 PRINT 
158 PRINT 


165 PRINT: 


166 GOSUB 


PRINT 
12000 
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170 
180 
198 
200 
210 
228 
230 
240 
250 
260 
270 
275 
280 
285 
290 
300 
310 
320 
330 
346 
350 
368 
370 
372 
380 
390 
400 
419 
420 
430 
440 
450 
469 
470 
475 
500 
505 
519 
520 
530 
548 
550 
560 
570 
580 
599 
600 
619 
620 
630 
648 
650 
660 
670 
680 
700 
719 
720 
730 
740 
800 


806 
810 
820 
830 
840 
859 
869 
870 
880 
890 
900 
918 
920 
930 
940 
958 
960 
970 
98e 
985 
998 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
GOSUB 19000 
PRINT "POUR TRANSMETTRE UN MESSAGE À L'AIDE DE VOTRE RADIO SUBSPATIALE, * 
PRINT "VOUS DEVEZ ETRE À MOINS D'UN PARSEC DE CHAQUE BASE. VOTRE" 
PRINT "SYSTEME DE PROPULSION FONCTIONNE CONSTAMMENT ; VOUS COMMU—" 
PRINT "NIQUANT UNE ACCELERATION DE 8.2 PARSECS PAR DATESPACE AU CARRE." 
PRINT "VOUS NE POUVEZ QUE CONTKOLER L'ORIENTATION DE VOTRE NAVIRE, * 
PRINT "POUR DIRIGER LA POUSSEE ET L'ACCELERATION. VOUS PRECISEREZ"* 
PRINT "LA POSITION DE VOTRE VAISSEAU AVEC L'ANGLE THETA (L'ANGLE" 
PRINT "SUIVANT LES AIGUILLES D'UNE MONTRE, DANS LE PLAN X-Y ,ORIENTE" 
PRINT "SUIVANT L'AXE DES X) ET L'ANGLE PSI (L'ANGLE D'INCLINAISON* 
PKINT "PAR RAPPORT AU PLAN X-Y). VOUS ENTREZ DE NOUVEAUX ANGLES" 
PRINT "A CHAQUE DATESPACE. * 
PRINT 
LET P=3.14159/180 
LET J=1 
DIM T(4,3),C(3) 
FOR X=1 TO 4 

FOR Y=1 TO 3 

READ T(X,Y) 

NEXT Y 
NEXT X 
DATA 18,0,0,19,10,10,0,8,10,0,10,18 
LET A=.2 
LET X1=0 
LET Y1=0 
LET Z1=0 
LET V1=ÿ 
LET V2=0 
LET V3=0 
LET TÜ=0 
LET B1=.001 
LET B2=.001 
PRINT “TEMPS COORDONNEES DE POSITION: "; 
PRINT TAB (38) ; "ORIENTATION" 














PRINT "ECOULE x Y Z"; 

PRINT TAB (39) ; "THETA, PS1" 

PRINT " ù 
PRINT USING * #4## +.#tt #.##t +444"; 


TO; INT(1020*X1+.5)/1000; INT(1900*Y1+.5)/1000; INT (1980*Z1+.5)/1000; 
PRINT TAB (38) ; 
FOR K=9 TO 1 STEP .02 
LET C(1)=X+K*V1+A/2*K*K#COS (B2*P) *COS (B1*P) 
LET C(2)=Y+K*V2+A/2*K*K#COS (B2*P) *SIN(B1*P) 
LET C(3)=Z+K*V3+A/2*K*K*SIN (B2*P) 
LET D=8 
FOR L=1 TO 3 
LET D=D+(T(J,L)-C(L))* (T(J,L)-C(L)) 
NEXT L 
1F SQR(D)>1 GOTO 958 
PRINT:PRINT "MESSAGE DELIVRE À LA BASE #";J 
PRINT "A TEMPS"; TO+K;TAB (38) ; 
IF J=4 GOTO 1198 
LET J=J+1 
GOTO 969 
NEXT K 
LET X=X1 
LET Y=Y1 
LET Z=21 
LET TO=TO+1 
INPUT B1,B2 


1930 LET X1=X+V1+A/2#COS (B2*P) *COS (B1*P) 

1049 LET Y1=Y+V2+A/2*COS (B2*P) *SIN(B1*P) 

1958 LET Z1=Z+V3+A/2*SIN(B2*P) 

1969 LET V1=V1+A*COS (B2*P) *COS (B1*P) 

1978 LET V2=V2+A#COS (B2*P) *SIN(B1*P) 

1988 LET V3=V3+A*SIN(B2*P) 

1998 GOTO 888 

1108 PRINT “BON TRAVAIL. VOULEZ VOUS ESSAYER" 
1119 PRINT "D'AMELIORER VOTRE TEMPS"; 

1128 INPUT X$ 

1130 IF LEFTS(X$,1)="O" THEN 508 

1149 END 

19099 LINE INPUT "ENTREZ 'RETURN' POUR CONTINUER. ";XX$ 
19019 PRINT CHRS (26) 

19028 RETURN 


Mastermind” 





L'invention originale du Mastermind est due à un mathéma- 
ticien amateur Mordechai Meirovich qui le présenta pour la 
première fois à la foire aux jeux de Nuremberg en 1971 *. Les 
droits du jeu furent achetés par Invicta qui eut un succès 
modéré pendant deux ans et demi jusqu'à la saison de Noël 
1975 où il devint le jeu de société le plus populaire. Les ventes 
ont même dépassé le très connu Monopoly. 

Dans sa forme de base, le Mastermind est constitué d’un 
tableau de jeu en plastique, d’une douzaine ou plus de fiches 
de six couleurs de base et de deux groupes de fiches noires et 
blanches (appelées quelquefois « fiches de déduction »). Le 
jeu ressemble au schéma suivant : 


fiche de 
déduction 





<— combinaison 


coups du joueur actif 
(total de 10 dispositions) 


Le jeu se joue à deux, que nous pouvons désigner comme 
les joueurs « actif » et « passif ». La première étape avant le 
jeu lui-même est le choix par le joueur passif (dans notre cas 
l'ordinateur) de quatre fiches prises au hasard parmi les six 
couleurs permises (il est, bien sûr, autorisé à prendre deux 
fois la même). Il cache ensuite ces couleurs au joueur actif en 
les mettant dans la partie « combinaison cachée » du tableau 
de jeu. Le rôle du joueur actif est maintenant de déterminer en 
dix coups ou moins la couleur et la place de chaque fiche de la 
combinaison. 

Afin d'aider le joueur actif, le joueur passif doit après 
chaque essai donner un certain nombre de renseignements 
grâce aux fiches de déduction de la manière suivante : pour 


* Note de l'éditeur : Pour les familiers des jeux pour enfants, il est clair que le 
Mastermind est une adaptation commerciale (utilisant des couleurs plutôt que 
des chiffres) du jeu « Bœufs et Vaches ». Ce jeu, bien plus populaire en 
Angleterre qu'aux Etats-Unis, n'est pas, à ma connaissance, commercialisé. 
DHA. 
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chaque fiche de l'essai en cours qui correspond exactement 
(par sa couleur et sa position) à l’une des fiches de la 
combinaison cachée, la personne doit placer une fiche noire 
juste à côté de l'essai du joueur actif. L'endroit où il met la 
fiche dans le carré prévu à cet effet n’est pas corrélé avec la 
position de la bonne fiche du code caché. De fait, lorsque 
quatre fiches noires sont obtenues la combinaison est 
découverte. 

En second, le joueur passif doit placer une fiche blanche 
pour chaque fiche de l’essai en cours qui correspond par sa 
couleur (mais pas sa position) à l’une des fiches de la 
combinaison cachée. Ne pas oublier que chaque fiche de 
l'essai ne peut avoir qu'une fiche de déduction correspon- 
dante. Par exemple, supposons que la combinaison cachée 
soit : 


R B J V 


correspondant à rouge, bleu, jaune, vert et l'essai en cours du 
joueur actif soit : 


V BB P 


correspondant à vert, bleu, bleu, pourpre. 

Le joueur passif doit de ce fait attribuer une fiche noire et 
une blanche pour les raisons suivantes : la fiche bleue en 
deuxième position de l'essai correspond parfaitement par sa 
couleur et sa position à celle de la combinaison cachée. De 
plus, la fiche verte en première position correspond par sa 
couleur à la quatrième de la combinaison. Mais comme la 
position de la fiche verte n'est pas bonne, seulement une 
fiche blanche sera attribuée. Les fiches bleue et pourpre, en 
positions 3 et 4 respectivement, de l'essai ne correspondent 
pas à celles de la combinaison cachée (positions 1 et 3) et de 
ce fait, aucune autre fiche de déduction n'est attribuée. 

Le jeu continue de cette façon jusqu'à ce que la 
combinaison soit découverte ou que les dix coups aient été 
utilisés. Comme on l’a vu précédemment, l'ordinateur joue le 
joueur passif en générant une combinaison cachée et en 
attribuant les fiches de déduction blanches et noires après 
chaque essai. 

Le programme vous offre deux options: SORTIE et 
TABLEAU, qui peuvent être tapées n'importe quand après le 
premier coup. SORTIE signifie au programme que vous en 
avez assez de jouer au Mastermind et que vous voulez vous 
arrêter là. TABLEAU demande au programme d'écrire un 
résumé des coups antérieurs comprenant les essais et les 
fiches de déductions correspondantes. Certains joueurs 
trouveront qu'un arrangement des combinaisons tel celui 
fourni par TABLEAU, permet une meilleure vision du jeu et 
une analyse conséquente. Les débutants le trouveront très 
utile. 

Le programme et sa description ont été écrits par David G. 
Struble de l’Université de Dayton. Il est paru pour la première 
fois dans Creative Computing en mars-avril 1976. 


RUN 
MASTERMIND 
CREATIVE COMPUTING 
MORRISTOWN, NEW JERSEY 


LE JEU DE MASTERMIND 


CODES DES COULEURS : 
R=ROUGE O=ORANGE Y=JAUNE 
G=VERT B=BLEU P=POURPRE 


ESSAI NUMERO 1 ? RRGG 
2 FICHE(S) NOIRE(S) 
O FICHE(S) BLANCHE(S) 


ESSAI NUMERO 2 ? RRBB 
2 FICHE(S) NOIRE(S) 
O FICHE(S) BLANCHE(S) 


ESSAI NUMERO 3 ? RROO 
3 FICHE(S) NOIRE(S) 
O0 FICHE(S) RLANCHE(S) 


ESSAI NUMERO 4 ? RRRB 
3 FICHE(S) NOIRE(S) 
O FICHE(S) BLANCHE(S) 


ESSAI NUMERO 5 ? RROY 
2 FICHE(S) NOIRE(S) 
1 FICHE(S) BLANCHE(S) 


ESSAI NUMERO 6 ? RRRO 
VOUS AVEZ GAGNEII 


VOULEZ-VOUS REJOUER? NON 


Ok 


10 PRINT CHR$(26) ; TAB(24 ) ; "MASTERMIND" 
20 PRINT TAB(20);"CREATIVE COMPUTING" 

30 PRINT TAB(18);"MORRISTOWN, NEW JERSEY" 
40 PRINT:PRINT:PRINT 

100 PRINT " LE JEU DE MASTERMIND" 


110 PRINT 

130 PRINT "CODE DES COULEURS :" 

140 PRINT " R=ROUGE O=0RANGE Y=JAUNE " 
150 PRINT " G=VERT B=BLEU P=POURPRE " 
160 PRINT 

170 DIM 8$(10),Y(10),Z(10) 

180 C(0)=4 


190 FOR N=1 T0 4 

200 C(N)=INT(6*RND(1)+1) 
210 NEXT N 

220 FOUR N=1 T0 4 

230 X=C(N) 

240 GUSUB 730 

250 C(N)=X 

260 NEXT N 

270 P$="" 

273 FUR X1=1 10 4 

275 P$=P$+CHR$(C(X1) ) 

277 NEXT X1 

280 FOR P=1 TU 10 

290 PRINT 

300 PRINT "ESSAI NUMERO" ;P; 
310 INPUT G$ 

320 IF G$= "TABLEAU" THEN 910 
330 IF G$="SORTIE" THEN 440 
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340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
480 
490 
500 
510 
520 
525 
525 
530 
540 
550 
560 
970 
580 
590 
éu0 
éuz 
605 
610 
620 
630 
640 
650 
120 
670 
680 
690 
700 
7IU 
720 
730 
74Ù 
750 
76Ù 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
960 
970 
990 


B$(P)=6$ 

GOSUB 520 

IF B=4 THEN 1010 

GOSUB 600 

PRINT B;"FICHE(S) NOIRE(S)" 
Y(P)=8 

PRINT W;"FICHE(S) BLANCHE(S)" 
Z(P)=W 

NEXT P 

PRINT "DESOLE, VOUS AVEZ PERDU." 
PRINT "LA COMBINAISON CORRECTE ETAIT: ";P$ 
PRINT:PRINT "VOULEZ-VOUS REJUUER"; 
INPUT A$ 

IF LEFI$(A$,1)="0" THEN 190 
PRINT 

END 

REM CALCUL DU NOMBRE DE FICHES NOIRES 
FUR X1=1 T0 4 
G(X1)=ASC(MID$(G$,X1,1)) 

NEXT X1 

u=0 

FÜR K=1 10 4 

IF G(K) ©> C(K) THEN 570 

B=B+1 

NEXT K 

RETURN 

REM CALCUL DU NOMBRE LE FICHES BLANCHES 
FOR X1=1 10 4 
R(X1)=ASC(MID$(P$,X1,1)) 

NEXT X1 

W=0 

FOR I=1 10 4 

FÜR J=1 10 4 

IF G(1) © R(J) THEN 680 

W=W+l 

R(2)=0 

GOTO 690 

NEXT J 

NEXT I 

W=W-B 

KE TURN 


REM CHANGEMENT DES CODES DE COULEURS EN CODES DE CHIFFRES 


IF X © 1 THEN 760 

X289 

RETURN 

IF X © 2 THEN 790 

x282 

RE TURN 

IF X © 3 THEN 820 

X260 

RETURN 

IF X © 4 THEN 85Ù 

X279 

RETURN 

IF X © 5 THEN 880 

X=71 

RETURN 

X=66 

RETURN 

REM IMPRIMER LE RESUME DU TABLEAU 
V=P-] 

PRINT "ESSAI", "NOIRE S", "BLANCHE S" 
PRINT min mou " 
FOR 121 10 V 

PRINT B$(1)," M"3;Y(1)," ";Z(1) 
NEXT I 


1000 GOTO 290 

1010 PRINT "VOUS AVEZ GAGNE!!" 
1020 GOTO 450 

9999 END 


Masterbagels 


C'est un jeu logique de déduction tout à 
fait fascinant. Il réunit le Mastermind, 
« Bagels », « Bulls and Cow », etc. en un 
jeu de déduction très général. Si vous 
voulez jouer à «Bagels », entrez les 
données N,3,9 (N est le nombre de parties 
que vous désirez jouer). Si vous voulez 
jouer au Mastermind, entrez N,4,6. La 





plupart des jeux que ce programme 5 PRINT CHR$(26);TAB(23) ;"MASTERMIND" 
6 PRINT TAB(20);"CREATIVE COMPUTING" 
propose sont totalement nouveaux, 7 PRINT TAB(18);"MORRISTOWN, NEW JERSEY" 
comme N,7,4 ou N,3,5. 10 DIM F(9),M(9),T(9),H(18,3) 
Pour en faire un jeu vraiment très 20 1PUT SINSIRUCTIONS SES 
général, vous pouvez désirer faire une DD AE PTS RENE EN 1) 
modification dans la procédure de sélec- 50 PRINT " VOICI UN JEU DE LOGIQUE POUR HEsUREn NOTE CAPAQRTE te 
j F j 60 PRINT "DEDUCTION. JE VAIS CHOISIR UN NOMBRE AU HASAI VOUS ALLEZ" 
tion des chiffres (lignes 300-320) dt Fe 70 PRINT "LE DECOUVRIR. VOUS PROPOSEZ UN NOMBRE POSSIBLE, ET JE VOUS" 
80 PRINT "DONNE ALORS LE NOMBRE DE CHIFFRES BIEN PLACES ET LE NOMBRE" 
paramètre al autorise ou interdit les 90 PRINT "DE CHIFFRES MAL PLACES. SI JE PENSE QUE VOUS ETES PERDU ," 
chiffres identiques. Comme nous vous le 100 PRINT "JE VOUS DONNERAI LA BONNE REPONSE ET NOUS ESSAYERONS" 
i 110 PRINT "AVEC UN AUTRE NOMBRE. POUR RECAPITULER VOS PROPOSITIONS" 
P'ObOSONS; C6. BFOSTAMME autorise les 120 PRINT "ENTREZ UN 0, POUR AVOIR LA REPONSE UN 1,ET POUR FINIR UN 2." 
chiffres identiques. Il pourrait donc choisir 130 5=0 
À i 140 PRINT 
223 ou même 444 comme re ere 150 PRINT "COMBIEN DE PARTIES (1-100), CHIFFRES (2-6), VALEUR MAX (2-9)"; 
i ( ir i 160 INPUT J,A,B 
ip He 
; 190 IF A>6 THEN 220 
i è j = 200 IF B<2 THEN 220 
donne le nombre maximum d'essais auto a 
risés pour trouver une réponse. Vous 220 PRINT "ILLEGAL, ENTREZ DE NOUVEAUX PARAMETRES." 
pouvez trouver que vous n'avez pas ZE De O0 Th 204 
, : - 2 = 
assez d'essais, et vous devez alors aug | PA SO 
menter la valeur de |. 270 I=RND(1) 
Até 280 NEXT X 
Masterbagels a été créé par HR. TO NL TGS 
Hamilton et est paru la première fois dans 300 FOR KO OA 
Creative Computing, janv.-févr. 1977. 320 NEXTX ù 


330 FOR I1=1 TO A+B+1 
340 FOR X=1 TO A 


350 F(X)=0 

MASTERMIND 360 NEXT X 
CREATIVE COMPUTING 370 F1=0 
MORRISTOWN, NEW JERSEY 380 F2=0 


390 INPUT "DEVINEZ";V 
400 IF V<> O THEN 450 


INSTRUCTIONS? OUI 410 FOR X=1 TO I-1 
420 PRINT H(X,1)","H(X,2)"="H(X,3) 
VOICI UN JEU DE LOGIQUE POUR MESURER VOTRE CAPACITE DE 430 NEXT X 
DEDUCTION. JE VAIS CHOISIR UN NOMBRE AU HASARD ET VOUS ALLEZ 440 GOTO 390 
LE DECOUVRIR. VOUS PROPOSEZ UN NOMBRE POSSIBLE, ET JE VOUS 450 IF V=1 THEN 750 
DONNE ALORS LE NOMBRE DE CHIFFRES BIEN PLACES ET LE NOMBRE 460 IF V=2 THEN 920 
DE CHIFFRES MAL PLACES. SI JE PENSE QUE VOUS ETES PERDUS, 470 T1=V 
JE VOUS DONNERAIS LA BONNE REPONSE ET NOUS ESSAYERONS 480 FOR X=1 TO À 
AVEC UN AUTRE NOMBRE. POUR RECAPITULER VOS PROPOSITIONS 490 M(X)=INT(T1/(10"(A-X))) 
ENTREZ UN O, POUR AVOIR LA REPONSE UN 1,ET POUR FINIR UN 2. 500 T1=T1-M(X)#(10" (A-X))+((SGN(A-(X+1))-1)#-.5) 
510 IF M(X)<1 THEN 530 
COMBIEN DE PARTIES (1-100), CHIFFRES (2-6), VALEUR MAX (2-9)? 2,2,4 520 IF M(X)<B+1 THEN 550 
DEVINEZ? 12 530 PRINT "MAUVAIS CHIFFRE EN"V;CHR$(8);"." 
0 , 1 540 GOTO 340 
DEVINEZ? 31 550 IF M(X)©T(X) THEN 580 
2 ESSAIS, 2 EN MOYENNE EN 1 PARTIE. 560 F(X)=1 
DEVINEZ? 24 570 F1=F1+1 
1, 0 580 NEXT X 
DEVINEZ? 32 590 1F F1=A THEN 810 
1,0 600 FOR Y=1 TO A 
DEVINEZ? 22 610 IF T(Y)=M(Y) THEN 690 
0 , 0 620 FOR X=1 TO À 
DEVINEZ? 12 630 IF M(Y)©T(X) THEN 680 
0 , 0 640 IF F(X)=1 THEN 680 
DEVINEZ? 34 650 F(X)=1 
5 ESSAIS, 3.5 EN MOYENNE EN 2 PARTIES. 660 F2=F2+1 
670 GOTO 690 
ENCORE UN FOIS? OUI 680 NEXT X 
690 NEXT Y 
COMBIEN DE PARTIES (1-100), CHIFFRES (2-6), VALEUR MAX (2-9)? 1,4,6 700 PRINT F1","F2 
DEVINEZ? 1122 710 H(1,1)=F1 
T0 720 H(1,2)=F2 
DEVINEZ? 1345 730 H(1,3)=V 
1,2 740 NEXT I 
DEVINEZ? 1436 750 I=A-14+B+1 
0 , 3 760 V=0 
DEVINEZ? 4632 770 FOR X=1 TO A 
0 ,2 780 V=V+T(X)#(10"(A-X)) 
DEVINEZ? 4436 790 NEXT X 
01-52 800 PRINT "LA REPONSE EST"V;CHR$(8)3"." 
DEVINEZ? 4362 810 S=S+1 
EE 820 PRINT I;"ESSAIS,"3S/N3"EN MOYENNE EN "3N3: 
DEVINEZ? 3162 IF N=1 THEN PRINT "PARTIE." ELSE PRINT "PARTIES." 
3, 0 830 Y=INT(RND(R)#1) 
DEVINEZ? 3142 840 Y=INT(H(Y,2)/1024+4*RND(1)) 
2,0 850 FOR X=1 TO Y+1 
DEVINEZ? 3152 860 I=RND(1) 
2-42 870 NEXT X 
DEVINEZ? 3121 880 NEXT N 
, © 890 PRINT:INPUT "ENCORE UN FOIS"35$ 
DEVINEZ? 2 900 IF LEFT$(S$,1)="0" THEN 130 
Ok 920 END 
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Matpuzzle 





Etes-vous prêt à innover ? À essayer 
un jeu qui ne ressemble ni à Startrek ni à 
Slot Machine ? Alors essayez Matpuzzle 
et goûtez à l’art de fabriquer des puzzles. 

L'intérêt du puzzle est qu'il fait appel au 
sens logique. Dans celui-ci, vous avez 
une matrice de lettres (de dimension 
maximale 6 par 6) et un tableau avec des 
groupes de tirets, chacun surmonté d'un 
nombre. 

La matrice est constituée des lettres 
des mots que vous avez entrés, chaque 
mot ayant la même longueur. Le nombre 
de mots et leur longueur sont limités à six, 
donc vous pouvez jouer avec au plus six 
mots de six lettres chacun. Ces deux 
caractéristiques sont variables et indépen- 
dantes. Les lettres sont ensuite entrées 
sous forme de matrice, et réarrangées de 
façon aléatoire dans les lignes 160 et 430. 

Les groupes de tirets du tableau occu- 
pent chacun la place d'une lettre du mot 
qui est à déchiffrer. Le nombre situé 
au-dessus de chaque groupe de tirets est 
la somme des coordonnées de la lettre 
correspondante à trouver, dans la matrice. 
La difficulté de la recherche vient du fait 
que plusieurs couples de coordonnées 
donnent la même somme. 

Attention ! Puisque la réponse est 
affichée au-dessus du puzzle lui-même, il 
faut la supprimer avant de soumettre le 
problème à un ami. || passera un agréable 
moment à essayer de déchiffrer votre 
puzzle. Vous pourrez ensuite vous: 
relayer, votre ami vous présentant un 
autre puzzle à reconstituer. Les possibi- 
lités sont pratiquement innombrables. 

Le programme et la description sont de 
Dave Schroeder. 


RUN 
MATPUZZLE 
CREATIVE COMPUTING 
MORRISTOWN, NEW JERSEY 


VOICI UN JEU QUI FAIT DES PUZZLES. 
INTRODUISEZ SIX MOTS,DE MOINS DE SIX 
LETTRES CHACUN(OU=6),ET DE MEME LONGUEUR. 
L'ORDINATEUR LES MELANGE ET LES IMPRIME 
SUR UNE MATRICE. L'ORDINATEUR IMPRIME AUSSI 
LE BORD CORRESPONDANT AVEC DES NOMBRES 
QUAND IL S'ARRETE DECHIREZ LE ET DONNEZ LE 
A UN AMI. 


COMBIEN DE MOTS VOULEZ VOUS (INF OU EGAL À 6)? 6 
COMBIEN DE LETTRE DANS CHAQUE MOT(DOIT ETRE PAREIL)? 6 
TAPEZ UN MOT DE 6 LETTRES SUR CHAQUE LIGNE 


? PARITE 

? DUPLEX 

? NOMBRE 

? IMPAIR 

? PAIRES 

? ENTIER 

mms ( DECHIREZ ICI ) ==" 

1 2 3 5 6 

1 1 E PR I A 

2 1 I S P U B 

3 R O R X E R 

4 D A R A L  N 

5 T E N E E P 

6 E P T M I M 
4 7 5 3 9 10 
5 7 11 9 8 7 
10 5 12 8 6 7 
2 10 8 8 1l 9 
6 6 6 4 7 5 
3 8 6 4 9 7 


LE NUMERO AU DESSUS DE CHAQUE TIRET EST LA SOMME DES DEUX 
COORDONNEES DU POINT DE LA MATRICE OU LA LETTRE CORRES- 
PONDANTE EST SITUEE. LE PROBLEME,C'EST QUE LA SOMME DE 
CERTAINES COORDONNEES EST LA MEME,AINSI PLUSIEURS LETTRES 
PEUVENT CONVENIR.ESSAYEZ DE TROUVER QUELS MOTS ONT ETE 
UTILISES,ET AINSI DE RESOUDRE LE PUZZLE. 

-- BONNE CHANCE 


VOULEZ VOUS REJOUER? OUI 


MATPUZZLE 
CREATIVE COMPUTING 
MORRISTOWN, NEW JERSEY 
VOICI UN JEU QUI FAIT DES PUZZLES. 
INTRODUISEZ SIX MOTS,DE MOINS DE SIX 
LETTRES CHACUN(OU=6),ET DE MEME LONGUEUR. 
L'ORDINATEUR LES MELANGE ET LES IMPRIME 
SUR UNE MATRICE. L'ORDINATEUR IMPRIME AUSSI 
LE BORD CORRESPONDANT AVEC DES NOMBRES 
QUAND IL S'ARRETE DECHIREZ LE ET DONNEZ LE 
A UN AMI. 


COMBIEN DE MOTS VOULEZ VOUS (INF OU EGAL A 6)? 4 
COMBIEN DE LETTRE DANS CHAQUE MOT(DOIT ETRE PAREIL)? 5 
TAPEZ UN MOT DE 5 LETTRES SUR CHAQUE LIGNE 

? PRINT 

? BASIC 

? EGALE 

? POINT 
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3 B E N C L 
4 N P I A A 

2 6 4 6 3 
OR AE D À 
RDF PS N'ES 
COR RE D Sr 


LE NUMERO AU DESSUS DE CHAQUE TIRET EST LA SOMME DES DEUX 
COORDONNEES DU POINT DE LA MATRICE OÙ LA LETTRE CORRES- 
PONDANTE EST SITUEE. LE PROBLEME,C'EST QUE LA SOMME DE 
CERTAINES COORDONNEES EST LA MEME,AINSI PLUSIEURS LETTRES 
PEUVENT CONVENIR.ESSAYEZ DE TROUVER QUELS MOTS ONT ETE 
UTILISES,ET AINSI DE RESOUDRE LE PUZZLE. 

-- BONNE CHANCE 


VOULEZ VOUS REJOUER? NON 


Ok 
1 PRINT CHR$(26);TAB(26)"MATPUZZLE" 390 FOR Z22=1 TO W 
2 PRINT TAB(20)"CREATIVE COMPUTING" 400 LPRINT 225" "3 
3 PRINT TAB(18)"MORRISTONN, NEW JERSEY" 410 FOUR Z3z=1 TO L 
4 PRINT:PRINT 420 LPRINT B$(22,23);"  "; 
10 DIM A$(6),B$(6,6),C(6,6),C$(6,6) 430 NEXT 23 
20 PRINT"VOICI UN JEU QUI FAIT DES PUZZLES." 440 LPRINT 
30 PRINT"INTRODUISEZ SIX MOTS,DE MOINS DE SIX" 450 LPRINT 
40 PRINT"LETTRES CHACUN(OU=6),ET DE MEME LONGUEUR." 460 NEXT 22 
50 PRINT'L'ORDINATEUR LES MELANGE ET LES IMPRIME" 470 LPRINT 
60 PRINT"SUR UNE MATRICE. L'ORDINATEUR IMPRIME AUSSI" 480 LPRINT 
70 PRINT'LE BURD CORRESPONDANT AVEC DES NOMBRES" 490 LPRINT 
80 PRINT'QUAND IL S'ARRETE DECHIREZ LE ET DONNEZ LE" SUO FOR Pz=1 TU L 
90 PRINT"A UN AMI." 510 FOR Uz=1 TO W 
95 PRINT 520 1=0 
100 PRINT"'COMBIEN DE MOTS VOULEZ VOUS (IM OU EGAL À 6)"; 530 FUR R=1 TO W 
105 INPUT W 540 FUR Sz=1 TO L 
110 PRINT'COMBIEN DE LETTRE DANS CHAQUE MOT(DOIT ETRE PAREIL)"; 550 IF T=1 THEN 600 
115 INPUT L 560 1F B$(R,S)©C$(Q,P)THEN 600 
120 PRINT'TAPEZ UN MOT DE";L;"LETIRES SUR CHAQUE LIGNE" 570 C(U,P)=R+S 
130 FOR X=1 T0 W 580 T=1 
140 INPUT A$(X) 590 B$(R,S)=" " 
150 NEXT X 600 NEXT S 
160 FOR X=1 T0 W 610 NEXT R 
170 FUR Y=1 TO L 620 NEXT Q 
180 C$(X,Y)=MIDS(AS(X),Y,1):B$(X,Y)=MIDS(AS$(X),Y,1) 630 NEXT P 
190 NEXT Y 64U FOR X=1 TO W 
200 NEXT X 650 LPRINT TAB(3) 
210 PRINT 660 FÜR Mz1 T0 L 
212 LINE INPUT "ASSUREZ VOUS QUE L'IMPRIMANTE FONCTIONNE. TAPEZ " 670 IF C(X,M)>9 THEN 700 
213 LIME INPUT " 'RETURN' QUAND VOUS ETES PRET. ";XX$ 680 LPRINT C(X,M);" Le 
215 FOR P=1 T0 28 690 GOTU 710 
220 LPRINT"-"; 700 LPRINT C(X,M);" "; 
221 MXTP 710 NEXT M 
225 LPRINT TAB(29)"( DECHIREZ ICI )"; 720 LPRINT:LPRINT 
226 FOR Pl=1 TO 27 730 LPRINT TAB(2); 
227 LPRINT TAB(43)"-"; 740 FÜR Ml=1 TO L 
228 NEXT PI 750 LPRINTM=—--2";m 0 
230 LPRINT 760 NEXT M1 
240 FOR Z=1 T0 60 770 LPRINT 
250 F=INT(RAD(1)*#+1) 780 NEXT x 
260 D=INT(RND(1)*W+1) 790 LPRINT CHR$(12) 
270 G=INT(RND(1)*L+1) 800 PRINT 
280 E=INT(RND(1)*L+1) 810 PRINT"LE NUMERO AU DESSUS DE CHAQUE TIRET EST LA SOMME DES DEUX" 
290 34-8$(F,G) 820 PRINT"'COURDONNEES DU POINT DE LA MATRICE OÙ LA LETTRE CORRES-" 
300 B$(F,G)=B$(D,E) 830 PRINT"PONDANTE EST SITUEE. LE PROBLEME,C'EST QUE LA SOMME DE" 
310 B$(D,E)=3$ 840 PRINT'CERTAINES COORDONNEES EST LA MEME, AINSI PLUSIEURS LETTRES" 
320 NEXT Z 850 PRINT"PEUVENT CONVENIR.ESSAYEZ DE TROUVER QUELS MOTS ONT ETE" 
330 LPRINT TAB(4); 853 PRINT"UTILISES,ET AINSI DE RESOUDRE LE PUZZLE." 
340 FOR Z1z=l TO L 855 PRINT"-- BONNE CHANCE" 
350 LPRINT TAB(5);Z1;" "; 860 PRINT:PRINT"VOULEZ VOUS REJOUER"; 
360 NEXT Z1 861 INPUT Y9$ 
370 LPRINT 870 1F LEFT$(09$,1)="0" THEN 100 
380 LPRINT 880 END 
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Maze (Labyrinthe) 


LABYRINTHE 
CREATIVE COMPUTING 
MORRISTOWN, NEW JERSEY 


VOULEZ VOUS DES INSTRUCTIONS? OUI 


CE PROGRAMME SIMULERA UNE SOURIS MYOPE DANS UN 

LABYRINTHE. VOUS SELECTIONNEZ LE FACTEUR DE DIFFICULTE :LA TAILLE! 
VOUS POUVEZ AVOIR UN LABY DE N'IMPORTE QUELLE TAILLE COMPATIBLE 
AVEC VOTRE SYSTEME.LES DIMENSIONS PLUS PETITES QUE 5 SONT TROP 
TRIVIALES. CHAQUE LABY EST DIFFERENT,ET N'A QU'UNE SEULE SORTIE. 





QUELLES SONT VOS DIMENSIONS (HORIZONTALES, VERTICALES)? 10,10 


Ce jeu est composé de deux parties. 
Dans un premier temps, le programme 
engendre un labyrinthe que vous pouvez 
essayer de traverser à l’aide d’un stylo. 
Chaque partie de ce labyrinthe est large $ 
de trois caractères, donc la dimension mms ni fees mnt 5 ti 
horizontale maximale que vous pouvez A PRES NE 
demander sur un terminal standard de 1 I : Z 
72 colonnes est 24. Sur une imprimante | | 
de 132 colonnes, vous pouvez aller A 
jusqu'à 44. Naturellement, la longueur VOULEZ VOUS VOIR CHAQUE ETAPE? NON 
verticale n'est pas limitée en théorie 
puisque le papier se déroule au fur et à 








mesure. Çependant, plus le labyrinthe pans stt iii ini ie 
sera de grande taille, plus l'ordinateur US ES D DE 
aura des problèmes, puisque les dimen- IS Je VOL 7 1 
sions du labyrinthe sont entrées sous HAS ONE LE CT 
forme de matrice. EP NS EN ER 

Dans la seconde partie du programme, à oeminnitts à 5 ect + à 
une souris « myope » est abandonnée RD Te ee 
dans ce labyrinthe. Elle cherche son Ds MT AD ne mure 2e : 
chemin à tâtons. Pour comprendre ce que DOI étttél D OO I 
« myope » signifie, faites exécuter le pro- een NO NE AT ci 
gramme, et demandez à voir le comporte- smmittinss ini nt 5 it 
ment de la souris étape par étape. Sinon, ann est Moi ue à 
vous pouvez demander seulement la Fer : 


solution finale. 

Avec ou sans la souris, ce programme 
est amusant et les labyrinthes de grandes 
dimensions offrent de réelles difficultés. 

Ce programme a été conçu et écrit par VOULEZ VOUS UN AUTRE LABY? OUI 
Richard Schaal. QUELLES SONT VOS DIMENSIONS (HORIZONTALES, VERTICALES)? 6,6 
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=: 3 : Ds th smmgs—3 3 LE TS et de ÉRPLE EE  ET 

I I I  CLLLE 1 I  CLELES I I  CLLLE 1 I 

9 tnt or 5 RE SMNLEES. PS 2 à EX Rs: 5 (+ 

I I EX ‘1 I LARRART I I I LCLLELS I LC: I LXA#ANI LT x + 

mnt ini 5 8 5 Per ei 3 5 0 Bi Ni 5 5 sms hhtinns 5 5 

I I 1 I I Le I LL À TI TAARENAT 9 TT I 

I 1 I I I 1 1 I 1 I 1 

I 1 I I 1 LT 1 1 I 

I 1 I I I LT I I I 

VOULEZ VOUS LA SOLUTION? OUI 

VOULEZ VOUS VOIR CHAQUE ETAPE? OUI NT PR PEN seit rc is NT esse : 
qrres I I grrr I I LIT L I I 

immiNNi--i--i--:--: Shan: it ; Mhz ss : SNNgmz Ses + 

I x 1 I CELLES: T ÆE-T LLLLLS F2 NE FCLLT ES L I 

SORTE APTE QE, Smith ins 5 sms htenes 8 5 3 Dites où 5 0: 

1 I 1 I I I **] AR RR  CLELLES É -1° € LÉLLLLS I IL I 

BSRR ERRE OH CR 3 es is 3 BRNns mis ER 3 

I I Deus E 1 I To +T 1** I I I ze I OR: 

D. Ent emienso iv Hssisz gs + ER 8 5 3 EMNimmgemiees [1 

: I EU I I 1 I ++ I I I pts LL ! A 

HO finies 4% à : RP EE : sNNs==s 4 221 3 gt vis Est 5 

ï I I ï I I I** I I 1 I I I I 

è sr i 3-5 : F8 3 si: si: 
sms ths=pis—3--: sms th gens -3 3 CE Lab et tnt Late Lente 
LIL I I CLIS I I LIL I 1 

mms NNi iii: 3 is 2 a et RS ne D SNYsmms os 1 : 

AAA I I ICLLLLS A ED:  CLLLES T. TT CELLES TT. T 

D'STnn HÉPRs LA 08 El CE D Et Emi N tin 5 5 05 

I 1 I I I  CLLLES I IL I ICLELES Ps À 'ÉLLLLS 1 I I 

RER FETE ON, re 3 13 3-1 in 73 aMtgmns ts ENNsmns is 

1 J 1 I TI I I LT I** I 1 I I** 1 É 1 

î tres dat onnd | : : 1: : : RER ET : : RE EEE ! : 

I I 1: 1 I L- 1 ++ LIT I FCELLELLLS Et 1 

D miss 3 F He. “Se tests Aka Je mnt de née SE : 

I L'I 1 I I I 1 [t*#**I I 1 I LE: ‘T I 

i EE : 3 ss: 8 iii : 
mt : CR EE EE EE EE .—— 
LLIE L 1 res I I LIL I 
Rss 3 COR: NV 38 3 3 SNMEmmt mes 1, 
CTI ET TL UT LILI LI FLLELS EL 
mit ti: & tomshthines + 4 5 mms NNinns + 
PTLIILS: L I I LITE I I I ELLE ES: L OI I 
ghhgens ses sNhsnns ss AE RE ir 
LT I L CA Te I T- «I 1x I I I 
1 'fcsisoiser Æ Patate Ent Loic cmt RON DS à Nine î 
I Év I 157 I I I s et ebcE-D ET EE f 
S = 3 3-1 3 ht $ ss 3 ss **; 3: 
I LT I 1e I I I I 

5 PRINT CHRS (26) 438 GOTO 468 

19 PRINT TAB (27) ; "LABYRINTHE" 440 R=1:S=S+1:GOTO0 469 

29 PRINT TAB (28) ; "CREATIVE COMPUTING" 459 R=R+1 

39 PRINT TAB(18) ; "MORRISTONN, NEW JERSEY"* 460 IF W(R,S)=8 THEN 409 

48 PRINT:PRINT:PRINT 470 IF R=1 THEN 839 

198 REM SOURIS DANS LABYRINTHE - SECTION SOLUTION DE RICHARD SCHAAL FMCC 480 IF W(R-1,S)>0 THEN 839 

119 REM PROGRAMME ORIGINAL LABYRINTHE TIRE DE "191 BASIC COMPUTER GAMES" 499 IF S=1 THEN 649 

128 PRINT "VOULEZ VOUS DES INSTRUCTIONS"; : INPUT A$ 508 IF W(R,S-1)<>0 THEN 649 

130 IF LEFT$S (A$,1)="O" THEN 159 519 IF R=H THEN 550 

149 GOTO 288 528 IF W(R+1,S)>0 THEN 559 

159 PRINT:PRINT:PRINT "CE PROGRAMME SIMULERA UNE SOURIS MYOPE DANS UN* 530 X=INT (RAD (1) *3+1) 

168 PRINT "LABYRINTHE. VOUS SELECTIONNEZ LE FACTEUR DE DIFFICULTE :LA TAILLE!" 549 ON X GOTO 1290,1240,1289 

170 PRINT “VOUS POUVEZ AVOIR UN LABY DE N'IMPORTE QUELLE TAILLE COMPATIBLE" 550 IF SCV THEN 599 

189 PRINT "AVEC VOTRE SYSTEME. LES DIMENSIONS PLUS PETITES QUE 5 SONT TROP" 568 IF Z=1 THEN 629 

199 PRINT "TRIVIALES. CHAQUE LABY EST DIFFERENT,ET N'A QU'UNE SEULE SORTIE." 578 Q=1 

200 PRINT 588 GOTO 698 

219 PRINT "QUELLES SONT VOS DIMENSIONS (HORIZONTALES, VERTICALES)"; 590 IF W(R,S+1)>0 THEN 629 

220 CLEAR 109: REM EFFACER TOUS TABLEAUX ET VALEURS DES VARIABLES 628 X=INT (RND(1)*3+1) 

238 INPUT H,V 618 ON X GOTO 1208,1248,1370 

235 PRINT CHRS (26) 628 X=INT (RND(1)*2+1) 

249 H=INT (ABS (H) ) :V=INT (ABS (V) ) 639 ON X GOTO 1298,1240 

259 IF H>=5 AND V>=5 THEN 270 640 IF R=H THEN 759 

269 GOTO 159 650 IF W(R+1,S)>9 THEN 758 

270 DIM W(H,V) ,V(H,V) 660 IF S<>V THEN 708 

288 PRINT:PRINT 678 IF Z=1 THEN 730 

290 Q=2:z=9 688 Q=1 

300 X=INT (RND (1) *H+1) 699 GOTO 719 

319 FOR 1=1 TO H 700 IF W(R,S+1)>8 THEN 738 

328 IF I=X THEN 359 710 X=INT(RND(1)*3+1) 

339 PRINT ":—"; 728 ON X GOTO 1200,1280,1370 

348 GOTO 369 739 X=INT (RND(1) *2+1) 

350 PRINT ": "; 748 ON X GOTO 1208,1280 

360 NEXT I 750 IF SV THEN 799 

370 PRINT "“:" 768 IF Z=1 THEN 829 

389 C=1:W(X,1)=C:C=C+1:R=X:S=1 778 Q=1 

399 GOTQ 478 789 GOTO 820 

489 IF RCH THEN 458 798 IF W(R,S+1)>8 THEN 829 

410 IF SV THEN 449 808 X=INT (RND(1) *2+1) 

428 R=1:S=1 818 ON X GOTO 1288,1370 
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1728 FOR 1=1 TO H:FOR J=1 TO V 





820 GOTO 1299 1738 W(1,J)=0 

830 IF S=1 THEN 1949 1740 REM ESSAYER HAUT 

849 IF W(R,S-1)>0 THEN 1948 17586 IF J=1 THEN 1789 

859 IF R-H THEN 968 1760 IF V(I,J-1)=1 OR V(1,J-1)=3 THEN W(1,J)=W(1,J)+1 
860 IF W(R+1,S)>0 THEN 969 1770 REM ESSAYER BAS 

870 IF SC>V THEN 919 1780 IF J=V THEN 1810 

880 IF Z=1 THEN 949 1799 IF V(I,J)=1 OR V(I,J)=3 THEN W(I,J)=W(I1,J)+2 

899 Q=1 1809 REM ESSAYER DROITE 

998 GOTO 928 1810 IF I=H THEN 1849 

919 IF W(R,S+1)>0 THEN 940 1829 IF V(1,J)=2 OR V(I,J)=3 THEN W(I,J)=W(I,J)+4 

928 X=INT (RND (1) *3+1) 1830 REM ESSAYER GAUCHE 

939 ON X GOTO 1248,1280,1370 1840 IF 1=1 THEN 1869 

948 X=INT (RND (1) *2+1) 1859 IF V(I-1,J)=2 OR V(I-1,J)=3 THEN W(1,J)=W(1,J)+8 
958 ON X GOTO 1240,1280 1869 NEXT J 

969 IF SV THEN 1909 1870 NEXT I 

978 IF Z=1 THEN 1039 1889 FOR 1=1 TO H 

989 Q=1 1899 IF V(I,V)=1 OR V(I,V)=3 THEN W(I,V)=W(I,V)+2:E=1:GOTO 1929 
999 GOTO 1918 1980 NEXT I 

1900 IF W(R,S+1)>8 THEN 1939 1919 REM DEVOIR DESCENDRE D'ABORD 

1919 X=INT (RND (1) *2+1) 1920 Y=1:x=S 

1920 ON X GOTO 1249,1370 1938 V(X,Y)=V(X,Y)+4 

1939 GOTO 1248 1949 REM RECHERCHER DIRECTIONS POSSIBLES MAINTENANT. . 
1949 IF R=H THEN 1149 1959 IF Y=V AND X=E THEN PRINT:GOSUB 2250: PRINT:PRINT:GOTO 2620 
1950 IF W(R+1,S)>9 THEN 1140 1968 GOSUB 2230 

1960 IF SV THEN 1109 1979 REM RECHERCHER DIRECTIONS POSSIBLES 

1970 IF Z=1 THEN 1130 1980 IF (W(X,Y) AND 2) <> @ THEN 2039 

1980 Q=1 1990 IF (W(X,Y) AND 4) © @ THEN 2080 

1990 GOTO 1119 2800 IF (W(X,Y) AND 8) <> @ THEN 2130 

1190 IF W(R,S+1)>0 THEN 1139 2010 IF (W(X,Y) AND 1) <> @ THEN 2189 

1119 X=INT (RND (1) *2+1) 2620 GOTO 1950 

1129 ON X GOTO 1289,1379 2039 IF (V(X,Y+1)>3) AND ((W(X,Y) AND 13)=) THEN 2069 
1130 GOTO 1289 2040 IF V(X,Y+1)>3 THEN 1990 

1140 IF SOV THEN 1189 2050 Y=Y+1:V(X,Y)=V(X,Y)+4:GOTO 1959 

1150 IF Z=1 THEN 490 2060 V(X,Y)=V(X,Y)-4:W(X,Y)=(W(X,Y) AND 13):Y=Y+1:W(X,Y)=(W(X,Y) AND 14) 
1169 Q=1 2078 GOTO 1958 

1179 GOTO 1190 2080 IF (V(X+1,Y)>3) AND ((W(X,Y) AND 11)=@) THEN 2116 
1188 IF W(R,S+1)>9 THEN 409 2090 IF V(X+1,Y)>3 THEN 2000 

1199 GOTO 1378 2109 X=X+1:V(X,Y)=V(X,Y)+4:GOTO 1950 

1200 W(R-1,S)=C:C=C+1:V(R-1,S)=2:R=R-1 2110 V(X,Y)=V(X,Y)-4:W(X,Y)=(W(X,Y) AND 11):X=X+1L:W(X,Y)=(W(X,Y) AND 7) 
1210 IF C=H#*V+1 THEN 1519 2128 GOTO 1958 

1220 Q=0 2130 IF (V(X-1,Y)>3) AND ((W(X,Y) AND 7)=0) THEN 2160 
1239 GOTO 470 2149 IF V(X-1,Y)>3 THEN 2019 

1240 W(R,S-1)=C:C=C+1:V(R,S-1)=1:S=S-1 2150 X=X-1:V(X,Y)=V(X,Y)+4:GOTO 1950 

1250 IF C=H*V+1 THEN 1510 2169 V(X,Y)=V(X,Y)-4:W(X,Y)=(W(X,Y) AND 7):X=X-l:W(X,Y)=(W(X,Y) AND 11) 
1268 Q=0 2170 GOTO 1958 

1276 GOTO 470 2180 IF (V(X,Y-1)>3) AND ((W(X,Y) AND 14)=0) THEN 2219 
1289 W(R+1,S)=C:C=C+1 2190 IF V(X,Y-1)>3 THEN 1988 

1290 IF V(R,S)=0 THEN 1320 2200 Y=Y-l:V(X,Y)=V(X,Y)+4:GO0TO 1959 

1300 V(R,S)=3 2210 V(X,Y)=V(X,Y)-4:W(X,Y)=(W(X,Y) AND 14):Y=Y-l:W(X,Y)=(W(X,Y) AND 13) 
1319 GOTO 1330 2228 GOTO 1958 

1328 V(R,S)=2 2230 IF LEFTS(AS,1) ©"O" THEN RETURN 

1330 R=R+1 2240 PRINT 

1340 IF C=H#V+1 THEN 1519 2250 FOR I=1 TO H 

1350 Q=0 2260 IF I=S THEN 2290 

1369 GOTO 839 2270 PRINT ":—"; 

1378 IF Q=1 THEN 1470 2288 GOTO 2388 

1389 W(R,S+1)=C 2298 PRINT ":##"; 

1398 C=C+1 2300 NEXT I 

1409 IF V(R,S)=0 THEN 1430 2310 PRINT ":" 

1419 V(R,S)=3 2320 FOR J=1 TO V 

1428 GOTO 1448 2330 PRINT "l"; 

1430 V(R,S)=1 2349 FOR I=1 TO H 

1440 S=S+1 2350 IF V(1,J)>3 THEN Z=V(1,J)-4:GOTO 2376 

1459 IF C=H*V+1 THEN 1510 2368 Z=V(I,J) 

1460 GOTO 479 2370 IF Z<2 THEN 2429 

1470 Z=1 2380 IF ZCV(I,J) AND V(I+l,J)>3 THEN PRINT “#*#*#";:GOTO 2449 
1480 IF V(R,S)=0 THEN 1500 2398 IF Z@V(I,J) THEN PRINT “*#* *;:GOTO 2449 

1499 V(R,S)=3:Q=0:GOTO 490 2408 PRINT" "; 

1590 V(R,S)=1:0=0:R=1:S=1:GOTO 468 2418 GOTO 2448 

1510 IF Z=1 THEN 1549 2428 IF ZOV(I,J) THEN PRINT "#*#1";:GOTO 2448 

1528 R=INT (RND (1) *H)+1:S=V 2436 PRINT " l"; 

1530 V(R,S)=V(R,S)+1 2448 NEXT 1 

1549 GOSUB 2329 2458 PRINT 

1558 PRINT "VOULEZ VOUS LA SOLUTION"; : INPUT AS 2460 FOR I=1 TO H 

1568 IF LEFTS(A$,1)©>"O" THEN 2620 2470 IF V(1,J)>3 THEN Z=V(1,J)-4:GOTO 2499 

1570 PRINT "VOULEZ VOUS VOIR CHAQUE ETAPE"; : INPUT AS: PRINT: PRINT 2489 Z=V(I,J) 

1575 PRINT CHRS (26) 2490 IF Z=0 THEN 2560 

1588 FOR I=1 TO H:IF W(I,1)=1 THEN S=I1:GOTO 1720 2500 IF Z=2 THEN 2560 

1598 NEXT I 2510 IF Z@V(I,J) AND J=V THEN PRINT ":##";:GOTO 2578 
1606 REM NOUS POUVONS MAINTENANT NETTOYER LE TABLEAU W PUISQUE LE POINT 2520 IF J=V THEN 2549 

1601 REM EST TROUVE 2530 IF Z@V(I,J) AND V(I,J+1)>3 THEN PRINT ":##";:GOTO 2579 
1619 REM LES ELEMENTS EN V SONT 8,1,2 OÙ 3 2548 PRINT ": "; 

1629 REM 9 EST FERME SUR LA DROITE ET AU SOMMET 2550 GOTO 2578 

1630 REM 1 EST FERME SUR LA DROITE 2568 PRINT ":—"; 

1649 REM 2 EST FERME AU SOMMET 2578 NEXT I 

1659 REM 3 EST OUVERT SUR LA DROITE ET AU SOMMET 2588 PRINT ":" 

1669 REM LES DIRECTIONS SERONT CODEES: 2599 NEXT J 

1679 REM 1 : HAUT 2608 PRINT: PRINT 

1689 REM 2 : BAS 2618 RETURN 

1698 SEM 4 : DROITE 2628 PRINT:PRINT:PRINT "VOULEZ VOUS UN AUTRE LABY";:INPUT A$ 
1700 REM 8 : GAUCHE 2636 IF LEFTS(AS,1)="O" THEN PRINT : GOTO 218 

1719 REM EXAMINER TABLEAU V POUR DEPLACEMENTS POSSIBLES TOUTES DIRECTIONS 2649 PRINT: END 
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Millionaire (Millionnaire) 





MILLIONNAIRE 


Au cours de ce jeu, l'ordinateur vous CREATIVE COMPUTING 
emmène de votre naissance à votre mort. MORRISTONN:. NEW AFRSEN 
Pendant votre vie, vous aurez à prendre 
des décisions sans importance et d’autres VOICI LE JEU DU MILLIONNAIRE. TOUT CE QUE VOUS AVEZ À FAIRE 

- éci- DE ME DO VOTRE NOM ET DE REPONDRE A QUELQUE QUESTIONS. 
cruciales. Quelques-unes de ces déci LES CHOIX QUE VOUS FAITES DETERMINERONS COMBIEN D'ARGENT 
sions concernent le travail que vous VOUS GAGNEREZ. À L'HEURE DE VOTRE MORT, ON VOUS DIRA 
ji BIE H NT VOUS AVEZ GAGNE PENDANT VOTRE VIE 
voulez faire, la somme que vous ST Vous AVEZ GAGNE PLUS D'UN MILLION DE DOLLARS, VOUS ETES 
dépensez à Monte-Carlo, l'achat d'une MILLIONNAIRE ET VOUS AVEZ GAGNE. VOTRE NOM S.V.P.? JACQUES 
pièce rare, le choix entre des vacances et O.K., JACQUES, UNE NOUVELLE VIE COMMENCE 1 
iè i i , LE 9 AV, 1982, JACQUES EST NE. 

un deuxième travail, la gestion des stocks VOS PARENTS ÉONT TRÈS PAUVRES - LE 12 JUN, 1999, VOUS 
— achats et ventes —, les accidents QUITTEZ LA MAISON AVEC $ 423. 
d'automobile, les cyclones, etc. NON AVES TROUVE UN NOUVEL EMPLOI COMME PROFESSEUR. VOUS GAGNEZ $ 19,909 

A la fin de votre vie (elle passe en un VOUS DEPENSEZ $ 14,790 PAR AN. 
éclair), l'ordinateur compte vos gains et 1 DEC, 2002 
vos pertes et vous dit si vous étiez proche VOUS ALLEZ JOUER À MONTE CARLO. COMBIEN JOUEZ VOUS? 423 
de devenir un millionnaire. En dix parties VOUS AVEZ GAGNE $ 513. 
de ce jeu, la somme la plus importante VOUS POSSEDEZ MAINTENANT $ 936. 

Sté à 26 NOV, 2011 

Aus nas avens eue a été $ 379 000. C'est ON À DEVALISE VOTRE MAISON ,LES DOMAGES S'ELEVENT A$ 10,068. 
peu pour être millionnaire, mais c'est VOUS POSSEDEZ MAINTENANT $ -9,132. 
probablement plus proche de la réalité. TOUS COMPTES FAITS,IL VOUS RESTE$ 36,939. 

Millionnaire a été conçu et écrit par ne M INRA OR UN CYCLONE VIENT DE TOUCHER LA MAISON DE JACQUES 
Craig Gunnett, un rêveur jusqu'au bout. LES DOMMAGES SONT ESTIMES À 5 38,945. 


VOUS POSSEDEZ MAINTENANT $ -2,006. 
TOUS COMPTES FAITS,IL VOUS RESTES 38,946. 


22 FEV, 2025 
VOUS ETES SERIEUSEMENT MALADE. 
VOUS AVEZ UNE ALLERGIE AUX ORDINATEURS. 
LES SOINS VOUS COUTENT $ 1,376. 
VOUS POSSEDEZ MAINTENANT $ 37,570. 
TOUS COMPTES FAITS,IL VOUS RESTES 68,284. 


16 MAI, 2035 
VOUS AVEZ EU UN ACCIDENT DE VOITURE! L'HOPITAL A 
COUTE $ 1,604LES REPARATIONS $ 3,142. 
VOUS POSSEDEZ MAINTENANT $ 63,538. 
TOUS COMPTES FAITS,IL VOUS RESTE$114,728. 


7 SEP, 2042 
VOTRE GRAND PERE VIENT DE MOURIR. (OH!) IL VOUS A 
LAISSE $ 93,009,MAIS L'ENTERREMENT COUTE $ 25,427. 
VOUS POSSEDEZ MAINTENANT $182,310. 
TOUS COMPTES FAITS,IL VOUS RESTES218,143. 


25 JAN, 2047 


# ENTREPRISE PRIX ACTIONS 
1 1BM 158 0 
2 USSs 145 e) 
3 NCR 157 0 
4 TWA 137 0 


ACHETEZ VOUS, VENDEZ VOUS OÙ NON (A,V, OU N)? À 
ENTREPRISE ET QUANTITE? 1,1000 

ACHETEZ VOUS, VENDEZ VOUS OÙ NON (A,V, OÙ N)? À 
ENTREPRISE ET QUANTITE? 4,1000 

ACHETEZ VOUS, VENDEZ VOUS OU NON (A,V, OU N)? V 
ENTREPRISE ET QUANTITE? 1,500 

UN AVION VIENT DE S'ECRASER SUR LA MAISON DE JACQUES. 


LES DOMMAGES SONT ESTIMES À $ 43,945. 
VOUS POSSEDEZ MAINTENANT $8%-121,002. 


# ENTREPRISE PRIX ACTIONS 
1 1BM 139 1000 
2 uss 136 0 

3 NCR 161 0 

4 TWA 126 1000 


ACHETEZ VOUS, VENDEZ VOUS OÙ NON (A,V, OÙ N)? V 


ENTREPRISE ET QUANTITE? 1,1000 
ACHETEZ VOUS, VENDEZ VOUS OU NON (A,V, OÙ N)? V 


ENTREPRISE ET QUANTITE? 4,1000 
ACHETEZ VOUS, VENDEZ VOUS OÙ NON (A,V, OÙ N)? N 


TOUS COMPTES FAITS,IL VOUS RESTES$169,393. 


7 FEV, 2057 
VOUS MOUREZ (SURPRENANT N'EST CE PAS ) À L'AGE 
DE 77. 
VOUS AVIEZ $169,393. 
PAS MAL, JACQUES. 
MERCI D'AVOIR JOUE ‘MILLIONNAIRE', JACQUESIIII 


Ok 
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449 PRINT MIDS (M$,M1-2,3) ;D;CHR$(8);",";Y 

450 IF Y-1988<78 GOTO 588 

468 IF RND(1)>.5 GOTO 508 

47@ PRINT "VOUS MOUREZ (SURPRENANT N'EST CE PAS ) À L'AGE" 


1 PRINT CHRS (26) ; TAB (23) ; "MILLIONNAIRE" 
2 PRINT TAB (20); "CREATIVE COMPUTING" 

3 PRINT TAB(18);"MORRISTOWN, NEW JERSEY"* 
4 PRINT:PRINT: PRINT 


5 FS="S4HE 44" 489 PRINT “DE";Y-1980;CHR$ (8) ;"." 

19 REM  MILLIONNAIRE CREE PAR CRAIG GUNNETT 498 GOTO 2378 

20 PRINT “VOICI LE JEU DU MILLIONNAIRE. TOUT CE QUE VOUS AVEZ À FAIRE" 508 IF M>=0 GOTO 54 

34 PRINT "EST DE ME DONNER VOTRE NOM ET DE REPONDRE À QUELQUES QUESTIONS. " 519 LET I=INT(.07*Y9* (-M)) 

48 PRINT "LES CHOIX QUE VOUS FAITES DETERMINERONT COMBIEN D'ARGENT" 520 LET MM-I 

58 PRINT “VOUS GANEREZ. À L'HEURE DE VOTRE MORT, ON VOUS DIRA" 530 PRINT "LES AGIOS SUR VOTRE DEFICIT SONT DE ";:PRINT USING F$;1;: 
60 PRINT "COMBIEN D'ARGENT VOUS AVEZ GAGNE PENDANT VOTRE VIE" PRINT *. VOUS POSSEDEZ ";:PRINT USING F$;M;:PRINT "." 
70 PRINT "SI VOUS AVEZ GAGNE PLUS D'UN MILLION DE DOLLARS, VOUS ETES" 540  LET Q=INT(13#*RND(1))+1 

88 PRINT “MILLIONNAIRE ET VOUS AVEZ GAGNE. VOTRE NOM S.V.P."; 550 IF Q(Q)=1 GOTO 548 

199 LET O=-]l 568 LET Q(Q)=1 

118 DIM AS (20) ,2$ (1) ,MS (36) ,5 (9) ,0(16) 578 ON Q GOTO 899, 1810, 1100, 1220, 1288, 1430, 1530 
128 FOR I=1 TO 4 588 ON (Q-7) GOTO 1858, 1930, 2069, 2120, 2240, 2289 
130 LET S(1)=159 598 PRINT "VOUS POSSEDEZ MAINTENANT ";:PRINT USING FS;M;:PRINT "." 
148 NEXT 1 600 IF O=-2 GOTO 1538 

158 INPUT A$ 618 IF J=1 GOTO 649 

168 PRINT 629  LET M-M+(E-C) *Y9 

178 PRINT "O.K., ";A$;", UNE NOUVELLE VIE COMMENCE !" 638 PRINT "TOUS COMPTES FAITS,IL VOUS RESTE"; : 

188 LET M$="JANFEVMARAVRMA LJUIJETAOUS EPTOCTNOVDEC * PRINT USING F$;M;:PRINT "." 

198 IF RND(1)>.5 GOTO 228 648 LET Y9=INT(RND(1) *6)+5 

208 PRINT "DANS UNE GROSSE FERME"; 658  LET Y=Y+Y9 

210 GOTO 239 : 669 NEXT J 

220 PRINT “DANS UNE PETITE VILLE"; 670 GOTO 479 

238 LET T=INT(RND(1) *12)+1 688 REM SOUS PROGRAMME :TRAVAIL 

240 PRINT ", EN ";MIDS (M$,3#*T-2,3) ; INT (RND(1) *28)+1;CHRS(8);", 1982,"; 699 PRINT "VOUS AVEZ TROUVE UN NOUVEL EMPLOI COMME "; 

250 PRINT " ";A$;" EST NE." 788 ON INT(RND(1)*5)+1 GOTO 749, 779, 800, 839 

268 PRINT "VOS PARENTS SONT TRES "; 718 PRINT "PROFESSEUR"; 

270 IF RND(1)>.5 GOTO 319 720 LET E=INT (RND(1) *4000)+17080 

289 PRINT "RICHES. "; 730 GOTO 858 

298 LET M=INT (RND(1) *5200)+12000 748 PRINT “AVOCAT"; 

399 GOTO 339 758 LET E=INT (RND(1) *40000!)+80000! 

319 PRINT "PAUVRES. "; 768 GOTO 858 

329 LET M=INT((RND(1)+RND(1))/2*1908) 770 PRINT "INFORMATICIEN"; 

330 LET T=INT (RND(1) *12)+1 788 LET E=INT (RND(1) *5000)+20000 

340 LET Y=1996+INT (RND (1) *18) 798 GOTO 858 

358 PRINT "EN ";MIDS (M$S,T*3-2,3);T#*2;CHRS(8);",";Y;CHRS(8);", VOUS" 809 PRINT "CONDUCTEUR D'AUTOBUS" ; 

369 PRINT "QUITTEZ LA MAISON AVEC ";:PRINT USING F$;M;:PRINT "." 818 LET E=INT (RND(1) *2090)+16900 

378 LET Y=Y+INT (RND(1) #3)+1 828 GOTO 859 

388 GOSUB 689 838 PRINT "JOUEUR DE FOOT"; 

398 FOR J=1 TO 13 840 LET E=INT (RND(1) *100090!)+100000! 

408 IF (J/3)-INT(J/3)+E=0 THEN GOSUB 688 858 LET C=E-10808+INT ( (RND(1)+RND (1) ) *5988) 

419 LET D=INT (28*RND(1) )+1 868 PRINT ". VOUS GAGNEZ ";:PRINT USING F$;E;:PRINT “ PAR AN." 
428 LET Ml=(INT(12#RND(1))+1)#3 870 PRINT "VOUS DEPENSEZ ";:PRINT USING F$;C;:PRINT" PAR AN." 
439 PRINT 888 RETURN 
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899 PRINT “VOUS ALLEZ JOUER À MONTE CARLO. COMBIEN JOUEZ VOUS"; 
988 INPUT S 

918 PRINT 

929 IF S<=ÿ GOTO 1908 

939 IF RND(1)>.7 GOTO 978 

949 LET S2=-INT (RND(1) *S) 

950 PRINT "HA! HA! VOUS AVEZ PERDU ";:PRINT USING F$;-S2;:PRINT "." 
969 GOTO 998 

970 LET S2=INT ( (RND(1)+RND(1))*S) 

989 PRINT "VOUS AVEZ GAGNE ";:PRINT USING F$;S2;:PRINT "." 

999 LET M=M+S2 

1980 GOTO 598 

1918 PRINT "ON VOUS PROPOSE DE VOUS VENDRE UNE PIECE RARE DE $109,080." 
1928 PRINT "EST CE QUE VOUS L'ACHETEZ"; 

1938 INPUT Z$ 

1935 Z$=LEFTS (2$,1) 

1048 PRINT 

1950 LET V7=INT (RND(1) *200000!)+1 

1960 IF Z$<>"O" GOTO 1989 

1970 LET M-M-100000 !+V7 

1989 PRINT "LA PIECE RARE VAUT ";:PRINT USING F$;V7;:PRINT "." 
1998 GOTO 594 ‘ 

1189 PRINT "VOUS ETES SERIEUSEMENT MALADE." 

1119 PRINT "VOUS AVEZ "; 

1128 ON (INT(RND(1)#3)+1) GOTO 1159, 1178 

1130 PRINT "LA DIPHTERIE ASIATIQUE À HYPNOSE PARTIELLE (OH1)."* 
1149 GOTO 1189 


1159 PRINT "UNE ALLERGIE AUX ORDINATEURS. * 
1168 GOTO 1188 
1179 PRINT “UNE ANGINE DE POITRINE CHRONIQUE ET INFECTIEUSE. * 
1188 LET U=INT (RND(1) *1980) +508 
1199 LET M=M-U 
1208 PRINT "LES SOINS VOUS COUTENT ";:PRINT USING F$;U;:PRINT "." 
1219 GOTO 598 
1220 LET F=INT(RND(1)*190000!) 
1238 LET C8=INT(F/2)-INT (RND(1)*(F/2)) 
1248 PRINT "VOTRE GRAND PERE VIENT DE MOURIR. (OH!) IL VOUS A" 
1254 PRINT "LAISSE ";:PRINT USING F$;F;:PRINT “, MAIS L'ENTERREMENT COUTE ";: 
PRINT USING F$;C8;:PRINT "." 
1260 LET M=M-C8#F 
1270 GOTO 599 
1289 IF E-8 GOTO 898 
1298 PRINT "DES NOUVELLES DE VOTRE PATRON: " 
1308 ON (INT(RND(1)*3)+1) GOTO 1358, 1398 
1319 LET L=INT (RND(1) *3008)+1 
1320 LET E=E-L 
1339 PRINT "VOTRE SALAIRE ";:PRINT USING F$;L;: 
PRINT " EST REDUIT. VOUS GAGNEZ MAINTENANT ";:PRINT USING F$;E;:PRINT "." 
1348 GOTO 590 
1350 PRINT "VOUS ETES VIDE ! (HA!)" 











1369 LET E=0 

1370 LET C=INT(C/4) 

1389 GOTO 599 

1390 LET R6=INT (RND(1) *5900)+1 

1490 LET E=E+R6 1978 GOTO 2819 

1410 PRINT "VOUS AVEZ UNE AUGMENTATION DE ";:PRINT USING F$;R6;: 1989 PRINT "UNE CRISE CARDIAQUE"; 
PRINT ". VOUS GAGNEZ MAINTENENT ";:PRINT USING F$;E;:PRINT "." 1990 GOTO 2019 

1420 GOTO 599 2099 PRINT "UNE LEUCEMIE"; 

1430 PRINT "LE MEDECIN VOUS À PRESCRIT DE PRENDRE DES VACANCES.LE FAITES VOUS."; 2818 LET M2=INT (RND(1) *5000)+1009 

1448 INPUT Z$ 2020 LET M=M-M2 

1445 ZS=LEFTS (Z$,1) 2030 PRINT ". LES SOINS COUTENT ";:PRINT USING FS;M2;:PRINT "." 

1450 PRINT 204ñ IF RND(1)<.5 GOTO 479 

1469 LET V=INT (RND (1) *2009)+1900 2058 GOTO 599 

1470 IF Z$="N" GOTO 1589 2068 PRINT "VOUS AVEZ EU UN ACCIDENT DE VOITURE! L'HOPITAL À " 

1489 PRINT "BIEN, CELA VOUS COUTE ";:PRINT USING F$;V;:PRINT "." 2070 LET M3=INT (RND (1) *3000)+1008 

1499 GOTO 1518 2080 LET Q7=INT (RND (1) *5000)+100 

1508 PRINT "VOUS AVEZ FAIT UNE DEPRESSION .LES FRAIS MEDICAUX SONT DE ";: 2098 PRINT "COUTE ";:PRINT USING F$;M3;:PRINT ". LES REPARATIONS ";: 
PRINT USING F$;-V;:PRINT "." PRINT USING F$;Q7;:PRINT "." 

1510 LET M=M-V 2100 LET M=M-M3-Q7 

1520 GOTO 599 2118 GOTO 590 

1538 FOR I=l TO 4 2128 IF E=9 GOTO 1819 

1549  LET S(I)=INT((INT(RND(1) #100)+109+2*S(1))/3) 2130 LET E2=10000+INT (RND (1) *5000) 

1559 NEXT I 2148 PRINT "ON VOUS À OFFERT UN AUTRE TRAVAIL POUR ";: 

1569 PRINT "# ENTREPRISE PRIX ACTIONS" PRINT USING F$;E2;:PRINT “ PAR AN." 

1562 PRINT "-- ts Q 2158 PRINT "VOULEZ VOUS CUMULER"; 

1578 PRINT "1 IBM ":S(1);" "3S(5) 2168 INPUT Z$ 

1588 PRINT "2 uss ":S(2);" ":S(6) 2178 PRINT 

1599 PRINT "3 NCR *;S(3);° ":S(7) 2180 IF LEFTS(Z$,1)="N" THEN 590 

1698 PRINT "4 TWA "3S(4);" ":S(8) 2198 ON INT(RND(1)*3) GOTO 1358, 2229 

1692 PRINT 2200 LET E=E+E2 

1614 IF S(9)=1 GOTO 2418 2210 GOTO 599 

1629 PRINT "ACHETEZ VOUS, VENDEZ VOUS OU NON (A,V, OU N)"; 2220 PRINT "POUR CAUSE DE SURMENAGE VOUS FAITES "; 

1630 INPUT Z$ 2230 GOTO 1988 

1635 ZS=LEFTS (Z$,1) 2249 LET R2=INT (RND(1) *12900) +5000 

1649 PRINT 2259 LET M=M-R2 

1650 IF Z$="V" GOTO 1749 2269 PRINT “ON À DEVALISE VOTRE MAISON ,LES DOMAGES S'ELEVENT A";: 

1669 1F Z$="N" GOTO 1810 PRINT USING F$;R2;:PRINT "." 

1670 PRINT "ENTREPRISE ET QUANTITE"; 2278 GOTO 599 

1689 INPUT 53,5 (2) 2288 IF O=-1 GOTO 1438 

1699 PRINT . 2290 IF RND(1)>.7 GOTO 1439 

1708 LET S(4+53)=S (4+53)+S (8) 2308 LET B4=INT (RND(1) *4) 

1719 LET O=-2 2318 PRINT "LES COURS DE BOURSE S'EFFONDRENT.CHACUNE DE VOS" ;51 ; "ACTIONS" 

1729 LET MM-S (S3) *S (8)-100 2328 PRINT "VAUT ";:PRINT USING F$;B4;: 

1739 GOTO 1628 PRINT *. VOUS DEVEZ TOUT VENDRE" 

1749 PRINT "ENTREPRISE ET QUANTITE"; 2338 PRINT "POUR UN MONTANT DE ";:PRINT USING F$;S1*B4;:PRINT "." 

1750 INPUT S2,S5 2349 LET M=M+S1*B4 

1760 IF RND(1)<.5 GOTO 1889 2350 LET O=-1 

1770 IF S5>S(4+S2) GOTO 1749 2368 GOTO 599 

1780 LET S(4+52)=S (4+52)-S5 2370 PRINT "VOUS AVIEZ ";:PRINT USING F$;M;:PRINT "." 

1790 LET M=M+S (S2) *S5-108 2380 IF O=-1 GOTO 2439 

1888 GOTO 1629 2398 LET S(9)=1 

1819 LET S1=S(5)+S(6)+S(7)+S (8) 2488 GOTO 1538 

1820 IF S1>9 GOTO 619 2418 LET M=M4S(1)#S(5)+S (2) #5 (6)+S (3) *S(7)+S (4) *S (8) 

1830 LET O=-1 2428 PRINT "AVEC VOS BIENS VOUS AVEZ ";:PRINT USING F$;M;:PRINT "." 

1848 GOTO 618 2430 IF MG GOTO 2489 

1850 PRINT "FLASH D'INFORMATION!!! "; 2448 IF M<5999091 GOTO 2519 

1869 PRINT "UN CYCLONE VIENT DE TOUCHER LA MAISON DE ";A$;"." 2458 IF M<1E+#26 GOTO 2530 

1879 GOTO 1899 2468 PRINT A$;" GAGNEI! VOUS ETES UN MILLIONAIRE!!" 

1889 PRINT "UN AVION VIENT DE S'ECRASER SUR LA MAISON DE ";A$;"." 2479 GOTO 2548 

1899 LET D8=INT (RND(1) *529001)+1 2480 PRINT "PAUVRE RATE #$38s'*11! MAINTENANT VOTRE PAUVRE FAMILLE * 

1990 LET M=M-D8 2498 PRINT “DOIT PAYER POUR VOS DETTES. ....eoses " 

1919 PRINT "LES DOMMAGES SONT ESTIMES À ";:PRINT USING F$;D8;:PRINT "." 2588 GOTO 2549 

1928 GOTO 599 2518 PRINT "PAS MAL, ";A$;"." 

1938 PRINT "OH! VOUS VENEZ D'AVOIR "; 2528 GOTO 2549 

1949 IF Y-1989<55 GOTO 2009 2536 PRINT "PAS LOIN, ";A$;". PEUT ETRE POUR LA PROCHAINE FOIS." 

1959 IF RND(1)>.4 GOTO 1980 2548 PRINT "MERCI D'AVOIR JOUE 'MILLIONNAIRE', ";A$;"II11" 

1968 PRINT "LE CANCER"; 2545 END 
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Minotaur (Minotaure) 





MINOTAURE 
CREATIVE COMPUTING, MORRISTOWN, NEW JERSEY 


VOULEZ-VOUS ETRE LE CHAMPION DU MINOTAURE? OUI 
VOUS DEVEZ BATTRE UN SCORE DE 20. 


RAR MR RAR  R RMINOTAUREX# # #0 & 0% 0 à «ON ON ON NO ONON ON OX OX ON 
VOULEZ VOUS DES INSTRUCTIONS? OUI 


LE BUT DU JEU EST DE TUER LE MINOTAURE. 


NL TEE 
% (* 7 nn nn nn nn nan n nan nnnaaatttt CAVERNE # 3% 0% 000000 0000000006 x x NN 
‘ Si 
e , ; 
: : LA CAVERNE DU MINOTAURE EST EN TROIS 
Vas ce, re NIVEAUX. CHAQUE NIVEAU EST UN PLAN COORDONNE . 
7 2 EN DEHORS DES NIVEAUX IL N'Y À RIEN SINON LE 


VIDE. LES PLANS ONT UNE LONGUEUR DE 10 SELON 
CHACUN DES AXES À PARTIR DE L'ORIGINE. 


Dans ce jeu, vous êtes perdu dans une RÉ ÉTN NS A RTL RAS EST Ce CPE RTL GS al Eee Ne ere ar ane 81e S 
grotte à trois niveaux. Dix piliers traver- 


sent ces trois niveaux. Attention, ils sont Lo 
ifi i ê * À LA CAVERNF,IL Y À 10 POTEAUX 
ne Se rez Ass HÉRITES SUR Pots LAN ROLE van 
Le , ,S DETRUIRONT TOUT CE QUI LE 
certaines bouchée d'art deporéee TOCUERAI 
de façon aléatoire, vous font chuter au tea CRT 
niveau inférieur. Les niveaux sont numé- 
rotés par ordre croissant, de 1 à 3. Si vous FRAPPES 
a 1 (oi Ph BA) Vu és ce PSS En ER UN SAR. 81 VOUS ès 
Hs 1 (le plus ba êtes projeté 5 NIVEAU UN, VOUS PERDEZ! I ° 
ans un trou sans fond, le jeu est alors 
terminé. Le minotaure est un danger régi MINOTAURE CHARGEANT 
par le hasard. Si vous le blessez avec LE: MINOTAURE CHARGERX ST. VOUS 
votre lance, il vous charge. Il charge LE BLESSEZ AVEC VOTRE LANCE. IL PEUT 


À , AUSSI CHARGER SANS AUCUNE RAISONIIII 
même de temps en temps, sans raison 


apparente. Cependant, il le fait toujours en 


ligne droite. Donc, un conseil : placez- ENTREZ ‘RETURN! POUR CONTINUER. 
vous un peu en diagonale par rapport au VOICI VOS FONCTIONS DE CONTROLE: 
minotaure, puis visez-le avec votre lance; 1: ALLER RL'RST 
vous avez ainsi plus de chances d'éviter 2) ALLER À L'OUEST 
sa charge. Si vous désirez une représen- A RPRER AU SUD 

ji j i i Â ® NIVEAU 
tation graphique, les axes sont imprimés RE DUR NO VERD 
avec des X. Cela ne représente ni une 7) LANCER VOTRE LANCE 
barrière ni un obstacle; vous êtes libre de 8) (PRENDRE ‘UNE :CARTE 
mouvement à travers le plan X, Y. nnnnnnnnnnnammmmnnnnennnnnnns AMUSEZ-VOUS # à # no nn nn où où à ù à € x 
Cependant, il est fortement conseillé de 
ne pas vous aventurer au-delà des quatre ENTREZ ‘RETURN' POUR COMMENCER LE JEU. 
côtés, sous peine de tomber dans un trou JE VAIS MAINTENANT INSTALLER LES BARRIERES. 
sans fond, auquel cas le jeu se termine. SABRIERE 4 1 2000) 
De très nombreux dangers vous guettent BARRIERE # 2 :(-6 , 0) 
un peu partout. Ils ne sont pas tous décrits BARRIERE # 4 41-83, 
dans le listing d'exemple. Alors, essayez, BARRIERE # 5 :( 10 ,-10) 

: BARRIERE # 6 :( 10 ,-10) 
vous serez surpris ! BARRIERE # 7 :( 10 ,-8) 
À “ BARRIERE # 8 :(-3 ,- 

Pete Klausler a écrit et conçu ce ARR 0 a 

programme. BARRIERE # 10 :(-8 ,-8) 
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AU TOUR 4. LE MINOTAUR EST EN ( 4 , 5 ),AU NIVEAU;LI1; 
VOTRE CONTROLE? 8 
QUEL NIVEAU? 5 


css sssoXecsossosee 





nos ooXcscoossoues 


XXXXBXXXXXOXXXXXXXXXX 
.B..X. 





NIVEAU: 5 

CLE 

VOUS 
MINOTAURE 
LANCE 
BARRIERE 
ORIGINE 
AXES 


CCR 


XOwurzxz< 


AU TOUR 5. LE MINOTAUR EST EN ( 3 , 5 ),AU NIVEAU;:L]; 
VOTRE CONTROLE? 6 
VOUS ETES EN ( 4 , O ), AU NIVEAU 1. 


AU TOUR 6. LE MINOTAUR EST EN ( 3 , 5 ),AU NIVEAU;:L1; 
VOTRE CONTROLE? 6 

VOUS ETES TOMBE DE LA CAVERNE. VOUS AVEZ PERDU. 
AIMERIEZ VOUS REJOUER? OUI 


JE VAIS MAINTENANT INSTALLER LES BARRIERES. 


BARRIERE # 1 :(-6 , 6). 

BARRIERE # 2 :(-2 , 3). 
BARRIERE # 3 :( 6 ,-5) 

BARRIERE # 4 :( 5 ,-9). 
BARRIERE # 5 :( 1 , 10). 
BARRIERE # 6 :(-8 , 10). 
BARRIERE # 7 :( 10 , 5). 
BARRIERE # 8 :( O ,-5). 
BARRIERE # 9 :( 3 ,-5). 

BARRIERE # 10 :( 8 , 3). 


DE QUEL NIVEAU VOULEZ VOUS PARTIR? 5 
QUEL POINT? 0,0 
DE COMBIEN VOULEZ VOUS VOUS DEPLACER PAR TOUR? 5 





AU TOUR 1. LE MINOTAUR EST EN ( 10 ,-8 ),AU NIVEAU;:L1; 
VOTRE CONTROLE? 5 

VOUS ETES TOMBE DE LA CAVERNE. VOUS AVEZ PERDU. 
AIMERIEZ VOUS REJOUER? OfT 


JE VAIS MAINTENANT INSTALLER LES BARRIERES. 


BARRIERE # 1 :( 10 ,-2). 

BARRIERE # 2 :(-4 ,-B). 
BARRIERE # 3 :( 6 , 8). 
BARRIERE # 4 :( 4 , 8). 
BARRIERE # 5 :(-4 ,-6). 
BARRIERE # 6 :(-1 , 4). 
BARRIERE # 7 :(-6 , O). 
BARRIERE # 8 :(-10 , 8). 
BARRIERE # 9 :(-8 , 8). 
BARRIERE # 10 :( 8 ,-6). 

DE QUEL NIVEAU VOULEZ VOUS PARTIR? 2 

QUEL POINT? 0,0 DE QUEL NIVEAU VOULEZ VOUS PARTIR? 5 

DE COMBIEN VOULEZ VOUS VOUS DEPLACER PAR TOUR? 4 QUEL POINT? 5,5 


DE COMBIEN VOULEZ VOUS VOUS DEPLACER PAR TOUR? 5 
AU TOUR 1. LE MINOTAUR EST EN ( 4 , 4 ),AU NIVEAU;L1; 
VOTRE CONTROLE? 6 AU TOUR 1. LE MINOTAUR EST EN ( 6 ,-4 ),AU NIVEAU; L1; 
VOUS ETES EN ( O , O ), AU NIVEAU 1. VOTRE CONTROLE? 2 
VOUS ETES EN ( O , 5 }, AU NIVEAU 5. 
AU TOUR 2. LE MINOTAUR EST EN ( 4 , 5 ),AU NIVEAU;:L1; 
VOTRE CONTROLE? 1 AU TOUR 2. LE MINOTAUR EST EN ( 6 ,-4 ),AU NIVEAU;LI; 
VOUS ETES EN ( 4 , O ), AU NIVEAU 1. VOTRE CONTROLE? 6 
VOUS ETES TOMBE DE LA CAVERNE. VOUS AVEZ PERDU. 
AU TOUR 3. LE MINOTAUR EST EN ( 4 , 5 ),AU NIVEAU;L1; 
VOTRE CONTROLE? 5 AIMERIEZ VOUS REJOUER? NON 
VOUS ETES EN ( 4 , O ), AU NIVEAU 2. Ok 
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19 REM LE PROGRAMME CARTE UTILISE "LPRINT'POUR SORTIE DIRECTE SUR HARD 


20 REM COPY PRINTER. CHANGER LIGNES 3276-3659 SI CETTE SOLUTION N'EST PAS VOULUE 1108 PRINT" VOUS N'ETES PAS SUR LA MEME LIGNE X OU Y.VOUS NE POUVEZ PAS TIRER." 


58 PRINT CHRS (26) 1118 GOTO 429 

109 PRINT TAB (32) "MINOTAURE" 1128 PRINT"VOUS N'ETES PAS A MOINS DE 19.VOUS NE POUVEZ PAS TIRER." 
120 PRINT TAB(15)"CREATIVE COMPUTING, MORRISTOWN, NEW JERSEY"* 1130 GOTO 429 

130 FPRINT:PRINT 1149 PRINT"VOUS ETES SANS ARME. VOUS AVEZ PERDU, BLANC-BEC!" 

168 L1=INT (RND (1) #3)+1 1159 GOTO 939 

178 X1=INT (RND (1) * (-21) +11 1160 PRINT"YAAAAAAAAAAAAAAAAH VOUS ETES TOMBE DU BORD!" 

189 Y1=INT (RND(1)*(-21))+11 1178 GOTO 1158 

198 PRINT 1188 PRINT"VOUS ETES EN (";X2;",";Y2;"), AU NIVEAU";L2;CHRS (8);"." 
195 DIM B(15),C(15) 1198 REM TEST POUR BARRIERES 

208 GOSUB 1359 1200 FOR A=1 TO 19 

219 REM INSTRUCTIONS 1210 IF X2=B(A) AND Y2=C(A) THEN 1249 

220 GOSUB 1669 1220 NEXT À 

230 REM BARRIERES 1238 GOTO 1268 

248 GOSUB 2339 1248 PRINT"VOUS VENEZ DE VOUS GRILLER SUR UNE BARRIERE ELECTRIFIEE." 
250 REM PLACE JOUEUR 1250 GOTO 1158 

268 GOSUB 2429 1260 REM TRAPPES 

278 REM DEBUT JEU 1276 X=INT (RND(1)*18)+1 

289 REM LANCE 1280 IF X=5 THEN 1300 

294 IF X2=S1 AND Y2=S2 AND L2=53 AND T>1 THEN 3699 1298 GOTO 2510 

300 REM EST-IL MANGE? 1390 PRINT"YAAAAAAAAAAAAAAH UNE TRAPPE, VOUS ETES TOMBE D'UN NIVEAU!" 
310 IF X1=X2 AND Y2=1 AND LI=L2 THEN 3670 1310 L2=L2-1 

320 REM CHARGE 1329 IF L2>9 THEN 1290 

339 IF RND(1)<.1 THEN 2850 1338 PRINT"VOUS ETES TOMBE DE LA CAVERNE. VOUS AVEZ PERDU." 

348 REM TOUR # 1340 GOTO 1158 

350 T=T+1 1358 PRINT"VOULEZ-VOUS ETRE LE CHAMPION DU MINOTAURE"; 


1368 INPUT X9$ 


360 PRINT"AU TOUR";T;CHRS$ (8);". LE MINOTAUREEST EN (";X1;",";Y1;") ,AU NIVEAU;L]; 1370 1F S(X9$,1) ©"O" THEN 1440 
LEFT , 


370 PRINT "VOTRE CONTROLE" ; 


389 INPUT Z 1388 C2=20 

399 ON Z GOTO 400,439,450,480,500,530,550, 3270 1390 PRINT"VOUS DEVEZ BATTRE UN SCORE DE 20." 

400 X2=X2+F 1391 DIM C3$(72) 

410 IF ABS(X2)>10 THEN 1160 1419 DIM C4$ (72) 

420 GOTO 1180 1448 RETURN 

430 X2=X2-F 1450 1F LEFTS(X9$,1)<>*O" THEN 938 

448 GOTO 410 1468 C3=(1/T) *108 

450 Y2=Y2+F 1479 IF C3<29 THEN 1630 

460 IF ABS(Y2)>19 THEN 1168 1488 PRINT “VOUS ETES MAINTENANT UN CHAMPION QUALIFIE!"* 
478 GUTO 420 1620 GOTO 938 

480 Y2=Y2-F 1630 PRINT"DESOLE, VOUS N'AVEZ PAS BATTU LE CHAMPION." 

498 GOTO 460 1649 PRINT"VOULEZ VOUS REJOUER"; 

500 L2=L2+] 1658 GOTO 948 

519 IF L2>3 OR L2<] THEN 1339 1660 REM INSTRUCTIONS 

528 GOTO 420 1678 PRINT 

530 L2=L2-1 1672 FOR V7=1 TO 31 

548 GOTO 510 1673 PRINT"*"; 

550 REM LANCEMENT DE LA LANCE 1675 NEXT V7 

560 IF LI<L2 THEN 1980 1688 PRINT TAB (32) "MINOTAURE" ; 

570 IF X1<C>X2 AND Y1CY2 THEN 1190 1681 FOR V8=1 TO 31 

589 IF X1C>X2 AND ABS(YI-Y2)>19 THEN 1120 1682 PRINT TAB(41)"*"; 

598 IF ABS(XI-X2)>19 THEN 1120 1683 NEXT V8 

600 IF S9=1 THEN 3720 1728 PRINT 

619 PRINT"DANS QUELLE DIRECTION VOULEZ VOUS LANCER (UTILISEZ 1,2,3,4)" 1730 PRINT 

620 INPUT Hl 1748 PRINT"VOULEZ VOUS DES INSTRUCTIONS" ; 

630 PRINT"COMME C'EST LOIN"; 1760 INPUT X$ 

648 INPUT H2 1770 IF LEFTS(XS$,1) ©"O" THEN 2329 

650 S5=X2 1780 PRINT CHRS (26) 

660 S6=Y2 1820 PRINT"LE BUT DU JEU EST DE TUER LE MINOTAURE. " 

670 FOR H3=1 TO H2 1820 PRINT 

680 ON H1 GOTO 690,720,740, 770 1825 FOR V9=1 TO 31 

690 S5=S5+1 1826 PRINT"*"; 

708 IF ABS(S5)>10 THEN 860 1827 NEXT V9 

719 GOTO 799 1839 PRINT TAB (33) "CAVERNE"; 

720 S5=65-1 1832 FOR V18=1 TO 31 

730 GOTO 780 1833 PRINT TAB(41)"*"; 

740 S6=S6-1 1835 NEXT V19 

750 IF ABS(S6)>19 THEN 860 1836 PRINT 

768 GOTO 798 1837 PRINT 

770 S6=S6-1 1848 PRINT TAB(12)" LA CAVERNE DU MINOTAURE EST EN TROIS" 
788 GOTO 759 1850 PRINT TAB(12)"NIVEAUX. CHAQUE NIVEAU EST UN PLAN COORDONNE ." 
798 PRINT"LA LANCE EST EN (";S5;",";S6")." 1860 PRINT TAB(12)"EN DEHORS DES NIVEAUX IL N'Y À RIEN SINON LE" 
800 REM TEST POUR BARRIERES 1878 PRINT TAB(12)"VIDE. LES PLANS ONT UNE LONGUEUR DE 19 SELON " 
819 FOR A=1 TO 19 1888 PRINT TAB(12)"CHACUN DES AXES À PARTIR DE L'ORIGINE." 
820 IF S5=B(A) AND S6-C(A) THEN 850 1890 PRINT 

830 NEXT À 1919 FOR Vll=1 TO 31 

849 GOTO 879 1920 PRINT"*"; 

859 PRINT "LA LANCE S'EST ECRASEE CONTRE LA BARRIERE #";A;CHRS(8);"." 1930 NEXT VIl 

860 GOTO 1144 1948 PRINT TAB (32) "PERILS"; 

870 NEXT H3 1945 FOR V12=1 TO 31 

880 IF S5<>X1 OR S6C>YL1 THEN 1219 1947 PRINT TAB(41)"*"; 

898 X=INT (RND (1) #3)+1 1948 NEXT V12 

988 ON X GOTO 919,1019,1970 1958 PRINT 

919 PRINT"VOUS AVEZ TUE LE MINOTAURE EN";T; "TOURS. " 1955 PRINT 

920 GOTO 1459 1968 PRINT TAB (32) "BARRIERES" 

939 PRINT:PRINT"AIMERIEZ VOUS REJOUER"; 1965 PRINT 

948 INPUT X$ 1979 PRINT TAB(12)" À L'INTERIEUR DE LA CAVERNE, IL Y À 19 POTEAUX" 
958 IF LEFTS (X$,1) ©"O" THEN 3760 1980 PRINT TAB(12)"ELECTRIFIES SUR TROIS LES TROIS NIVEAUX" 
960 T=0 1990 PRINT TAB(12)" ILS DETRUIRONT TOUT CE QUI LES " 

978 LI=INT (RND (1) *3)+1 2009 PRINT TAB (12) "TOUCHERA! !" 

980 X1=INT (RND (1) * (-21))+11 2010 PRINT:PRINT:LINE INPUT "ENTREZ 'RETURN' POUR CONTINUER. ";XXS:PRINT CHRS (26) 
999 Y1=INT (RND(1)*(-21))+11 2028 PRINT TAB (32) "TRAPPES" 

1908 GOTO 239 2825 PRINT 

1919 PRINT"RATE. LA LANCE EST EN (";S5;",";S6;"). VOUS DEVEZ ALLER LA CHERCHER." 2030 PRINT TAB(12)" DES TRAPPES PEUVENT APPARAITRE N'IMPORTE OU" 
1920 S1=S5 2048 PRINT TAB(12)"ET VOUS FAIRE CHUTER D'UN NIVEAU. SI VOUS ETES" 
1930 S2=56 205 PRINT TAB(12)"AU NIVEAU UN, VOUS PERDEZ! !" 

1948 S3=L2 2060 PRINT: PRINT 

1950 S9=1 2070 PRINT TAB (27) "MINOTAURE CHARGEANT" 

1968 GOTO 289 2071 PRINT 

1978 GOSUB 2840 2980 PRINT TAB(12)" LE MINOTAURE CHARGERA SI VOUS " 

1980 PRINT"VOUS N'ETES PAS AU MEME NIVEAU.VOUS NE POUVEZ PAS TIRER." 2098 PRINT TAB(12)"LE BLESSEZAVEC VOTRE LANCE. IL PEUT" 
1998 GOTO 429 2100 PRINT TAB(12)"AUSSI CHARGER SANS AUCUNE RAISON! 111" 
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2110 PRINT:PRINT:PRINT 


2128 LINE INPUT "ENTREZ "RETURN' POUR CONTINUER. ";XXS:PRINT CHRS (26) 2960 IF L1>L2 THEN 2999 

2139 PRINT TAB(21)" VOICI VOS FONCTIONS DE CONTROLE: ": PRINT 2970 L3=]1 

2140 PRINT TAB(27)"l) ALLER À L'EST" 2988 GOTO 3009 

2159 PRINT TAB(27)"2) ALLER À L'OUEST" 2990 L3=1 

2169 PRINT TAB(27)"3) ALLER AU NORD" 3008 IF L1=L2 THEN 3050 

2170 PRINT TAB(27)"4) ALLER AU SUD" 3019 L1=L1+L3 

2180 PRINT TAB(27)"5) MONTER D'UN NIVEAU" 3020 PRINT"NIVEAU";L1;"" 

2190 PRINT TAB(27)"6) DESCENDRE D'UN NIVEAU" 3030 GOTO 3000 

2200 PRINT TAB(27)"7) LANCER VOTRE LANCE" 3048 REM SALUT VOUS 

2210 PRINT TAB(27)"8) PRENDRE UNE CARTE" 3050 IF X1=X2 THEN 3190 

2220 PRINT 3060 X1=X1+X3 

2248 FOR V13=1 TO 29 3070 GOSUB 3140 

2250 PRINT"*"; 3088 PRINT" (";X1;",";Y1;")" 

2260 NEXT V13 3290 GOTO 3950 

22706 PRINT TAB (31) "AMUSEZ-VOUS"; 3100 IF Y1=Y2 THEN 3210 

2289 FOR V14=1 TO 30 3110 Y1=Y1+Y3 

2290 PRINT TAB (41)"#*"; 3120 GOSUB 3140 

2300 NEXT V14 3130 GOTO 3980 

2310 PRINT:PRINT:LINE INPUT "ENTREZ "RETURN' POUR COMMENCER LE JEU. ";XX$ 3148 FOR P=1 TO 19 

2320 RETURN 3150 IF B(P)=X1 AND C(P)=Y1 THEN 3189 
2330 REM BARRIERES 3160 NEXT P 

2340 PRINT CHRS (26) :PRINT "JE VAIS MAINTENANT INSTALLER LES BARRIERES. ": PRINT 3170 RETURN 

2350 FOR A=1 TO 19 3180 PRINT"BZZ222222722222222222 LE MINOTAURE VIENT JUSTE DE SE FAIRE GRILLER!" 
2360 B(A)= INT(RND(1)*(-21))+11 3199 PRINT*VOUS GAGNEZ, PETITE CANAILLE!" 
2370 C(A)=INT (RND(1)#*(-21))+11 3209 GOTO 1458 

2380 PRINT"BARRIERE #";A;":(";B(A);",";C (A) ;CHRS (8);")." 3210 PRINT"MORDRE " 

2390 NEXT À 3220 PRINT"MACHONNER" 

2408 PRINT 3230 PRINT"HACHER" 

2418 RETURN 3240 PRINT"AVALER" 

2420 REM PLACE JOUEUR 3250 PRINT"VOUS AVEZ PERDU, BLANC-BEC!" 
2439 PRINT"DE QUEL NIVEAU VOULEZ VOUS PARTIR"; 3268 GOTO 939 

2448 INPUT L2 3270 PRINT"QUEL NIVEAU"; 

2458 PRINT*QUEL POINT"; 3280 INPUT L4 

2469 INPUT X2,Y2 3290 FOR Y4=19 TO -19 STEP -1 

2478 PRINT"DE COMBIEN VOULEZ VOUS VOUS DEPLACER PAR TOUR"; 3306 FOR X4=-10 TO 19 

2480 INPUT F 3310 IF X4=X2 AND Y4=Y2 AND L4=L2 THEN 3419 
2499 PRINT 3320 IF X4=X1 AND Y4=Y1 AND L4=Ll THEN 3439 
2500 RETURN 3330 IF L4=S1 AND Y4=S2 AND L4=S3 THEN 3450 
2519 REM DEPLACEMENT MINOTAURE 3348 FOR A=1 TO 19 

2520 X4=X1 3350 IF B(A)=X4 AND C(A)=Y4 THEN 3489 
2530 Y4=Y1 3360 NEXT À 

2548 L4=L1 3370 IF X4=0 AND Y4=0 THEN 3500 

2550 X3=INT (RND (1) *6)+1 3380 IF X4=0 OR Y4=Q THEN 3529 

2568 ON X3 GOTO 2579,2620, 2640, 2690,2710, 2760 3390 LPRINT"."; 

2578 X1=X1+1 3406 GOTO 3530 

2589 IF ABS(X1)>19 THEN 2600 3418 LPRINT"V"; 

2599 GOTO 2789 3420 GOTO 3409 

2600 X1=X4 3430 LPRINT"M"; 

2618 GOTO 2559 3440 GOTO 3400 

2620 X1=X1-1 3450 IF S9=0 THEN 3340 

2630 GOTO 2589 3460 LPRINT"L"; 

2640 Y1=Y1+1 3470 GOTO 3400 

2650 IF ABS(Y1)>19 THEN 2679 3480 LPRINT"B"; 

2668 GOTO 2780 3498 GOTO 3400 

2670 Y1=Y4 3508 LPRINT"0"; 

2689 GOTO 2550 3519 GOTO 3408 

2690 IF X1=B(A) AND Y1=C(A) THEN 2558 3520 LPRINT"X"; 

2708 GOTO 2658 3530 NEXT X4 

2718 Li=L1+]l 3548 LPRINT 

2720 IF L1>3 OR Ll<l THEN 2749 3550 NEXT Y4 

2730 GOTO 2789 3568 LPRINT 

2740 L1=L4 3570 LPRINT"NIVEAU:";L4 

2758 GOTO 2559 3588 LPRINT TAB (34) "CLE" 

2768 L1=L1-]1 3581 PRINT TAB (34) "——" 

2776 GOTO 2729 3599 LPRINT TAB(31)"V = VOUS" 

2788 FOR A=1 TO 18 3600 LPRINT TAB(31)"M = MINOTAURE" 

2798 IF X1=B(A) AND Y1=C(A) THEN 255 3618 LPRINT TAB(31)"L = LANCE" 

2800 NEXT À 3620 LPRINT TAB(31)"B = BARRIERE" 

2810 PRINT 3630 LPRINT TAB(31)"O = ORIGINE" 

2828 GOTO 288 3649 LPRINT TAB(31)"X = AXES" 

2830 PRINT 3650 LPRINT 

2849 PRINT"VOUS AVEZ BLESSE LE MINOTAURE" 3668 GOTO 2519 

2859 PRINT®LE MINOTAURE CHARGE." 3676 PRINT"LE MINOTAURE ARRIVE VERS VOUS; IL DIT QUE VOUS SENTEZ BON!" 
2860 IF XL>X2 THEN 2899 3689 GOTO 939 

2870 X3=1 3698 PRINT"VOUS AVEZ VOTRE LANCE" 

2889 GOTO 2918 3700 S9=0 

2890 X3=-1 3710 GOTO 308 

2988 GOTO 2919 3720 PRINT"COMMENT POURRIEZ VOUS ENVOYER VOTRE LANCE PUISQUE VOUS" 
2918 IF YL>Y2 THEN 2949 3721 PRINT"N'EN AVEZ PAS?" 

2928 Y3=1 3730 PRINT"LA LANCE EST EN(";Sl;",";S2;") AU NIVEAU";S3;CHR$(8);"." 
2930 GOTO 2968 3749 GOTO 429 

2940 Y3=-1 3750 srop 

2958 GOTO 2968 3760 END 
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Motorcycle Jump 
aut motocycliste) 





Ce programme, à l’origine intitulé Evilk, 
permet de réaliser tous vos rêves de 
devenir un motocycliste casse-cou ! Le 
jeu consiste en un saut à motocyclette 
par-dessus plusieurs obstacles, saut qui 
ne tient en compte ni la gravité nm les 
forces de frottement. L'angle de la pente 
et la vitesse de la motocyclette détermi- 
nent la longueur du saut. Remarque : les 
blessures et les dégâts à l'issue d’un long 
saut sont plus graves que pour un saut 
plus court; et il y a risque d'accident même 
pour un saut de bonne longueur. Cette 
probabilité fixée à «0,20» peut être 
modifiée à la ligne 560 pour augmenter 
vos chances de vous en sortir. 

Ce programme a été écrit par Charles 
Aylworth et est paru pour la première fois 
dans Creative Computing, juillet-août 
1978. 


RUN 
SAUT MOTOCYCLISTE 
CREATIVE COMPUTING 
MORRISTOWN, NEW JERSEY 


NOUS SOMMES À LA SCENE DU GRAND SAUT A MOTOI 
COMBIEN DE BUS ALLEZ VOUS ESSAYER DE SAUTER? 5 
5 BUSI CA FAIT 75 PIEDSI 
QUEL ANGLE DE RAMPE ALLEZ VOUS UTILISER? 90 
90 DEGRES? C'EST IMPOSSIBLE. ALLONS, 
QUEL ANGLE DE RAMPE ALLEZ VOUS UTILISER? 22 
A QUELLE VITESSE ALLEZ-VOUS QUITTER LA RAMPE? O 


*#*#*BONNE CHANCE *** 


SAUT D'ENTRAINEMENTI 


OK, CETTE FOIS CI À QUELLE VITESSE ALLEZ-VOUS QUITTER LA RAMPE? 54 


*#*#*BONNE CHANCE *** 


LE VOILA QUI PARTIIII 

ANR AHAAAAAAAAAIL A SAUTE TROP LOINI 
IL À RATE LA RAMPE. 

IL DOIT ETRE TOUCHE...... 


ET BIEN,LE TUEUR, LE DOCTEUR À DIT QUE TU T'ETAIT CASSE LES: 


MOTO 
FIERTE 
BASSIN 


VOULEZ REJOUER? OUI 


COMBIEN DE BUS ALLEZ VOUS ESSAYER DE SAUTER? 5 
5 BUSI CA FAIT 75 PIEDS! 
QUEL ANGLE DE RAMPE ALLEZ VOUS UTILISER? 22 
À QUELLE VITESSE ALLEZ-VOUS QUITTER LA RAMPE? 46 


**#BONNE CHANCE *** 
LE VOILA QUI PARTIIII 


*W##XH##KARAAAIL EST SORTI COURT DE LA RAMPE .,... 
IL DOIT ETRE TOUCHE...... 


ET BIEN,LE TUEUR, LE DOCTEUR À DIT QUE TU T'ETAIT CASSE LES: 


JAMB.G 
DOS 


VOULEZ REJOUER? OUI 


TOMBIEN DE BUS ALLEZ VOUS ESSAYER DE SAUTER? 5 
5 BUSI CA FAIT 75 PIEDSI 
QUEL ANGLE DE RAMPE ALLEZ VOUS UTILISER? 22 
À QUELLE VITESSE ALLEZ-VOUS QUITTER LA RAMPE? 47 


*#*#*BONNE CHANCE *** 


LE VOILA QUI PARTIIII 
XX#AEXAXAALAALXIL L'A FAITI BEAU SAUT, TUEUR! 


VOULEZ REJOUER? NON 
VOUS EN AVEZ REUSSI 1 SUR 1 TENTATIVES. 
SOYEZ PRUDENT,MAINTENANT. 


ENTREZ 'RETURN' POUR FINIR LE JEU. 
Ok 


19 PRINT CHRS (26) ; TAB (21) ; "SAUT MOTOCYCLISTE" 

28 PRINT TAB (20) ; "CREATIVE COMPUTING" 

30 PRINT TAB (18) ;"MORRISTOWN, NEW JERSEY" 

48 PRINT: PRINT: PRINT 

50 DIM 12(14),1$(84) 

98 1$="BRAS.DBRAS.GJAMB.DJAMB.GDOS  COU  CRANE COTES GENOU NUQUE " 
190 1$=1$+"FIGUREBASSINFIERTEMOTO " 

119 T=.1 

130 T2=0 

140 T3=0 

159 PRINT “NOUS SOMMES À LA SCENE DU GRAND SAUT À MOTO!" 
160 INPUT "COMBIEN DE BUS ALLEZ VOUS ESSAYER DE SAUTER" ;N 
170 J=N*15 

188 PRINT N;"BUS! CA FAIT";J;"PIEDS!" 

198 INPUT "QUEL ANGLE DE RAMPE ALLEZ VOUS UTILISER" ;A2 
200 IF A2<99 AND A2>0 THEN 239 

219 PRINT A2;"DEGRES? C'EST IMPOSSIBLE. ALLONS, " 
220 GOTO 198 

230 A=A2*.01745 

240 INPUT “A QUELLE VITESSE ALLEZ-VOUS QUITTER LA RAMPE";S 
250 PRINT:PRINT "#*##* BONNE CHANCE *##*":PRINT 
260 IF S>0 THEN 300 

270 PRINT “SAUT D'ENTRAINEMENT!" 

280 PRINT “OK, CETTE FOIS CI "; 

290 GOTO 249 

300 H=6 

319 D=8 

320 G=6 

330 R2=0 

340 S2=0 

350 S=S*1.5 

360 PRINT "LE VOILA QUI PARTI!11" 

380 S=S-52 

390 F=S4T 

408 D2=F*COS (A) 

419 R=F*SIN (A) 

420 R2=R2+(32*T) 

430 R3=R2*T 

440 H=H+R-R3 

459 D=D+D2 

460 PRINT "*"; 

489 S2=(S/120)*32*T 

490 IF D>=J THEN G=G-R 

519 IF G<=0 THEN G=9 

520 IF H>G THEN 389 

530 IF D<J THEN 600 

540 IF D>J+20 THEN 649 

550 L=((D-J)/38) +RND(1) 

568 IF L>.8 THEN 659 

576 PRINT “IL L'A FAIT! BEAU SAUT, TUEUR!" 

580 T2=T2+1 

598 GOTO 929 

608 PRINT “IL EST SORTI COURT DE LA RAMPE ....." 

628 L2=INT ((((J-D)/5) *2)+(RND(1) *5)+.5) 

630 GOTO 670 

649 PRINT “IL À SAUTE TROP LOIN!" 

659 PRINT "IL À RATE LA RAMPE." 

66 L2=INT (((D+28-J)/28) + (RND(1)*5)) 

679 PRINT “IL DOIT ETRE TOUCHE. ....." 

680 FOR K=1 TO 14 

690 12(K)=K 

700 NEXT K 

719 K2=14 

720 IF L2>14 THEN L2=14 

730 IF L2<=0 THEN L2=1 

766 FOR K=1 TO L2 

778 V=INT (RND (1) *1008) 

789 V=(V-(INT (V/K2) *K2) )+1 

790 H2=12(V) 

808 12(V)=I2(K2) 

810 I2(K2)=H2 

820 K2=K2-] 

830 NEXT K 

849 PRINT "ET BIEN,LE TUEUR, LE DOCTEUR À DIT QUE TU T'ETAIS CASSE LES:" 
869 FOR K=(15-L2) TO 14 

880 P=(6*12(K))-5 

898 AS=MIDS (1$,P,6) 

908 PRINT AS 

919 NEXT K 

920 T3=T3+1 

939 PRINT:INPUT "VOULEZ REJOUER";A$ 

949 IF LEFTS(AS,1)="O" THEN PRINT:PRINT:GOTO 160 

958 PRINT “VOUS EN AVEZ REUSSI";T2; "SUR" ;T3;"TENTATIVES." 
969 PRINT "SOYEZ PRUDENT, MAINTENANT. " 

978 PRINT:LINE INPUT “ENTREZ 'RETURN' POUR FINIR LE JEU. ";XXS 
989 END 
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« Grand-mère nomade » est quelqu'un 
qui ne sait vraiment pas où elle veut 
habiter, et elle change de maison à 
chaque partie. Elle vous envoie alors un 
télégramme pour que vous lui rendiez 
visite. Le but de ce jeu est de vous frayer 
un chemin à travers les rues de 
Garbonzo-Ville vers la maison de grand- 
mère. Pour plus de détails, reportez-vous 
au jeu. On vous donne une carte de 
Garbonzo-Ville. 

Nomade a été écrit par Steve Trapp et 
est paru pour la première fois dans 
Creative Computing, sept.-oct. 1977. 
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Nomad (Nomade) 





ok 
RUN 


NOMADE 
CREATIVE COMPUTING 
MORRISTOWN, NEW JERSEY 


VOULEZ VOUS LES REGLES? OUI 


GRAND-MERE NOMADE EST UNE CHARMANTE VIEILLE DAME QUI 
NE SAIT PAS VRAIMENT OU ELLE VEUT VIVRE. 

ELLE HABITE QUELQUE PART DANS GARRONZO VILLE 

A L'INTERSECTION DFE DEUX RUES. 


AU DEBUT, LE FACTEUR VOUS DONNE UN TELEGRAMME ECRIT PAR 
GRAND-MERE QUI VOUS DIT OU ELLE VIT. 
(JE VOUS LE LIRAI). 


VOUS PARTEZ DE LRAC NILKNARF NAMGREB LODGE. 
DE LA VOUS ALLEZ VERS LA MAISON DE GRAND-MERE. 


VOUS ESSAYEZ D'Y PARVENIR SANS: 
ACCIDENTS 

CONTRAVENTIONS 

PNEUS CREVES 

PANNES D'ESSENCE 

ARRIVER À UN CUL-DE-SAC 


IL Y A HUIT POLICIERS QUI FONT RESPECTER LA LOI 
A GARBONZO VILLE. 


ENTRER ‘"RETURN' POUR CONTINUER. 


IL Y À AUSSI DEUX IVROGNES DANS LES RUES DE GARBONZO 
VILLE. 


SI UN AGENT DE POLICE PREND UN IVROGNE, IL DOIT 
TEMOIGNER À LA COUR 
(CE QUI DURE LE RESTE DE LA PARTIE) 


SI UN CONDUCTEUR SAOUL VOUS EMBOUTIT, VOUS PERDEZ. 


À CHAQUE CROISEMENT, JE VOUS DIRAI: 
DANS QUELLE DIRECTION VOUS ALLEZ 
QUELLE ROUTE VOUS SUIVEZ 

QUELLE ROUTE VOUS RENCONTREZ 


JE VOUS DEMANDERAI: 
DANS QUELLE DIRECTION VOUS VOULEZ ALLER 
VOTRE VITESSE (EN MILES PAR HEURE) 


UN AUTOPONT N'EST PAS UN CROISEMENT, 
ET CE N'EST PAS ANNONCE. 


*C'EST TOUT* 
QUEL EST VOTRE NOM? JACQUES 
#*** BONNE CHANCE *** 


CHER(E) JACQUES, 
COMMENT VAS-TU? J'HABITE À L'INTERSECTION 
DES RUES # 5 & # 1O 111 
VIENS VITE. 
BONS BAISERS, 
GRAND-MERE 
((TELEGRAMME . TELEGRAMME PTT.)) 


ALLANT VERS LE SUD SUR LA ROUTE # 1 
JONCTION: ROUTE # 1 & # 2 

AVANCER, GAUCHE, DROITE OU RECULER? A 
VITESSE? 40 


ALLANT VERS LE SUD SUR LA ROUTE # 1 
JONCTION: ROUTE # 1 & # 4 

AVANCER, GAUCHE, DROITE OU RECULER? A 
VITESSE? 40 


ALLANT VERS LE SUD SUR LA ROUTE # 1 
JONCTION: ROUTE # 1 & # 5 

AVANCER, GAUCHE, DROITE OU RECULER? A 
VITESSE? 40 


ALLANT VERS LE SUD SUR LA ROUTE # 1 
JONCTION: ROUTE # 1 & # 11 

AVANCER, GAUCHE, DROITE OU RECULER? A 
VITESSE? 40 


ALLANT VERS LE SUD SUR LA ROUTE # 1 
JONCTION: ROUTE # 1 & # 7 

AVANCER, GAUCHE, DROITE OÙ RECULER? A 
VITESSE? 60 

*** DEPASSEMENT DE LIMITE DE VITESSE *** 
SANS CONSEQUENCE 


ALLANT VERS LE SUD SUR LA ROUTE # 1 
JONCTION: ROUTE # 1 & # 8 

AVANCER, GAUCHE, DROITE OU RECULER? A 
VITESSE? 50 


ALLANT VERS LE SUD SUR LA ROUTE # 1 
JONCTION: ROUTE # 1 & # 9 

AVANCER, GAUCHE, DROITE OU RECULER? A 
VITESSE? 50 


ALLANT VERS LE SUD SUR LA ROUTE # 1 

JONCTION: ROUTE # 1 & # 10 

AVANCER, GAUCHE, DROITE OU RECULER? D 
VITESSE? 40 

UN AUTOBUS VIENT D'ECRABOUILLER VOTRE VOITURE 


VOULEZ VOUS ENCORE JOUER? NON 


*#** AU REVOIR *** 
Ok 


5 PRINT CHRS$ (26) 

19 PRINT TAB (26) ; "NOMADE" 

28 PRINT TAB (20) ; "CREATIVE COMPUTING" 
30 PRINT TAB (18) ;"MORRISTONN, NEW JERSEY" 
1168 DIM K$(30) ,D(2,2) ,R(30,30) ,E (30,38) ,P(8,2) ,C(38) 
1170 DIM W(30) 

1180 DIM N$(38) 

1190 REM SOUS-PROGRAMME REGLES 
1290 GOSUB 3349 

1219 REM NOMBRES ALEATOIRES 

1220 DEF FNA(X)=INT (RND(1) *X)+1 
1230 REM # ROUTES 

1240 READ N 

1259 FOR R=1 TO N 

1260 REM #  INTERSECTIONS 

1270 READ Q 

1289 C(R)=ABS (0) 

1299 IF Q<G THEN 1320 

1309 W(R)=1 

1319 GOTO 1339 

1320 W(R)=-1 

1330 REM DIREC, ROUTE 

1348 FOR J=1 TO C(R) 

1359 READ E(R,J),R(R,J) 

1360 NEXT J 

1370 NEXT R 

1380 REM NOM? 

1398 PRINT "QUEL EST VOTRE NOM"; 
1498 INPUT NS 

1419 REM COMMENTAIRES DE DEBUT 
1420 PRINT 

1439 PRINT “#*#*#* BONNE CHANCE *##" 
1449 REM MAISON DE GRAND-MERE 
1450 H1=FNA(N) 

1468 H2=FNA(C (H1)) 

1470 REM CONDUCTEURS SAOULS 

1498 REM POLICE 

1599 FOR A=1 TO 8 

1519 P(A,1)=FNA(N) 

1520 P(A,2)=FNA(C(P(A,1))) 

1539 NEXT À 

1549 REM LRAC NILKNARF NAMGREB LODGE 
1550 R=1 

1560 J=0 

1578 1=1 

1589 REM SOUS-PROGRAMME CHECK 
1599 GOSUB 2529 

1609 REM SOUS-PROGRAMME TELEGRAMME 
1619 GOSUB 2579 

1626 REM  INCREMENTE 

1630 J=J+I 

1649 REM DES REPARATIONS? 

1650 IF FNA(10)=1 THEN 2949 

1669 REM CUL-DE-SAC? 

1679 IF J>C(R) OR J=0 THEN 3969 
1689 REM DIRECTION 

1690 IF I=-1 THEN 1720 

1799 D=E(R,J) 

1718 GOTO 1730 

1720 D=9-E(R,J) 


1730 
1749 
1750 
1760 
1770 
1780 
1799 
1800 
1810 
1820 
1830 
1849 
1850 
1860 
1880 
1890 
1900 
1910 
1920 
1930 
1940 
1958 
1960 
1970 
1989 
1998 
2006 
2010 
2020 
2030 
2048 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2128 
2130 
2149 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2228 
2230 
2248 
2250 
2260 
2270 
2280 
2298 
2300 
2310 
2320 
2330 
2340 
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REM CROISEMENT 
C=R(R,J) 
REM LIGNE DROITE 
PRINT 
REM SOUS-PROGRAMME *DIREC, ROUTE* PRINT 
GOSUB 2680 
REM CHEZ GRAND-MERE? 
IF HI=R AND R(R,J)=R(H1,H2) THEN 2880 
IF HI=R(R,J) AND R=R(H1,H2) THEN 2880 
REM JONCTION 
PRINT "JONCTION: ROUTE #";R;" & #";C 
REM DEMANDE SUR QUELLE ROUTE TOURNER 
PRINT "AVANCER, GAUCHE, DROITE OÙ RECULER"; 
INPUT 1$ 
IF LEFTS(IS,1)="A" THEN 2080 
IF LEFTS(IS,1)="G" THEN 1970 
IF LEFTS(IS,1)="D" THEN 1990 
IF LEFTS(1$,1)="R* THEN 1950 
REM ERREUR 
PRINT “#*##* ERREUR ###" 
GOTO 1850 
I=1*I 
GUTO 2080 
I=W(R)*1 
GOTO 2000 
=-1#W(R)*I 
FOR A=1 TO C(C) 
IF R(C,A)=R THEN 2040 
NEXT À 
GOTO 4214 
R=C 
J=A 
REM OSER? 
IF FNA(4)=1 THEN 2360 
REM VITESSE 
PRINT "VITESSE"; 
INPUT S 
REM ACCIDENT DANGEREUX 
IF S>100 THEN 3190 
IF S<30 THEN 3220 
REM ILLEGAL? 
IF S>55 THEN 3090 
CONDUCTEURS SAOULS 
FOR A=1 TO 2 
IF D(A,1)=0 THEN 2210 
D(A,1)=FNA(N) 
D(A,2)=FNA(C(D(A,1))) 
NEXT À 
REM ACCIDENT AVEC UN CONDUCTEUR SAOUL 
FOR A=1 TO 2 
IF D(A,1)=0 THEN 2270 
IF D(A,1)=R AND R(R,J)=R(D(A,1),D(A,2)) THEN 2919 
IF D(A,1)=R(R,J) AND R(D(A,1),D(A,2))=R THEN 2910 
NEXT À 
REM LE CONDUCTEUR EST-IL PRIS? 
FOR A=1 TO 2 
IF D(A,1)=0 THEN 2340 
FOR B=1 TO 8 
IF D(A,1)=P(B,1) AND D(A,2)=P(B,2) THEN 2400 
NEXT B 
NEXT À 


2350 
2369 
2370 
2380 
2390 
2409 
2419 
2428 
2430 
2449 
2450 
2469 
2479 
2489 
2490 
2500 
2519 
2529 
2539 
2549 
2550 
2568 
2578 
2589 
2599 
2609 
2619 
2629 
2639 
2649 
2650 
2669 
2670 
2680 
2698 
2700 
2719 
2729 
2730 
2740 
2750 
2769 
2779 
2780 
2790 
2800 
2819 
2820 
2830 
2840 
2858 
2869 
2872 
2880 
2899 
2900 
2910 
2929 
2930 
2940 
2950 
2969 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3119 
3129 
3130 
3149 
3150 
3160 
3170 
3189 
3190 
3200 
3219 
3220 
3230 
3240 
3250 
3260 
3270 
3290 
3300 
3310 
3320 
3330 
3349 
3350 
3360 
3389 
3390 
3490 
3419 
3429 
3439 
3449 
3450 
3460 
3470 
3480 
3499 
3500 
3519 
3529 


GOTO 1629 

REM VITESSE OSEE PRINT 

ON FNA(3) GOTO 2389,2400,2429 

PRINT “JE VOUS DEFIE À LA COURSE ** (CASSE-COU) * 


GOTO 2439 

PRINT “#*DEPASSER LA LIMITATION DE VITESSE* C'EST AMUSANT* 
GOTO 2439 

PRINT "#*VITESE* JE VOUS DEFIE  #*VITESSE* JE VOUS DEFIE" 
GOTO 2989 

REM UN IVROGNE À ETE PRIS 


PRINT “UN CONDUCTEUR SAOUL À ETE PRIS. LE POLICIER QUI" 
PRINT “L'A ARRETE TEMOIGNERA À LA COUR PENDANT LE " 
PRINT "RESTE DE LA PARTIE." 

PRINT 

D(A,1)=9:D(A,2)=0:P(B,1)=8:P(B,2)=8 

GOTO 1629 

REM CHECK 

FOR A=1 TO 8 

IF H1=P(A,1) AND R(H1,H2)=R(P(A,1),P(A,2)) THEN 1449 
IF H1=R(P(A,1),P(A,2)) AND R(H1,H2)=P(A,1) THEN 1448 
NEXT A 

RETURN 

REM IMPRESSION DU TELEGRAMME 

PRINT 

PRINT "CHER(E) ";N$;"," 

PRINT “COMMENT VAS-TU? J'HABITE À L'INTERSECTION" 
PRINT "DES RUES #";H1;" & #";R(H1,H2);"111" 


PRINT "VIENS VITE." 

PRINT " BONS BAISERS, 
PRINT " GRAND-MERE" 
PRINT *((TELEGRAMME . TELEGRAMME PTT.))" 
PRINT 

RETURN 

REM *DIREC, ROUTE* IMPRESSION 


PRINT "ALLANT VERS "; 

ON D GOTO 2719,2730,2750,2770,2790,2810,2830,2850 
PRINT "LE NORD"; 

GOTO 2869 

PRINT "L'OUEST"; 

GOTO 2869 

PRINT “LE NORD-EST"; 

GOTO 2860 

PRINT "LE SUD-EST"; 

GOTO 2868 

PRINT "LE NORD-OUEST"; 

GOTO 2869 

PRINT “LE SUD-OUEST"; 

GOTO 2860 

PRINT "L'EST"; 

GOTO 2869 

PRINT "LE SUD"; 

PRINT " SUR LA ROUTE #";R 

RETURN 

REM CHEZ GRAND-MERE * IMPRESSION* 

PRINT "VOUS ETES PARVENUS À LA MAISON DE GRAND-MERE! ! 1!" 
GOTO 3249 

REM UN IVROGNE EMBOUTIT VOTRE VOITURE 

PRINT "BANG!!1!!-UN IVROGNE VIENT D'EMBOUTIR VOTRE VOITURE" 
GOTO 3249 

REM INCIDENTS #*PRINT-UP* 


ON FNA(5) GOTO 2969,2980,3000,3020,3040 
PRINT "PNEU CREVE" 


GOTO 3050 

PRINT "VOUS AVEZ COULE UNE BIELLE" 

GOTO 3050 

PRINT "##*#* PANNE D'ESSENCE #**#" 

GOTO 3058 

PRINT "UN AUTOBUS VIENT D'ECRABOUILLER VOTRE VOITURE" 
GOTO 3959 

PRINT “UN BOULEDOGUE À MORDU UN DE VOS PNEUS" 

GO1O 3249 

REM CUL-DE-SAC 


PRINT "##* CUL-DE-SAC ###" 

GOTO 3249 

REM DEPASSEMENT DE LIMITE DE VITESSE 

PRINT "*#** DEPASSEMENT DE LIMITE DE VITESSE *##" 
REM PRIS PAR LA POLICE? 

FOR X=1 TO 8 

IF P(X,1)=R AND P(X,1)=J THEN 3179 

NEXT X 

PRINT "SANS CONSEQUENCE" 

GOTO 2169 

PRINT "LA POLICE VOUS À PRIS EN FLAGRANT DELITI!!" 
GOTO 3240 

REM TROP VITE *ACCIDENT* 

PRINT "BING-BANG...VOUS ALLIEZ TROP VITE..ACCIDENT" 
GOTO 3249 

REM TROP LENT *ACCIDENT* 

PRINT "-*<(KRUNCH)>#*- TROP LENT...LA VOITURE DE DERRIERE VOUS ENFONCE!" 
REM ENCORE ?? 

PRINT 

PRINT "VOULEZ VOUS ENCORE JOUER"; 

INPUT IS 

IF LEFTS(1$,1)="O" THEN 1380 

REM COMMENTAIRES DE FIN DE JEU 

PRINT 

PRINT "##* AU REVOIR ###* 

GOTO 4219 

REM REGLES? 

PRINT:PRINT:PRINT "VOULEZ VOUS LES REGLES"; 

INPUT 1$ 

IF LEFTS(I$,1)="N" THEN 3958 

PRINT CHRS (26) 

PRINT "GRAND-MERE NOMADE EST UNE CHARMANTE VIEILLE DAME QUI" 
PRINT "NE SAIT PAS VRAIMENT OU ELLE VEUT VIVRE." 
PRINT "ELLE HABITE QUELQUE PART DANS GARBONZO VILLE" 
PRINT "A L'INTERSECTION DE DEUX RUES." 

PRINT 

PRINT "AU DEBUT, LE FACTEUR VOUS DONNE UN TELEGRAMME ECRIT PAR" 
PRINT "GRAND-MERE QUI VOUS DIT OU ELLE VIT." 

PRINT "(JE VOUS LE LIRAI)." 

PRINT 

PRINT “VOUS PARTEZ DE LRAC NILKNARF NAMGREB LODGE." 
PRINT "DE LAAAAAA VOUS ALLEZ VERS LA MAISON DE GRAND-MERE." 
PRINT 

PRINT “VOUS ESSAYEZ D'Y PARVENIR SANS:" 


3530 PRINT "ACCIDENTS" 

3540 PRINT "CONTRAVENTIONS" 

3550 PRINT "PNEUS CREVES" 

3569 PRINT "PANNES D'ESSENCE" 

3578 PRINT "ARRIVER À UN CUL-DE-SAC" 

3589 PRINT 

3598 PRINT "IL Y À HUIT POLICIERS QUI FONT RESPECTER LA LOI" 

3698 PRINT "A GARBONZO VILLE." 

3618 GOSUB 52000 

3620 PRINT “IL Y À AUSSI DEUX IVROGNES DANS LES RUES DE GARBONZO" 

3638 PRINT "VILLE." 

3648 PRINT 

3659 PRINT "SI UN AGENT DE POLICE PREND UN IVROGNE, IL DOIT*" 

3668 PRINT “TEMOIGNER À LA COUR " 

3679 PRINT "(CE QUI DURE LE RESTE DE LA PARTIE)" 

3680 PRINT 

3698 PRINT "SI UN CONDUCTEUR SAOUL VOUS EMBOUTIT, VOUS PERDEZ." 

3708 PRINT 

3810 PRINT "A CHAQUE CROISEMENT, JE VOUS DIRAI:" 

3820 PRINT “DANS QUELLE DIRECTION VOUS ALLEZ" 

3830 PRINT "QUELLE ROUTE VOUS SUIVEZ" 

3840 PRINT "QUELLE ROUTE VOUS RENCONTREZ" 

3850 PRINT ; 

3869 PRINT “JE VOUS DEMANDERAI :" 

3870 PRINT "DANS QUELLE DIRECTION VOUS VOULEZ ALLER " 

3880 PRENT "VOTRE VITESSE (IN MILES PAR HEURE) " 

3898 PRINT 

3900 PRINT “UN AUTOPONT N'EST PAS UN CROISEMENT, 

3919 PRINT "ET CE N'EST PAS ANNONCE." 

3928 PRINT 

3938 PRINT "#*C'EST TOUT*" 

3949 PRINT 

3958 RETURN 

3968 REM DATA LINES 

3970 DATA 18 

3980 DATA -8,8,2,8,4,8,5,8,11,8,7,8,8,8,9,8,10 

3998 DATA 3,7,17,7,18,7,1 

4000 DATA 2,7 

4810 DATA 3,7 

4028 DATA 7,8 

4030 DATA -2 

4949 DATA 2, 

4958 DATA 8, 

4968 DATA 8, 

4870 DATA 8, 

4889 DATA -7 

4098 DATA -3 

4190 DATA -3 

4119 DATA -3 

4129 DATA -3, 
3 
2 
5 


DB 


4138 DATA - 
4148 DATA - 
4159 DATA -5, 
4169 DATA 0,9 
4219 END 
50000 PRINT:LINE INPUT “ENTRER ‘RETURN' POUR CONTINUER. ";XXS 
59019 PRINT CHRS (26) 

50929 RETURN 
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Not One (Pas-un-de-plus) 





Ce jeu, aussi connu sous le nom du 
« Petit Cochon », se joue à deux, avec 
une paire de dés. || comporte dix rounds, 
constitué chacun d’un tour pour chaque 
joueur. Le score final de chaque joueur est 
obtenu en additionnant le score obtenu 
lors de chaque round. Le gagnant est celui 
qui a le total le plus élevé. 

A chaque tour, le joueur lance les deux 
dés autant de fois qu'il le veut (au moins 
une fois). Si au cours d'un des lancers, la 
somme des chiffres apparaissant sur les 
deux dés est la même que celle du 
premier lancer, le score pour ce round est 
zéro. Le joueur cède alors le tour à son 


adversaire. Dans le cas contraire, le score 
est le total de toutes les sommes obte- 
nues à chaque lancer. Après chaque 
lancer réussi, le joueur décide s'il lance 
une nouvelle fois ou non les dés. 

L'ordinateur joue étonnamment bien. 
Pour le vaincre, il vous faut quelques 
connaissances en probabilités, et un peu 
de chance de votre côté. 

Ce jeu a été écrit pour un concours paru 
dans un numéro spécial de Creative 
Computing. L'auteur en est Robert 
Puopolo. || parut pour la première fois 
dans Creative Computing, mars-avril 
1975. 





RUN 
PAS-UN-DE-PLUS 


CREATIVE COMPUTING 
MORRISTOWN NEW JERSEY 


VOULEZ VOUS DES INSTRUCTIONS? OUI 


LE JEU DU PAS-UN-DE-PLUS SE JOUE A DEUX 
JOUEURS ET AVEC UNE PAIRE DE DES. LE JEU SE 
FAIT EN DIX ROUNDS,CHAQUE ROUND CONSISTANT EN 
UN TOUR POUR CHACUN DES JOUEURS.LES JOUEURS 


ROUND 1 


VOUS ROULEZ A NOUVEAU? OUI 
6 


VOUS ROULEZ A NOUVEAU? OUI 
LR ROULEZ A NOUVEAU? OUI 
Jus ROULEZ A NOUVEAU? OUI 
ses ROULEZ 
vous ROULEZ 


NOUVEAU? OUI 


NOUVEAU? OUI 


(VOUS MEME ET L'ORDINATEUR) AJOUTENT LE SCORE QU" 
ILS ONT OBTENU À CHAQUE ROUND, ET LE JOUEUR QUI A 
LE PLUS HAUT SCORE APRES DIX ROUNDS EST LE VAINQUEUR 


A CHAQUE TOUR LE JOUEUR PEUT ROULER LES DEUX DES DE 

1 À N FOIS. SI TL EST LE TOTAL DES DES APRES LE TIEME 
ROULE,ALORS LE SCORE DU JOUEUR POUR LE TOUR EST 
T(L)4#T(2)+T(3)+........ +T(N). MALGRE TOUT, 

ET VOILA L'ASTUCE,SI UN QUELCONQUE T(I) EST EGAL A T(1) ALORS 
LE TOUR EST PERDU ET SON SCORE POUR CE TOUR EST ZERO. 

APRES CHAQUE ROULE NON EGAL A T(1),LE JOUEUR PEUT DECIDER 

DE ROULER A NOUVEAU OU D'ARRETER ET DE GARDER LE SCORE 

DEJA OBTENU. 


VOUS ROULEZ 
7 
VOUS ROULEZ 


NOUVEAU? OUI 
NOUVEAU? NON 

JEU DE L'ORDINATEUR: 
ROULE DE L'ORDINATEUR # 1: 10 
ROULE DE L'ORDINATEUR # 2: 9 
ROULE DE L'ORDINATEUR # 3: 12 
ROULE DE L'ORDINATEUR # 4: 10 
L'ORDINATEUR À EU ZERO À CE TOURII 


VOUS: 54 
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ORDINATEUR: O 


ROUND 2 


7 
VOUS ROULEZ A NOUVEAU? OUI 
7 
VOUS AVEZ EU ZERO POUR CE ROUND. 


JEU DE L'ORDINATEUR: 


ROULE DE L'ORDINATEUR # 1: 9 

ROULE DE L'ORDINATEUR # 2: 7 

ROULE DE L'ORDINATEUR # 3: 3 

ROULE DE L'ORDINATEUR # 4: 8 

ROULE DE L'ORDINATEUR # 5: 10 

ROULE DE L'ORDINATEUR # 6: 4 

ROULE DE L'ORDINATEUR # 7: 11 

ROULE DE L'ORDINATEUR # 8: 6 

ROULE DE L'ORDINATEUR # 9: 5 
ORDINATEUR: 63 VOUS: 54 


ROUND 3 


VOUS ROULEZ A NOUVEAU? OUI 

Fous ROULEZ A NOUVEAU? OUI 

vbs AVEZ EU ZERO POUR CE ROUND. 
JEU DE L'ORDINATEUR: 


ROULE DE L'ORDINATEUR 
ROULE DE L'ORDINATEUR 
ROULE DE L'ORDINATEUR 
ROULE DE L'ORDINATEUR 
ROULE DE L'ORDINATEUR 
ROULE DE L'ORDINATEUR 
ROULE DE L'ORDINATEUR 
ROULE DE L'ORDINATEUR 
ROULE DE L'ORDINATEUR 
ROULE DE L'ORDINATEUR 
ROULE DE L'ORDINATEUR 
ROULE DE L'ORDINATEUR 
ROULE DE L'ORDINATEUR 
ROULE DE L'ORDINATEUR 
ROULE DE L'ORDINATEUR 
ROULE DE L'ORDINATEUR 3 
L'ORDINATEUR À EU ZERO À CE TOURII 


© © + ON UE W N 


moLmnwwwnrunn 


em 
uw 
N + 9 ©  Ww 


# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 
# 


ORDINATEUR: 63 VOUS: 54 


ROUND 4 


VA0E ROULEZ A NOUVEAU? OUI 
VOUS ROULEZ A NOUVEAU? OUI 
VOUS ROULEZ NOUVEAU? OUI 
VOUS ROULEZ NOUVEAU? OUI 
vous ROULEZ NOUVEAU? OUI 
VOUS ROULEZ NOUVEAU? OUI 


VOUS ROULEZ 


A 
A 
A 
VOUS ROULEZ A NOUVEAU? OUI 
= A 
A NOUVEAU? OUI 
A 


VOUS ROULEZ NOUVEAU? NON 


JEU DE L'ORDINATEUR: 
ROULE DE L'ORDINATEUR # 1: 5 
ROULE DE L'ORDINATEUR # 2: 5 
L'ORDINATEUR À EU ZERO À CE TOURII 
VOUS: 117 ORDINATEUR: 63 


ROUND 5 


VOUS ROULEZ A NOUVEAU? OUI 
6 

VOUS ROULEZ A NOUVEAU? OUI 
7 


VOUS ROULEZ A NOUVEAU? OUI 


Vous ROULEZ A NOUVEAU? OUI 
Vus ROULEZ A NOUVEAU? OUI 
Sous ROULEZ A NOUVEAU? OUI 
tous ROULEZ A NOUVEAU? OUI 
Le ROULEZ A NOUVEAU? OUI 
vous ROULEZ A NOUVEAU? OUI 
vous ROULEZ À NOUVEAU? OUI 
Voca AVEZ EU ZERO POUR CE ROUND. 


JEU DE L'ORDINATEUR: 


ROULE DE L'ORDINATEUR # 1: 9 
ROULE DE L'ORDINATEUR # 2: 9 


L'ORDINATEUR À EU ZERO À CE TOURII 


VOUS: 117 ORDINATEUR: 63 
ROUND 6 

ce esse 

VOUS ROULEZ A NOUVEAU? OUI 
vous ROULEZ A NOUVEAU? OUI 


VOUS AVEZ EU ZERO POUR CE ROUND. 
JEU DE L'ORDINATEUR: 
ROULE DE 


ROULE DE 
ROULE DE 


L'ORDINATEUR 
L'ORDINATEUR 
L'ORDINATEUR 


de te 4e de 4e 
OunpUuNr 
unuamnann 


ROULE DE L'ORDINATEUR : 
ROULE DE L'ORDINATEUR : 
ROULE DE L'ORDINATEUR : 
VOUS: 117 ORDINATEUR: 97 
ROUND 7 

9 

VOUS ROULEZ A NOUVEAU? OUI 
4 

VOUS ROULEZ A NOUVEAU? OUT 
10 


VOUS ROULEZ À NOUVEAU? OUI 


2 PRINT CHRS (26) 

3 PRINT TAB (26) ; "PAS-UN-DE-PLUS" : PRINT 

S PRINT TAB (24) ; "CREATIVE COMPUTING* 

6 PRINT TAB(19) ; "MORRISTONN NEW JERSEY" 

7 PRINT:PRINT:PRINT 

19 DIM T(54) ,R(id),C(14) ,L(12) 

15 INPUT "VOULEZ VOUS DES INSTRUCTIONS" ;A$ 
28 IF LEFTS(A$,1)="O" THEN 35 

25 IF LEFTS$S(A$,1)="N" THEN ivd 






39 PRINT:PRINT "REPONDEZ OUI OÙ NONI!"*:PRINT:GOTO 15 

35 PRINT:PRINT*LE JEU DU PAS-UN-DE-PLUS SE JOUE À DEUX" 

49 PRINT"JOUEURS ET AVEC UNE PAIRE DE DES. LE JEU SE” 

45 PRINT"FAIT EN DIX ROUNDS,CHAQUE ROUND CONSISTANT EN" 
TOUR POUR CHACUN DES JOUEURS.LES JOUEURS* 

55 PRINT" (VOUS MEME ET L'ORDINATEUR) AJOUTENT LE SCORE QU'* 
64 PRINT*ILS ONT OBTENU A CHAQUE ROUND, ET LE JOUEUR QUI À * 


Sd PRINT"UN 
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JEU DE L'ORDINATEUR: 


VOUS ROULEZ À NOUVEAU? OUI 
8 ROULE DE L'ORDINATEUR # 1: 8 
VOUS ROULEZ À NOUVEAU? NON ROULE DE L'ORDINATEUR # 2: 6 
ROULE DE L'ORDINATEUR # 3: 7 
JEU DE L'ORDINATEUR: ROULE DE L'ORDINATEUR # 4: 6 
ROULE DE L'ORDINATEUR # 5: 11 
ROULE DE L'ORDINATEUR # ROULE DE L'ORDINATEUR # 6: 5 
ROULE DE L'ORDINATEUR # 
ROULE DE L'ORDINATEUR # ORDINATEUR: 241 VOUS : 
ROULE DE L'ORDINATEUR # 
ROULE DE L'ORDINATEUR # 
ROULE DE L'ORDINATEUR # ROUND 10 
VOUS: 159 ORDINATEUR: 136 es 
VOUS ROULEZ A NOUVEAU? OUI 
ROUND 8 4 
SEE VOUS ROULEZ A NOUVEAU? OUI 
5 
vais ROULEZ À NOUVEAU? OUI VOUS AVEZ EU ZERO POUR CE ROUND. 
VOUS ROULEZ À NOUVEAU? OUI JEU DE L'ORDINATEUR: 
8 
VOUS ROULEZ A NOUVEAU? OUI ROULE DE L'ORDINATEUR # 1: 3 
4 ROULE DE L'ORDINATEUR # 2: 8 
VOUS ROULEZ A NOUVEAU? OUI ROULE DE L'ORDINATEUR # 3: 9 
12 ROULE DE L'ORDINATEUR # 4: 8 
VOUS ROULEZ À NOUVEAU? OUI ROULE DE L'ORDINATEUR # 5: 3 
6 L'ORDINATEUR À EU ZERO À CE TOUR! 
VOUS AVEZ EU ZERO POUR CE ROUND. 
SCORE FINAL 
JEU DE L'ORDINATEUR: 
ORDINATEUR: 241 VOUS : 
ROULE DE L'ORDINATEUR # 10 
ROULE DE L'ORDINATEUR # 8 RESUME DES SCORES 
ROULE DE L'ORDINATEUR # s = == 
ROULE DE L'ORDINATEUR # 2 ROUND vous ORDINATEUR 
ROULE DE L'ORDINATEUR # D Sims,  esiésstee 
ROULE DE L'ORDINATEUR # 7 1 54 0 
ROULE DE L'ORDINATEUR # 6 2 0 63 
ROULE DE L'ORDINATEUR # 9 3 0 0 
ROULE DE L'ORDINATEUR # 7 4 63 0 
5 0 0 
ORDINATEUR: 198 VOUS: 159 6 0 34 
7 42 39 
ROUND 9 A 0 62 
= 9 0) 43 
10 10 0 0 
VOUS ROULEZ À NOUVEAU? OUI 
4 TOTALS : 159 241 


VOUS ROULEZ A 
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VOUS AVEZ EU 


62 PRINT"LE PLUS HAUT SCORE APRES DIX ROUNDS EST LE VAINQUEUR": PRINT 


67 PRINT"A CHAQUE TOUR LE JOUEUR PEUT ROULER LES DEUX DES DE * 
69 PRINT “i À N FOIS. SI Ti EST LE TOTAL DES DES APRES LE TIEME* 
72 PRINT"ROULE ,ALORS LE SCORE DU JOUEUR POUR LE TOUR EST" 
MALGRE TOUT," 


75 PRINT "T(1)+T(2)#+T(3)+........#T(N). 


77 PRINT"ET VOILA L'ASTUCE,SI UN QUELCONQUE T(I) EST EGAL À T(i) ALORS" 


83 PRINT"LE TOUR EST PERDU ET SON SCORE POUR CE TOUR EST ZERO." 


82 PRINT"APRES CHAQUE ROULE NON EGAL A T(i),LE JOUEUR PEUT DECIDER" 


88 PRINT"UE ROULER A NOUVEAU OU D'ARRETER ET DE GARDER LE SCORE" 


92 PRINT"DEJA OBTENU." 


199 FOR T=i TO 1Y9:PRINT:PRINT “ROUND*;T:PRINT " 





119 X=X+1:R1=INT(6*RND(i))+i 

115 R2=INT(6*RND(i))+1:PRINT Ri+R2 

129 1F X>1 THEN 130 

125 T(1)=Rit+R2:GOTO 135 

139 T(X)=Ri+R2 

131 IF T(1)©T(X) THEN 135 

132 PRINT"VOUS AVEZ EU ZERO POUR CE ROUND." 
133 X=V:Ti=V9:GOT0 209 

135 Ti=Ti+T(X) 





NOUVEAU? OUI 


149 


VOUS REJOUEZ? NON 


ZERO POUR CE ROUND. 


ROUND 


INPUT "VOUS ROULEZ A NOUVEAU" ;B$ 


145 IF LEFTS(B$,1)="O" THEN lid 


153 
164 
20ù 


281 RESTORE 
202 R1=INT(6*RND(1))+1:R2=INT (6*RND(1))+1 


204 


FOR D=2 TO Ri+R2:READ L(D) :NEXT:D=R1+R2 


225 FOR C=1 TO L(D):1F C=1 THEN 215 
219 Ri=INT(6*RND(1))+1:R2=INT(6*RND(1))+1 


215 


228 IF C>i THEN 239 

225 T(i)=Ri+R2:GOT0 242 

238 T(C)=R1+R2 

235 1F T(C)<T(i) GOTO 242 

236 PRINT"L'ORDINATEUR À EU ZERO À CE TOUR!!* 
237 Ti=9:GOTO 245 

242 Ti=Ti+T(C):NEXT C 

245 C(T)=Ti:Ti=:X=0 

258 C2=C2+C (T) :C1=C1+#R(T) 

253 PRINT:FOR B=i TO 5Y:T(B)=V:NEXT 


255 IF T=id THEN PRINT "SCORE FINAL":PRINT * 
269 
263 PRINT"ORDINATEUR:";C2, "VOUS 
278 PRINT "VOUS:"; 


IF C2<Ci1 THEN 279 
C1:GOTO 399 
c2 








# "ORDINATEUR: * ; 


309 NEXT T 
305 DATA 18,18,9,9,6,6,6,9,9,18,18 


319 
315 


325 PRINT:PRINT *TOTALS 





"3 TAB (15) ;"——";TAB (25) ;" 
#44 





333 INPUT "VOUS REJOUEZ"* ; ANS$ 


348 


IF LEFTS(ANSS,1)="2" THEN 


341 FOR XX=1 TO 59:T(XX)=2:NEXT: 
342 FOR XX=1 TO 19:R(XX)=9:C (XX) =V9:NEXT 


343 
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PRINT "ROULE DE L'ORDINATEUR #";C;CHRS (8) ;":";R1+R2 


PRINT:PRINT “RESUME DES SCORES":PRINT "===========2222" 
PRINT “ROUND" ; TAB (15) ; "VOUS" ; TAB (25) ; “ORDINATEUR" 

316 PRINT * 
329 FOR E=i TO 19:PRINT USING" #4 


1F LEFTS(B$,1)="N" THEN R(T)=Ti:X=0:Ti=9:FOR A=1 TO 59:T(A)=Y:NEXT:GOTO 2099 
PRINT:PRINT “REPONDEZ OUI OU NON!!":PRINT: GOTO 149 
PRINT:PKRINT TAB (15) ;"JEU DE L'ORDINATEUR: ":PRINT 


#H#";E,R(E) ,C(E) :NEXT 


*;TAB(14) ;C1;TAB (26) ;C2:PRINT 


FOR XX=1 TO 12:L(XX)=8:NEXT:C1=9:C2=ÿ:GOTO 199 ELSE END 


159 


159 


Obstacle 





Ce jeu est un parcours jonché d'obs- 
tacles, il a pour support une grille 9 par 40. 

La voiture est représentée par une 
étoile; les obstacles sont des murs; les 
« blancs » sont les endroits où la voiture 
peut rouler. La voiture ne doit pas « tra- 
verser » un mur où occuper une position 
déjà prise par un mur ou un obstacle. Le 
« D », en haut à gauche de la grille, repré- 
sente le point de départ, le « F » en bas à 
droite, le point d'arrivée que la voiture 
doit franchir sans avoir «traversé » 
d'obstacles pour gagner. Le temps de 
parcours est alors évalué. 

Voici le fonctionnement du programme, 
ligne par ligne : 

Ligne 610: Les dimensions de la 
matrice M sont entrées, 15 lignes, 
50 colonnes. (Ces dimensions laissent 
une bonne marge en cas de modifica- 
tions.) 

Les lignes 620-680 initialisent toutes les 
variables nécessaires. 

Lignes 700-780 : Un générateur de 
nombres aléatoires régit la position des 
obstacles, | et J sont respectivement la 
ligne et la colonne de la matrice, et R1 un 
nombre aléatoire. La ligne 720 engendre 
un nombre aléatoire compris entre 0 et 1, 
le multiplie par une densité de 1,2 (pour 
augmenter le facteur de densité en 
repoussant la virgule), et ôte tout ce qui se 
trouve à la droite de la virgule dans le 
chiffre décimal. R1 prend alors les valeurs 
O0 ou 1. La valeur O correspond à un 
espace dans la matrice M (I, J), la valeur 1 
à un point d'exclamation. 

Les lignes 840 et 850 fixent l’'emplace- 
ment des murs. 

La ligne stocke les valeurs de l et J dans 
K et L. Après l'exécution du programme 
d'impression, | et J reprennent les valeurs 
précédemment stockées dans K et L, 
ligne 970. 

Les lignes 910-960 utilisent une boucle 
For-Next (comme pour l'initialisation) et 
permettent l'impression des caractères 
dont les valeurs sont données par la 
matrice M; ligne 930 : la fonction CHRS$ 
change les valeurs de la mémoire en leur 
caractère équivalent ASCII. 

La ligne 990 vérifie si la voiture s'est 
déplacée en consultant D1. Si D1>0, elle 
choisit l'option adéquate et continue avec 
le programme principal. Si D1=0, elle 
propose soit un nouveau trajet, soit la fin 
du jeu, et exécute l'option respective. 

La ligne 1130 vérifie si Di est différent 
de 1. Dans ce cas, elle fait exécuter le 
programme de déplacement. Sinon, elle 
positionne la voiture au point (2,2) de la 
matrice et exécute le programme de 
déplacement. 


RUN 


OBSTACLE 
CREATIVE COMPUTING 
MORRISTOWN, NEW JERSEY 


VOULEZ-VOUS DES INSTRUCTIONS? OUI 


LE BUT DE CE JEU EST DE DEPLACER VOTRE VOITURE ‘*" 


EN PARTANT DE ‘'D' 
‘-' JUSQU'A L'ENDROIT MARQUE ‘F'. VOUS DEVEZ 


‘4' & LES MUR 


s 


ET EN NAVIGUANT A TRAVERS LES OBSTACLES 


ARRIVER EN ‘F' APRES LE NOMBRE EXACT D'ESPACE. 


IL N'Y À PAS 
IL N'Y À PAS 


DIRECTION 
DIRECTION 
DIRECTION 


DE 
DE 


NO. 
NO. 
NO. 


VITESSE EST LE 


DEPLACEMENT DIAGONAL. 
DEPLACEMENT DE DROITE A GAUCHE. 


1 EST LE HAUT. 
2 EST DE GAUCHE A DROITE. 
3 EST LE BAS. 


NOMBRE D'ESPACE DANS UNE DIRECTION DONNEE. 


D 4 + 

a 1 

q LI 

q T 4 
ALI Li 

q a 

LEA T 14 
LA LI Li 

LU LA 


q Li 194194 

q LI 

T 4 11 1 9 LU 

14 Li LI Li 
Li Li LA 

T 414 LA A 
LR 

AL T 4 T 19 
q LR LÉ F4 


OPTION: (A = 
DIRECTION? 3 
VITESSE? 4 


A la ligne 1080, commence le pro- 
gramme principal, 1100 demande la 
direction, 1110 vérifie à l'entrée de D si la 
direction est validée, la ligne 1120 entre la 
vitesse S, et 1130 initialise les compteurs 
de Si et D1. Les lignes 1160-1180 contrô- 
lent le programme de déplacement (le 1 va 
vers le haut, le 2 de droite à gauche, le 3 
vers le bas). 

Les lignes 1190-1220 constituent le 
programme de déplacement dans le 
cas 1. La ligne 1190 enlève la voiture de la 
position qu'elle occupait précédemment 
en ne perdant pas de vue Il et J. Les lignes 
1200 et 1210 vérifient chaque caractère 
de position entre les points |, J et 1-S, J 
pour un mur; si la voiture en rencontre un, 
le jeu est terminé. Dans le cas contraire, le 
déplacement est validé. La ligne 1220 
attribue à la voiture la position 1-1, J se rend 
à la ligne 1310 pour vérifier si la position 
10,41 contient une voiture. Dans ce cas, 
vous avez gagné, et le programme exécute 
la fin du trajet. Sinon, le jeu n'est pas 
terminé, et le programme passe à la ligne 
870 où débute le programme d'impression. 
La boucle s'arrête soit lorsque vous perdez 
(en vous écrasant contre un obstacle), soit 
lorsque la voiture atteint la position 10,41 
de la matrice. 

La ligne 1380 évalue le temps de 
traversée en divisant le nombre total de 
changements de direction par le nombre 
total de « blancs » recouverts, et le multi- 
plie par 100. La ligne 1390 imprime le 
temps et les lignes 1400 et 1410 deman- 
dent si vous désirez rejouer. 

Le programme et ces commentaires 
sont de Eric Erickson. 
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CONTINUER, B = 


Li T 4 q « 114 
T 194 q Li Li 
a q T 4 11 19 Li 
q T 14 LR s Li Li 
q* Li LÉ Li LA 
q LI q 114 LA LL 
LEA q 14 LR 
LA s Li LB LL ALI T 1 
a LA a T4 q F4 
DIRECTION? 1 
VITESSE? 1 
A T 4 Li q LEE 
T 194 Li A Li 
« q 4 IT T4 f 
q* T 14 14 A q « 
LU LU LU « LA 
LL Li 1 119 LL f 
LA LEA TA 
LA A LL LAB A Li 1 19 
Li LA Li LR Li F4 
DIRECTION? 2 
VITESSE? 8 
q T 4 LL A TI 
a LR ALI Li Li 
Li Li T 4 TT q 
LL T 99 LR Li LL LL 
LU f LI Li AA 
q Li * { 191 qq Li 
LAB 1 19 TA 
LA a Li LAB T 4 T if 
Li LA LI LR Li F4 
DIRECTION? 3 
VITESSE? 1 
LU T 4 a LI T4 
LI LR ALI L Li 
LU f T 4 IT 14 Li 
Li T 4 LR LÉ LI q 
Li LL Li LI LE 
q Li T 19 LA! LÉ 
LAB T if LR 
LL LL Li LAB A Li T if 
q LA q T4 LÉ F4 


DIRECTION? 2 
VITESSE? 20 





DIRECTION? 3 
VITESSE? 2 


S PRINT CHRS (26) 

18 PRINT TAB (26) "OBSTACLE" 

28 PRINT TAB (20) "CREATIVE COMPUTING" 

30 PRINT TAB (18) "MORRISTOWN, NEW JERSEY" 


150 
169 
178 
189 
199 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
348 
350 
360 
370 
380 
390 
400 
419 
420 
450 
455 
460 
470 
480 
490 
50u 
505 
510 
520 
525 
530 
549 
550 
56 
579 
580 
598 
600 
619 
620 
630 
649 
650 
660 
670 
689 
698 
700 
718 
720 
730 
749 
750 
768 
770 


REM VARIABLES USAGE 

RM —————— 
REM Al VALEUR DECIMALE POUR LE CARACTERE ‘#! 
REM A2 VALEUR DECIMALE POUR LE CARACTERE ! * 
REM A3 VALEUR DECIMALE POUR LE CARACTERE "!" 
REM A4 VALEUR DECIMALE POUR LE CARACTERE 'S' 
REM AS VALEUR DECIMALE POUR LE CARACTERE ‘F' 
REM A6 VALEUR DECIMALE POUR LE CARACTERE '-" 
REM D DIRECTION 

REM  DI1 NO.TOTAL DE TOURS PRIS 

REM MATRICE LIGNE 

REM INDICE DE LA MATRICE COLONNE 

REM SUPPORT DE PLACE POUR LA VARIABLE I 


SUPPORT DE PLACE POUR LA VARIABLE J 
MATRICE VARIABLE 
ENTREE DES QUESTIONS OUI-NON 


ë 
NTZETXxXCUM 
-ü 


VITESSE 
REM  S1 COMPTEUR DE VITESSE TOTALE 
REM T RATIO 'TEMPS' (D1/S1)*199 


REM PROGRAMME DEPART 


REM INSTRUCTIONS 

REM 

PRINT 

PRINT 

PRINT "VOULEZ-VOUS DES INSTRUCTIONS"; : INPUT NS 

PRINT 

1F LEFTS (N$,1) <>"O" THEN 619 

PRINT"LE BUT DE CE JEU EST DE DEPLACER VOTRE VOITURE ‘*'" 
PRINT"EN PAKTANT DE ‘D' ET EN NAVIGUANT À TRAVERS LES OBSTACLES" 
PRINT"'|" & LES MURS '-' JUSQU'A L'ENDROIT MARQUE ‘F'. VOUS DEVEZ* 
PRINT"ARRIVER EN ‘F' APRES LE NOMBRE EXACT D'ESPACES" 
PRINT : 

PRINT"IL N'Y À PAS DE DEPLACEMENT DIAGONAL." 

PRINT"IL N'Y À PAS DE DEPLACEMENT DE DROITE À GAUCHE." 
PRINT 

PRINT"LA DIRECTION NO.1 EST LE HAUT." 

PRINT "LA DIRECTION NO.2 EST DE GAUCHE À DROITE." 
PRINT"LA DIRECTION NO.3 EST LE BAS." 

PRINT 

PRINT"LA VITESSE EST LE NOMBRE D'ESPACES DANS UNE DIRECTION DONNEE. * 
REM 

REM INITIALISATION 

REM 

DIM M(15,50) 

A1=ASC ("*") 

A2=ASC ("|") 

A3=ASC (" ") 

A4=ASC ("D") 

AS=ASC ("F"*) 

A6=ASC ("-") 

D1=ÿ:S1=0 

REM *** NOTE — PROGRAMME D'ETABLISSEMENT DU TRAJET 

FOR 1=1 TO 19 

FOR J=1 TO 42 

R1=INT (RND(1)*1.2) 

IF R1=ÿ THEN 760 

M(1,J)=A2 

GOTO 779 

M(1,J)=A3 

NEXT J 


VARIABLE DU GENERATEUR DE VARIABLES ALEATOIRES 
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DIRE. 
VITES 
VOUS 


AIMER 
Ok 


780 
790 
800 
819 
829 
830 
849 
850 
868 
870 
888 
899 
900 
919 
920 
930 
940 
954 
969 
970 
980 
998 





CTION? 2 
SE? 4 
AVEZ GAGNEII ET VOTRE TEMPS EST 20.4082 


1EZ-VOUS REJOUER? NON 


NEXT 1 

M(2,2)=A4 

M(10,48)=A3 

M(19,41)=A5 

M(2,3)=A3 

M(3,2)=A3 

FOR 1=1 TO 19:M(I,1)=A2:M(I,42)=A2:NEXT 1 
FOR J=1 TO 42:M(1,J)=A6:M(11,J)=A6:NEXT J 
REM 

REM #** PROGRAMME D'IMPRESSION ** 
REM 

K=1:L=J 

PRINT 

FOR I=1 TO 11 

FOR J=1 TO 42 

PRINT CHRS (M(1,J) ) ; 

NEXT J 

PRINT 

NEXT I 

I=K:J=L 

REM 88 NOTE- OPTION NOUVEAU TRAJET#* 
IF D1>9 THEN 1980 


1908 PRINT"OPTION: (A = CONTINUER, B = NOUVEAU TRAJET, C = STOP)"; 
1219 INPUT N$ 

1920 IF N$="A" THEN 1989 

1930 IF N$="B" THEN 679 

1949 IF N$="C" THEN 1429 

1959 PRINT"OPTION INEXISTANTE. * 

1960 GOTO 1998 

1979 REM 

1980 REM ** CORPS DU PROGRAMME PRINCIPAL #* 

1998 REM 

1128 PRINT" DIRECTION"; : INPUT D:D=INT (ABS (D) ) 

1119 IF D<1 THEN 1199 

1111 IF D>3 THEN 1109 

1129 PRINT"VITESSE”" ; : INPUT S:S=INT (ABS (S)) 

1139 D1=D1+1:S1=S1+#S:1F D1C1 THEN 1168 

1149 REM ** NOTE — LA VOITURE PART EN POSITION 2,2 
1159 J=2:1=2 

1169 IF D=1 THEN 1199 

1170 1F D=2 THEN 1239 


1188 
1199 


IF D=3 THEN 1279 
M(I,J)=A3:REM ** ELIMINATION DES CARACTERES INITIAUX ** 


1208 FOR C=1 TO S:I=ABS(I-1):1F M(1,J)=A2 THEN 1349 
1210 IF M(1,J)=A6 THEN 1349 

1215 NEXT C 

1228 M(I,J)=Al: GOTO 1319 

1239 M(I,J)=A3 

1249 FOR C=1 TO S:J=J+1:1F M(1,J)=A2 THEN 1349 
1250 IF M(1,J)=A6 THEN 1349 

1255 NEXT C 

1268 M(I,J)=Al: GOTO 1319 

1278 M(I,J)=A3 


1289 
1299 


FOR C=1 TO S: I=1+1:1F M(1,J)=A2 THEN 1349 
IF M(1,J)=A6 THEN 1349 


1295 NEXT C 

1380 M(I1,J)=A1 

1319 REM #* NOTE — VERIFICATION VICTOIRE** 

1328 IF M(18,41) ©Al THEN 878 

1339 GOTO 1369 

1349 PRINT"DEPLACEMENT IMPOSSIBLE. ..... VOUS PERDEZ !1!":GOTO 1499 


1359 
1368 
1370 
1389 
1399 
1488 
1419 
1429 


REM 

REM #** FIN DU PROGRAMME REN ** 

REM 

T=(D1/S1)*199 

PRINT “VOUS AVEZ GAGNEI! ET VOTRE TEMPS EST" ;T 
PRINT:PRINT"AIMERIEZ-VOUS REJOUER" ; : INPUT N$ 
IF LEFTS (N$,1)="O0" THEN 678 

END 


Octrix 





Ceci est un jeu de cartes pour quatre 
joueurs ou bien trois joueurs plus l'ordi- 
nateur. Un jeu de trente-deux cartes est 
utilisé soit de l'as au huit dans chacune 
des quatre couleurs. Les trente-deux 
cartes sont toutes distribuées au début du 
jeu, soit huit par joueur. À chaque tour, 
chaque joueur se défait d'une carte en 
fonction des règles du jeu (voir ces règles 
au début de l'exemple). Soit la carte jouée 
la plus forte, soit la plus faible, remporte le 
tour. La notion de force est celle du bridge 
(Trèfle, Carreau, Cœur, Pique). Après huit 
tours, une nouvelle donne est distribuée et 
jouée de la même façon. La meilleure 
façon d'apprendre à jouer à Octrix est 
peut-être de jouer quelques tours avec 
l'ordinateur ou bien avec des amis et 
l'ordinateur. Observez ce qui se passera 
et avant longtemps vous serez capable de 
monter une stratégie de jeu raisonnable. 

Octrix a été écrit par Rogers Hamilton. 


OCTRIX 
CREATIVE COMPUTING 
MORRISTOWN, NEW JERSEY 


REGLES DU JEU (O OU N)? OUI 


CECI EST UN JEU APPELE OCTRIX.CHAQUE JOUEUR RECOIT 8 
CARTES MELANGEES,DE L'AS AU HUIT.LES CARTES SONT RANGEES 
DANS L'ORDRE DU BRIDGE,DE TELLE SORTE QUE L'AS DE TREFLE EST 
LA CARTE LA PLUS FAIBLE ET LE HUIT DE PIQUE LA PLUS FORTE. 
LE BUT EST DE GAGNER LE PLUS DE TOURS POSSIBLES PARMI LES 
HUIT.CHAQUE TOUR DETERMINE LES REGLES DE JEU DU SUIVANT. 
SI LA CARTE LA PLUS FORTE ET LA CARTE LA PLUS FAIBLE SONT DE 
LA MEME COULEUR(NOIRE OÙ ROUGE),LE JEU SUIVANT SERA CELUI DE LA 
CARTE LA PLUS FORTE, SINON CELUI DE LA CARTE LA PLUS FAIBLE. 
IL EST IMPORTANT DE BATIR UNE STRATEGIE AFIN DE GAGNER DES JEUX 
DE MANIERE CONSECUTIVE CAR ON MARQUE 1 POINT POUR UN TOUR , 
4 POUR DEUX,9 POUR 3,JUSQU'A 64 POUR LES 8. 


REPONDEZ RAPIDEMENT AUX QUESTIONS,EN TAPANT LA CARTE QUE 
VOUS VOULEZ JOUER GRACE À DEUX CARACTERES,LE PREMIER 
CORRESPONDANT À LA VALEUR DE LA CARTE (A À 8) ET LE SECOND 
CORREPONDANT À LA COULEUR (T,K,C,P). 

(POUR AVOIR VOS CARTES RESTANTES,TAPER UN ‘P' COMME 
REPONSE À LA QUESTION :'QUELLE CARTE?') 


VOILA,BONNE CHANCEI 1! 


COMBIEN DE POINTS (O0 RENTRE LE NOMBRE HABITUEL DE 88)? O 
COMBIEN DE JOUEURS? 3 

RENTRER LE NOM DU JOUEUR # 1 ? JACQUES 

RENTRER LE NOM DU JOUEUR # 2 ? CHRISTIAN 

RENTRER LE NOM DU JOUEUR # 3 ? NASRI 

PUIS-JE JOUER AUSSI (O OU N)? O 


LA MAIN DE JACQUES: 


TRE CAR COEU PIQ 
TA LAS L Li T A 
2 « q* « qd 92 
13 LAS Li Li T 93 
f4 « « Li 4 
15 A L Li T 5 
16 L « LAS T 6 
+7 « LL Li 4 97 
48 q* « q* a+ 48 


TA « q* Li f* SA 
42 Li Li Li T 92 
43 LI L + T 93 
4 q q* LI T 4 
15 Li Li Li T4 5 
46 a+ Li L 4 
97 g* Li q* T 97 
LE Lu q* « 4 8 


LA MAIN DE CHRISTIAN: 


LA MAIN DE NASRI: 


TRE CAR COEU PIQ 
TA Li Li Li 4 SA 
92 q* LU q* 4 42 
93 Li LI LI q* 93 
4 a* Li g* T 4 
45 LI LI q* T 45 
16 Li q* LI T 6 
97 Li q* LI 4 97 
18 « LI Li 7 8 
nm LA MAIN DE L'ORDINATEUR: 

TRE CAR COEU PIQ 
TA Li Li q* T SA 
92 q LI L 4 92 
93 Li L AJ « Li 93 
14 Li Li Li q* 4 
45 q* q* «a g* 45 
16 4 Li Li q* 6 
47 Li q «4 q* 47 
48 a Li a T 8 


TOUR # 1 (LA CARTE LA PLUS FORTE GAGNE) 
QUELLE CARTE, JACQUES 


st 

QUELLE CARTE, CHRISTIAN 
LELL 

QUELLE CARTE, NASRI 
sus 


JACQUES À JOUE LE HUIT DE TREFLE. 
CHRISTIAN À JOUE LE SEPT DE TREFLE. 
NASRI À JOUE LE QUATRE DE COEUR. 
L'ORDINATEUR À JOUE LE CINQ DE PIQUE. 
JACQUES A GAGNE LE TOUR # 1. 


TOUR # 2 (LA CARTE LA PLUS FATBLE GAGNE) 
QUELLE CARTE, JACQUES 


ses 

QUELLE CARTE, CHRISTIAN 
ssse 

QUELLE CARTE, NASRI 
ssst 


JACQUES A JOUE LE AS DE TREFLE. 
CHRISTIAN À JOUE LE TROIS DE COEUR. 
NASRI À JOUE LE QUATRE DE TREFLE. 
L'ORDINATEUR À JOUE LE AS DE COEUR. 
JACQUES A GAGNE LE TOUR # 2. 


TOUR # 3 (LA CARTE LA PLUS FORTE GAGNE) 
QUELLE CARTE, JACQUES 


ss. 

QUELLE CARTE, CHRISTIAN 
sssn 

QUELLE CARTE, NASRI 
ss. 


JACQUES A JOUE LE HUIT DE COEUR. 
CHRISTIAN À JOUE LE HUIT DE CARREAU. 
NASRI À JOUE LE CINQ DE COEUR. 
L'ORDINATEUR À JOUE LE CINQ DE CARREAU. 
TACQUES À GAGNE LE TOUR # 3. 


TOUR # 4 (LA CARTE LA PLUS FORTE GAGNE) 
QUELLE CARTE, JACQUES 
aF6€ 


QUELLE CARTE, CHRISTIAN 
ssss 

QUELLE CARTE, NASRI 
ssss 





JACQUES A JOUE LE SIX DE COEUR. 
CHRISTIAN À JOUE LE QUATRE DE CARREAU. 
NASRI À JOUE LE SEPT DE CARREAU. 
L'ORDINATEUR À JOUE LE SEPT DE PIQUE. 
L'ORDINATEUR À GAGNE LE TOUR # 4. 


TOUR # 5 (LA CARTE LA PLUS FAIBLE GAGNE) 
QUELLE CARTE, JACQUES 

ssss 

QUELLE CARTE, CHRISTIAN 

ssss 

QUELLE CARTE, NASRI 

ses 

JACQUES À JOUE LF DEUX DE CARREAU. 
CHRISTIAN À JOUE LE AS DE CARREAU. 
NASRI À JOUE LE TROIS DE PIQUE. 
L'ORDINATEUR À JOUE LE QUATRE DE PIQUE. 
CHRISTIAN À GAGNE LE TOUR # 5. 


TOUR # 6 (LA CARTE LA PLUS FAIBLE GAGNE) 
QUELLE CARTE, JACQUES 


sent 

QUELLE CARTE, CHRISTIAN 
LELL] 

QUELLE CARTE, NASRI 
ses 


JACQUES A JOUE LE TROIS DE TREFLE. 
CHRISTIAN A JOUE LE AS DE PIQUE. 

NASRI À JOUE LE DEUX DE TREFLE. 
L'ORDINATEUR À JOUE LE TROIS DE CARREAU. 
CHRISTIAN À GAGNE LE TOUR # 6. 


TOUR # 7 (LA CARTE LA PLUS FAIBLE GAGNE) 
QUELLE CARTE, JACQUES 





LA MAIN DE JACQUES: 


TRE CAR COEU  P1Q 
TA « a 4 Li A 
42 « « q a+ 92 
93 Lu «a Li 4 93 
f4 Li LI «a «a q4 
45 «a LI « LI 45 
“6 « « a T 16 
97 « « « Li 47 
«8 « « « a+ 98 


LA MAIN DE CHRISTIAN: 





LA MAIN DE NASRI: 





q ALI A Li 
ALI Li Li LU 

93 « « « T 93 
14 « « q T 4 
a5 LL Li Li T 45 
16 « q* Li T 6 
a7 Li A Lu 4 97 
LE] q Li LL q «8 
ete tete tes LA MAIN DE L'ORDINATEUR: 

TRE CAR COEU PIO 
A e « « « A 
12 « q Li f 92 
43 LL LL Li 4 93 
4 Li Li a T 4 
15 a* Li Li T 45 
16 Li Li LL f* 16 
q7 LL Li LL 4 97 
18 « ALI Li T 8 
QUELLE CARTE, JACQUES 
ssse 
QUELLE CARTE, CHRISTIAN 
LELL 
QUELLE CARTE, NASRI 
sese 


JACQUES À JOUE LE HUIT DE PIQUE. 

CHRISTIAN À JOUF LE SIX DE TREFLE. 

NASRI À JOUE LE DEUX DE COEUR. 

L'ORDINATEUR A JOUE LE CINQ DE TREFLE. 

NASRI À GAGNE LE TOUR # 7. 

JACQUES A JOUE LF DEUX DE PIQUE. 

CHRISTIAN A JOUE LE SEPT DE COEUR. 

NASRI À JOUE LE SIX DF CARREAU. 

L'ORDINATEUR A JOUE LE SIX DE PIQUE. 

JACQUES A GAGNE LE TOUR # &. 

SUR CETTE DONNE JACQUES A OBTENU 10 POINTS POUR UN TOTAL DE 10 
CHRISTIAN A OBTENU 4 POINTS POUR UN TOTAL DE 4 
NASRI À OBTENU 1 POINTS POUR UN TOTAL DE 1 
L'ORDINATEUR A OBTENU 1 POINTS POUR UN TOTAL DE 1 
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LA MAIN DE JACQUES: 


TRE CAR COEU PIO 





SA q* Li Li f* SA 
92 Li q* a T 92 
43 « ALI q* 1 93 
s4 q* A q T 4 
95 « q « T 95 
16 q* a* « 4 6 
27 Li LI q q* 47 
18 L LI LI T «8 
ee ee EeEeS = LA MAIN DE CHRISTIAN: 
TRE CAR COEU PIQ 
SA LI Li q 4 SA 
42 Li « ax a+ 92 
3 as q « T 93 
«4 4 a+ « 1* 4 
s LE « « q* 5 
16 L Li LA T 6 
«7 « «a A 4 47 
18 LI Li «a T 8 
ES EEE para = LA MAIN DE NASRI: 
COEU PIQ 
sA Li LES 4 A 
2 LI « 1 «2 
LE] Li LI 1 9 
LP « CE 4 
45 « « 4 
CT: « « 4 6 
7 « CL 4 97 
+8 LA LAS 1 
——————————————— —_————_——— LA MAIN DE L'ORDINATEUR: 
TRE CAR COEU PIQ 
<A « LE] « 4 TA 
22 q* Li 4 4 92 
3 LI 4 4 + 93 
4 LI « LI 4 4 
«5 « « q* 4 45 
46 LI « Li q* 46 
«7 q* LAS Li 1 47 
s8 LI Li LI 1* 8 





TOUR # 1 (LA CARTE LA PLUS FORTE GAGNE) 
QUELLE CARTE, JACQUES 
sus 


PRINT CHR$(26);TAB(27)"OCTRIX" 

PRINT TAB(20)"CREATIVE COMPUTING" 
PRINT TAB(18)"MORRISTOWN, NEW JERSEY" 
PRINT 

PRINT 


SIA U UN 


10 DIM A(32),P(4,9),C$(255),0(4,11),1$(72) 

11 DIM N$(72),Y(72) 

40 RESTORE 

50 FOR X=0 T0 7 

60 READ Y$(x) 

70 NEXT X 

80 FOR X=0 10 3 

90 READ X$(X) 

100 NEXT X 

110 DATA"AS", "DEUX", "TROIS", "QUATRE", "CINQ", "SIX", "SEPT", "HUIT" 

120 DATA"TREFLE", "CARREAU", "COEUR", "PIQUE" 

130 FOR X=0 TO 9 

140 READ T$(X) 

150 DATA "AM, M2" "3m m4 mg ngn 7, mg "FAIBLE", "FORTE" 

160 NEXT X 

170 PRINT"REGLES DU JEU (0 OÙ N)"; 

180 INPUT 7$ 

185 Z$=LEFT$(Z$,1) 

190 IF Z$<>"0" THEN 380 

200 PRINT:PRINT" CECI EST UN JEU APPELE OCTRIX.CHAQUE JOUEUR RECOIT 8" 
210 PRINT'CARTES MELANGEES,DE L'AS AU HUIT.LES CARTES SONT RANGEES " 
220 PRINT"DANS L'ORDRE DU BRIDGE ,DE TELLE SORTE QUE L'AS DE TREFLE EST" 
230 PRINT'LA CARTE LA PLUS FAIBLE ET LE HUIT DE PIQUE LA PLUS FORTE." 
240 PRINI"LE BUT EST DE GAGNER LE PLUS DE TOURS POSSIBLES PARMI LES " 
250 PRINT"HUIT.CHAQUE TOUR DETERMINE LES REGLES DE JEU DU SUIVANT." 
260 PRINT"SI LA CARTE LA PLUS FORTE ET LA CARTE LA PLUS FAIBLE SONT DE" 
270 PRINT"LA MEME COULEUR(NOIRE QU ROUGE),LE JEU SUIVANT SERA CELUI DE LA" 
280 PRINT"CARTE LA PLUS FORTE, SINON CELUI DE LA CARTE LA PLUS FAIBLE." 
290 PRINT"IL EST IMPORTANT DE BATIR UNE STRATEGIE AFIN DE GAGNER DES JEUX" 
295 PRINT"DE MANIERE CONSECUTIVE CAR ON MARQUE 1 POINT POUR UN TOUR ," 
300 PRINT"4 POUR DEUX,9 POUR 3,JUSQU'A 64 POUR LES 8." 

305 PRINT 

310 PRINT"  REPONDEZ RAPIDEMENT AUX QUESTIONS,EN TAPANT LA CARTE QUE" 
320 PRINT"VOUS VOULEZ JOUER GRACE A DEUX CARACTERES,LE PREMIER " 

330 PRINT"CORRESPONDANT À LA VALEUR DE LA CARTE (A À 8) ET LE SFCOND" 
335 PRINT "CORREPONDANT A LA COULEUR (T,K,C,P)." 





340 PRINT" (POUR AVOIR VOS CARTES RESTANTES, TAPER UN ‘P' COMME" 
350 PRINT" REPONSE A LA QUESTION : "QUELLE CARTE ?')" 

360 PRINT 

370 PRINT"VOILA,BONNE CHANCE ! 1" 

380 PRINT 


390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 


570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
795 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 


1000 


FOR X=1 TO 15 

READ Z 

MS=M$+CHR$(Z) 

NEXT X 

DATA 35,35,35,35,13,72,72,72,72,13,73,73,13,73,13 
19=88 


PRINT"'COMBIEN DE POINTS (O RENTRE LE NOMBRE HABITUEL DE 88)"; 


INPUT Z 

IF Z=0 THEN 490 
2927 
FOR X=0 TO 31 
ACX)=X 
NEXT x 
PRINT"'COMBIEN DE JOUEURS"; 
INPUT N 
N=INT(N) 

IF N>4 THEN 570 
IF N>0 THEN 590 


PRINT'SEULEMENT DE UN A QUATRE JOUEURS,SVP,A NOUVEAU." 


GOTO 520 
FOR X=0 TO N-1 

Q(X,0)=0 

PRINT "RENTRER LE NOM DU JOUEUR £"3X+1; 
INPUT N$(X) 
Y2LEN(N$(X)) 

FOR Z=1 TO Y 
T$=MIDS$S(NS(X),1,7-1) 

IF T$=" " THEN 680 

NEXT Z 

IF Z>1 THEN 710 
PRINTMNE PAS COMMENCER UN NOM PAR UN BLANC,RE-"; 
GOTO 610 
S$CX)=MIDÉ(NS(X),1,Z-1) 
NEXT X 

FOR J=0 TO 127 

c$(2)=" " 

NEXT J 

IF N=4 THEN 850 

IF N=1 THEN 810 
PRINT'PUIS-JE JOUER AUSSI (0 OÙ N)"; 
INPUT 2$ 

Z$=LEFT$(Z$,1) 

IF Z$C>"O" THEN 850 
S$CN)="L'ORDINATEUR" 
N$(N)="JE" 

Q(N,0)=0 

N=N+l 

FOR 1=0 TO 31 

X=A(1) 
Y=INT(RND(1)*(32-1)+#1) 
A(I)=A(Y) 

ACY)=x 

NEXT I 

FOR Y=0 TO 7 

FOR X=0 TO N-1 
P(X,Y)=A(Y#44x) 
CHCX*32#P(X,Y) ze" 
NEXT X 

NEXT Y 

Hz=1 

PRINT:G0SUB 1680 

FOR R=1 TO 7 


1010 FOR X=0 TO N-1 

1020 IF S$(X)="L'ORDINATEUR"THEN 2090 
1030 Z=Z*7 

1040 PRINT'QUELLE CARTE, "S$(x) 
1050 PRINT M$; 

1060 INPUT E$ 

1070 IF E$<>"P" THEN 1100 

1080 GOSUB 1680 

1090 GOTO 1040 

1100 Y=LEN(ES) 

1110 IF Y=2 THEN 1140 

1120 PRINT'MAUVAISE ENTREE ,RECOMMENCEZ." 
1130 GOTO 1050 

1140 Y$=MID$(E$,1,1) 

1150 Z$=MID$(E$,2,1) 

1160 IF VAL(Y$)>0 THEN 1190 
1170 IF Y$<>"A" THEN 1120 

1180 Y$="1" 

1190 Y=VAL(Y$) 

1200 IF Y=0 THEN 1120 

1210 IF Y>8 THEN 1120 

1220 Z=0 

1230 Q(X,10)=0 

1240 IF Z$="T" THEN 1320 

1250 723 

1260 IF Z$="P" THEN 1320 

1270 Q(X,10)=1 

1280 Z=1 

1290 IF Z$="K" THEN 1320 

1300 Z22 

1310 IF Z$<>"C" THEN 1120 

1320 Y=(Y-1)#4+7 

1330 IF C$(X*32#+Y)C"#" THEN 1120 
1340 Q(X,9)=Y 

1350 NEXT X 

1360 GOSUB 1880 

1370 NEXT R 

1380 FOR X=0 TO N-1 

1390 FOR Z=0 TO 31 

1400 IF C$(32#X+Z)="#" THEN 1430 
1410 NEXT Z 

1420 PRINT'DOMMAGE ." 

1430 C$(32#*X+Z)=" " 

1440 Q(X,9)22 

1450 NEXT X 


146, 
147 


R=8 
GOSUB 1880 


1480 H1=0 


PRINT:PRINT'TOUR £"3R;"(LA CARTE LA PLUS "T$(8+H)" GAGNE )" 
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1490 
1500 
1510 
1520 
1550 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1681 
1682 
1684 
1686 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1752 
1754 
1760 
1770 
1780 
1790 
179] 
1800 
1810 
1820 
1832 
1834 
1840 
1880 
1890 
1900 
1910 
1920 
1950 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2250 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 
2510 
2512 
2515 
2520 


PRINT"SUR CETTE DONNE ‘"; 
FOR X=0 TO N-1 

Q(x,9)20 

Y=0 

Z=0 

FOR R=1 T0 8 

Z=Z+Q(X,R) 

Q(X,R)20 

IF Q(X,R+1)C0 THEN 1600 
Y=Y+2#7 

Z=0 

NEXT R 

Q(xX,0)=Q(X,0)+Y 


PRINT N$(X)" A OBTENU";Y; "POINTS POUR UN TOTAL DE";Q(X,0) 


IF Q(H1,0)>Q(X,0) THEN 1650 

H1=X 

NEXT X 

IF Q(H1,0)>2Z9 THEN 2450 

GOTO 850 

FOR S=0 TO N-1 

S8=0 

S9223-(LEN(S$(S))+7) 

IF INT(S9/2)#2<C>S9 THEN S8=] 

S9=INT(S9/2) 

PRINT SPC(9+59);"LA MAIN DE":5$(S);":";SPC(59458); 
NEXT 5 

PRINT:PRINT 

FOR S=0 TO N-1 

PRINT" TRE CAR COEU  PIQ"; 

NEXT 5 

PRINT 

FOR S20 T0 N-1:PRINT US$; :NEXT 

PRINT 

FOR S=0 T0 7 

FOR Y=0 T0 N-1 
2=Y#32+5%4 
PRINT'Ü";T$(S);" 
PRINT" ü":C$(7+3); 
NEXT Y 

PRINT 1$(5) 

NEXT 5 

FOR S=0 T0 N-1:PRINT US$;:NEXT 

PRINT 

RETURN 

L1=0:H1=0 

FOR X2=0 TO N-1 

Y=INT(Q(X,9)/4) 

Z=Q(x,9)-v*4 

PRINT N$(X)" A JOUE LF "Y$(Y)" DE "x$(Z)"." 





ü";C$(Z+1);" 








C$(X*324#Q(X,9))=" 

IF Q(x,9)>Q(L1,9) THEN 1960 

LI=X 

IF Q(x,9)<Q(H1,9) THEN 1980 

H1=X 

NEXT X 

IF Hz] THEN 2030 

A(LI,R)=1 

PRINT N$(L1)" A GAGNE LE TOUR £";R;CHR$(8);"." 


GOTO 2050 
Q(H1,R)=1 

PRINT N$(H1)" A GAGNE LE TOUR £";R;CHR$(B)3"." 
H=0 

IF Q(L1,10)<>Q(H1,10) THEN 2080 
H=1 

RETURN 

L1=0:L2=0:H120:H220 

FOR S=0 TO N-2 

FOR 5120 T0 7 

IF P(S,S1)>P(L1,L2) THEN 2160 
IF C$(S*434P(S,S1))=" " THEN 2160 
L1=S 

L2=51 

IF P(S,S1)<P(H1,H2) THEN 2200 
IF C$(S*32#P(S,S1))=" " THEN 2200 
H1=S 

H2=51 

NEXT S1 

NEXT S 

FOR S=R-1 T0 7 

IF H=1 THEN 2280 

IF P(N-1,5)<P(L1,L2) THEN 2260 
GOTO 2290 

IF RAD(1)>.3 THEN 2380 

GOTO 2300 

IF P(N-1,5)>P(H1,H2) THEN 2260 
NEXT S 

H1232 

Y=INT(RND(1)*16+H#*16) 

FOR SI=R-1 T0 7 
LI=ABS(P(N-1,51)-Y) 

IF HI<L1 THEN 2370 

HI=L1 

S251 

NEXT S1 

Q(xX,9)=P(N-1,5) 
P(N-1,5)=P(N-1,R-1) 
Z=Q(X,9)-CINT(Q(X,9)/4)#4) 

IF Z<2 THEN 2430 

Z=ABS(Z-3) 

Q(x,10)=z 

GOTO 1360 

IF HDDN-2 THEN 2510 

FOR X=Hl+l TO N-1 

IF Q(H1,0)>Q(X,0) THEN 2500 


ù":C$(Z+2); 


PRINT"LE JEU A UN RESULTAT EX-AEQUO, APRES LE COMPTE DES POINTS" 


GOTO 850 
NEXT X 


PRINT N$(H1)"A GAGNE LE JEU.FELICITATIONS, "S$(H1)"." 


PRINT:PRINT 


LINE INPUT "RENTRER "RETURN AFIN DE REVENIR AU MONITEUR. "3XX$ 


END 


Pasart (Artpas) 





Description : 


Ce programme génère des figures basées sur le Triangle 
de Pascal. 


Commentaires : 


Le Triangle de Pascal est une des plus célèbres figures de 
nombres en mathématiques. ll est très facile à construire. Les 
deux premières lignes sont constituées de « 1 ». Toutes les 
suivantes commencent et se terminent par « 1 », les autres 
nombres sont la somme des deux nombres situés de part et 
d'autre dans la ligne précédente. Ci-dessous, vous avez un 
exemple de triangle à six lignes. 


1 
1 1 
1 2 1 
1 3 3 1 
1 4 6 4 1 
1 5 1010 51 


Le programme vous fournit trois options durant l'exécution 
qui sont : 

1) un seul Triangle de Pascal; 

2) deux Triangles de Pascal; 

8) quatre Triangles de Pascal. 


Vous pouvez aussi spécifier la taille du tableau et les 
multiples du nombre à supprimer. 

L'option 1) permet simplement d'obtenir une figure artis- 
tique formée par les positions relatives des multiples d'un 
nombre quelconque du tableau. Le sommet du tableau 
apparaît dans le coin supérieur gauche de la page. 

Ci-dessous un exemple d'utilisation par l'ordinateur d'un 
Triangle de Pascal pour créer une figure obtenue en éliminant 
les multiples de 2, à gauche : avant impression; à droite : 
après impression. 


1111 a 
123 4 PE: 
136 10 ne 
1 4 10 20 : 


Avant impression Après impression L 


L'option 2) permet la création à l'aide de deux Triangles de 
Pascal occupant les deux coins opposés d’un tableau carré. 
Ci-dessous, un exemple d'utilisation où l'ordinateur élimine 
les multiples de 2, à gauche : avant impression; à droite : 
après impression. 


11110 SA ee 
12301 DT PS 
13031 pre 
10321 , À, © 
01111 LAS 
Avant impression Après impression 


L'option 3) se sert de quatre Triangles de Pascal placés à 
chaque coin d’un carré. Voici un exemple de tableau 8 par 8, 
où l'ordinateur élimine les multiples de 2, à gauche : avant 
impression; à droite : après impression. 


1410141411 EN RR CETTE 
123 321 LS RS 
13 31 Le 2 
1 1 : : 
13 31 se ne 
124, 321 AE es 
TANT LI Rene 


Avant impression Après impression 


L'impression d'une figure de dimensions 36 par 36 
nécessite à peu près cinq minutes. 

Pasart et sa description sont de Charles A. Lund. Il parut 
pour la première fois dans Creative Computing, mars-avril 
1977. 


RUN 


ARTPAS 
CREATIVE COMPUTING 
MORRISTOWN NEW JERSEY 


CE PROGRAMME CREE DES DESSINS ARTISTIQUES,BASES SURLE TRIANGLE DE PASCAL 


VOUS AVEZ 3 TYPES DE TRIANGLE DE BASE : 
1. UN SEUL TRIANGLE DE PASCAL (DESSINE AVEC UN FLAMBOIE- 
MENT ARTISTIQUE) 
2. DEUX TRIANGLES DE PASCAL ‘ARTIS' IMPRIMES DOS A DOS 
3. QUATRE TRIANGLES ‘ARTIS' AUX COINS D'UN 

TABLEAU CARRE. 


QU'EST CE QUI VOUS FERAIT PLAISIR (1,2 OU 3)? 2 


QUELS MULTIPLES VOULEZ VOUS REPRESENTER AVEC DES BLANCS? 2 
COMBIEN DE LIGNES ET DE COLONNES DANS LE TABLEAU (<=36)? 36 


CR 

* * * * * * * * * * * * * * * * * 

CRE] CRE] “+ * + * + * + * + * * * 

* * * * * * * * * 

CE rs CRE] M 

* * * * * * * 

CRE] * + * + * + * 

* * * * + 

nn nn ARR nn * 

* * * * * * * * + 

“ “+ “+ * * * 

* * * LR 

CRE) * 

* * * 

“+ * * 

* “+ * + 

nm nn * * 

* * * * * * * + * + 

CR “ “+ * * * * * 

* * * Re 

CRE] “+ 

* * * 

CRE] * * 

* * * + 

nn nn * * 

* * * * * * * + 

CRE * + * * * * * * 

* * CR CRE 

CRE] * * * 

* * “+ * * * * 

“ * * * * * * * 

* + rs + CRE] * + 

. * * * * * * * 

* * * + * + * * * * CRE * * 

* * * * * * * * * * * * * * * * * 
tt. RO 
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6 6 6000 6 006 0 6 0 606 0 0 6 6 6 6 6 6 2% 6 6 


VOULEZ UN AUTRE? OUI VOULFZ UN AUTRE? OUI 


CE PROGRAMME CREE DES DESSINS ARTISTIQUES,BASES SURLE TRIANGLE DE PASCAL. CE PROGRAMME CREE DES DESSINS ARTISTIQUES,BASES SURLE TRIANGLE DE PASCAL. 


VOUS AVEZ 3 TYPES DE TRIANGLE DE BASE : VOUS AVEZ 3 TYPES DE TRIANGLE DE BASE : 
1. UN SEUL TRIANGLE DE PASCAL (DESSINE AVEC UN FLAMBOIE- 1. UN SEUL TRIANGLE DE PASCAL (DESSINE AVEC UN FLAMBOIE- 
MENT ARTISTIQUE) MENT ARTISTIQUE) 
2. DEUX TRIANGLES DE PASCAL 'ARTIS' IMPRIMES DOS A DOS 2. DEUX TRIANGLES DE PASCAL ‘ARTIS' IMPRIMES DOS A DOS 
3. QUATRE TRIANGLES ‘ARTIS' AUX COINS D'UN 3. QUATRE TRIANGLES ‘"ARTIS' AUX COINS D'UN 
TABLEAU CARRE. TABLEAU CARRE. 
QU'EST CE QUI VOUS FERAIT PLAISIR (1,2 OU 3)? 1 QU'EST CE QUI VOUS FERAIT PLAISIR (1,2 OU 3)? 3 
QUELS MULTIPLES VOULEZ VOUS REPRESENTER AVEC DES BLANCS? 2 QUELS MULTIPLES VOULEZ VOUS REPRESENTER AVEC DES BLANCS? 10 
COMBIEN DE LIGNES ET DE COLONNES DANS LE TABLEAU (<=36)? 36 COMBIEN DE LIGNES ET DE COLONNES DANS LE TABLEAU (<=36)? 36 





CR RER) renom nn + CR Ann x 
ms & * " < . Fe 5. $ A * * * « * * * * nan CREER nn nn nn 
* * * CRE] CRE] * + * CRE] CR CRE] … nn nn nn * * ann nn nn CE 
“ + K * + » « * * CRE] . * . … * “rs. “ 
Ut PRET PER US Sa... à . . * ss. CRC *  * 
à. à Fe s " re * * * * nn nn mm CE 
Se de Fer * * * . nn nn nn rs 
x " x * * . . * * CR * 
MR nn nn nn nn nn nn 
* * * * * * * * * … CRC * * 
ee BA S 5% nm CCR 
ï ie Fe nn nn nn 
PRE . * * CR 
" " LE CCE] 
os CR CR 
à . + 
OR nn CRE Re 
* * * * * * * * 
“+ “+ CE * Le 
à ns " * * + 
x CRE RoEre Pr 
" . . * CRE 
és : . * * * 
: " CCE] * * M * 
a SR ee nn nn nn 
# à Ÿ Ke nn nn ARR nn 
* * * * * CCE + * * 
Fi ‘ nn nn HR 
TR LC] CR * * M CCE 
K sl CCE CRE * + nn mn CCE 
es nn CCE HR mn 
Hé . * * * rs * CCE] 
PR CR CCE * * + … * + + 
" à A x . nm mm * * RO RR n n n n * . * 
ee pe nn mm nn nn nn nn * nn CRE 
" 4 nn mn où * + 
VOULEZ UN AUTRE? OUI VOULEZ UN AUTRE? OUI 


CE PROGRAMME CREE DES DESSINS ARTISTIQUES, BASES SURLE TRIANGLE DE PASCAL. CE PROGRAMME CREE DES DESSINS ARTISTIQUES,BASES SURLE TRIANGLE DE PASCAL. 


VOUS AVEZ 3 TYPES DE TRIANGLE DE BASE : VOUS AVEZ 3 TYPES DE TRIANGLE DE BASE : 
1. UN SEUL TRIANGLE DE PASCAL (DESSINE AVEC UN FLAMBOIE- 1. UN SEUL TRIANGLE DE PASCAL (DESSINE AVEC UN FLAMBOIE- 
MENT ARTISTIQUE) MENT ARTISTIQUE) 
2. DEUX TRIANGLES DE PASCAL "ARTIS' IMPRIMES DOS À DOS 2. DEUX TRIANGLES DE PASCAL ‘ARTIS' IMPRIMES DOS À DOS 
3. QUATRE TRIANGLES ‘ARTIS' AUX COINS D'UN 3. QUATRE TRIANGLES ‘ARTIS' AUX COINS D'UN 
TABLEAU CARRE. TABLEAU CARRE. 
QU'EST CE QUI VOUS FERAIT PLAISIR (1,2 OU 3)? 3 QU'EST CE QUI VOUS FERAIT PLAISIR (1,2 OU 3)? 1 
QUELS MULTIPLES VOULEZ VOUS REPRESENTER AVEC DES BLANCS? 3 QUELS MULTIPLES VOULEZ VOUS REPRESENTER AVEC DES BLANCS? 10 
COMBIEN DE LIGNES ET DE COLONNES DANS LE TABLEAU (<=36)? 36 COMBIEN DE LIGNES ET DE COLONNES DANS LE TABLEAU (<=36)? 36 


CCE] OR RR n ù ù sr * + ON M NN NN * 
* “+ * * * * + * + “+ * * *“ + “+ “ “ CR CRE nn CEE ARR 
* * * * * * * * * * * * + CE + + CR * 
RON * + nn CREER * + * * * CRE] “+ CRE] * CEE] * 
* + “+ * + * * “+ “ “ “ + * CCE] + * * + * M 
* * * * * * * * mm CE 
+ * + CRE] CCE] CRE] CCE M + M * CRE] * 
* * “+ “ CRE . M CRE] + + + * 
* * * * Ah nn  * * * CRE * + * + 

ARR * nn nm * * CRE * * + *  * * 

* + * “+ *“ “ CRE] CE “+ * * 

* * * * * * nm nn * * * CRE] 

nn nn CREER ts + “ * + 

* * “+ CRE] “ * * “ 

* * * * + * * 

* * CCE] nn mm 

* + * mm mm 

* * CEE CEE * * 

* * “+ . * + * 

* + CRE] * * + * * 

* * * * nn + 

* * * * CCE * 

* * LE] CRE] +  * 

nn + CREER. “ * 

* * * 2 * * nn nn * 

* + “+ * + “ + CRE] nm mn 

RAR nn nn nn nn 

* * * * * + 

LAC] * + * * rs * + 

* * * CRE . CCE] * * * 

* * * * * * * * nn nn 

* * “+ “+ * + * CRE] CRE CRE] CEE + 

LR + nn nn * nn nn nn 

* * * * * * * * * * * * * + 

* + * * + * + * + * * + “+ + “+ CRE] * LEE] “+ 

RO  mmm mm nn nn 
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VOULEZ UN AUTRE? OUI 268 P(R,C)=P(R,C-1)+P(R-1,C) 


278 GOTO 298 
CE PROGRAMME CREF DES DESSINS ARTISTIQUES, BASES SURLE TRIANGLE DE PASCAL. es “AE 
VOUS AVEZ 3 TYPES DE TRIANGLE DE BASE : 300 NEXT R 
1. UN SEUL TRIANGLE DE PASCAL (DESSINE AVEC UN FLAMBOIE- 310 REM TEMPS POUR REDESSINER LE TRIANGLE DE PASCAL AVEC UNE FLAMME ARTISTIQUE. 
MENT ARTISTIQUE) 320 FOR R=1 TO T 
2. DEUX TRIANGLES DE PASCAL 'ARTIS' IMPRIMES DOS À DOS 330 FOR C=1 TOT 
3. QUATRE TRIANGLES ‘ARTIS' AUX COINS D'UN 340 IF P(R,C)=0 THEN 380 
TABLEAU CARRE. 350 IF (P(R,C)/Q)=INT(P(R,C)/Q) THEN 380 
360 PRINT "* "; 
QU'EST CE QUI VOUS FERAIT PLAISIR (1,2 OU 3)? 3 378 GOTO 390 
380 PRINT " "; 
QUELS MULTIPLES VOULEZ VOUS REPRESENTER AVEC DES BLANCS? 17 390 NEXT C 
COMBIEN DE LIGNES ET DE COLONNES DANS LE TABLEAU (<=36)? 36 400 PRINT 
419 NEXT R 
420 GOTO 1250 
430 REM TEMPS POUR CREER ET IMPRIMER UNE DOUBLE PIECE DE ARTPAS 
RE 449 2=T 
RP RE ER nn mm 450 REM CONSTRUIRE LA MOITIE DU COIN GAUCHE SUPERIEUR DU TABLEAU. 
nn mm PR 468 LET N=Z 
nn mm nn nn mn 479 FOR R=1 TO N 
nn mm nn PR EE TT TE. 488 FOR C=1 TO Z-1 
nn mm mn nn nm 490 IF (R-1)*(C-1)=9 THEN 529 
Rues nn en PP TP SRE EEE 590 P(R,C)=P(R,C-1)+P(R-1,C) 
nn nn PR 510 GOTO 539 
nn nm du LRU es SEE CA 520 P(R,C)=1 
nn nus ss... 530 NEXT C 
MR nn nn 548 Z=Z-] 
ns ss... 550 NEXT R 
rs“ “…. 560 REM CONSTRUIRE LA MOITIE DROITE INFERIEURE DU TABLEAU. 
ns M 570 Z=N 
… RER 580 N=2 
à 590 FOR R=Z TO 1 STEP -1 
* . 600 FOR C=Z TO N STEP -1 
* . 619 IF (R-Z)*(C-Z)=0 THEN 649 
* « 628 P(R,C)=P(R,C+1)+P(R+1,C) 
* « 630 GOTO 650 
*. . 649 P(R,C)=1 
É he .. 658 NEXT C 
#0 #6 ……. 660 N=N+1 
M nn CRE 670 NEXT R 
ns ss. 688 GOTO 329 
CRE NE" ss. 690 M=Q 
A RER RS RTS Ge RS D € 708 REM CONSTRUIRE LA MOITIE GAUCHE SUPERIEURE DU COIN DU TABLEAU. 
mn mn CRE EEE 710 Y=T 
SAR Re ee 6 nn 726 Z=INT(Y/2) 
Re CRC 730 BS=2*2 
nn mm mn Re ue à 6 216 740 Z1=Z 
nn on Non 8 0 nn nm 750 22=21 
MR nn nn nm nn nn 760 Z3=22 
nn nn mm un num 778 X4=23 
one ess ess nn 788 X5=X4 
MR NS 0 NUS CNRC ON © Sn Noa ei à à à 0 0 nn à 0 © 6 on à 790 FOR 1=1 TO Z1 
808 FOR J=1 TO Z 
819 IF (J-1)*(1-1)=0 THEN 840 
820 P(I,J)=P(I,J-1)+P(1-1,J) 
839 GOTO 859 
840 P(I,J)=1 
859 NEXT J 
860 Z=Z-1 
870 NEXT I 
880 N=Z1 
1 PRINT CHRS (26) 899 REM CONSTRUIRE LA MOITIE DROITE SUPERIEURE DU COIN DU TABLEAU. 
2 PRINT TAB (24) ; "ARTPAS" 980 FOR I=1 TO 21 
4 PRINT TAB (18) ; "CREATIVE COMPUTING" 918 FOR J=Y TO X5+1 STEP -1 
6 PRINT TAB (16) ;"MORRISTONN NEW JERSEY" 920 IF I=1 THEN 960 
8 PRINT: PRINT 930 IF J=Y THEN 960 
20 DIM P(36,36) 948 P(I,J)=P(1,J41)+P(1-1,J) 
22 FOR Bl=1 TO 36 958 GOTO 978 
24 FOR B2=1 TO 36 969 P(I,J)=1 
26 P(B1,B2)=0 970 NEXT J 
28 NEXT B2 980 XS=X5+1 
30 NEXT B1l 998 NEXT I 
48 PRINT:PRINT"CE PROGRAMME CREE DES DESSINS ARTISTIQUES,BASES SUR"; 1000 N=22 
42 PRINT "LE TRIANGLE DE PASCAL." 1919 REM CONSTRUIRE LE COIN GAUCHE INFERIEUR DU TABLEAU 
43 PRINT 1920 FOR I=Y TO X4+1 STEP -1 
59 PRINT"VOUS AVEZ 3 TYPES DE TRIANGLE DE BASE :" 1930 FOR J=1 TO 22 
68 PRINT"1. UN SEUL TRIANGLE DE PASCAL (DESSINE AVEC UN FLAMBOIE-" 1949 IF J=1 THEN 1080 
65 PRINT"MENT ARTISTIQUE) " 1959 IF 1=Y THEN 1080 
70 PRINT"2. DEUX TRIANGLES DE PASCAL ‘ARTIS' IMPRIMES DOS À DOS" 1060 P(I,J)=P(I,J-1)+P(1+1,J) 
88 PRINT"3. QUATRE TRIANGLES 'ARTIS' AUX COINS D'UN" 1978 GOTO 1998 
98 PRINT"  TABLEAU CARRE." 1989 P(I1,J)=1 
95 PRINT 1999 NEXT J 
199 PRINT “QU'EST CE QUI VOUS FERAIT PLAISIR (1,2 OU 3)"; 1190 Z2=22-1 
119 INPUT O 1118 NEXT I 
129 IF (O-1)*(0-2)*(0-3) <> © THEN 190 1129 N=23 
125 PRINT 1139 REM CONSTRUIRE LE COIN DROIT INFERIEUR DU TABLEAU. 
139 PRINT"QUELS MULTIPLES VOULEZ VOUS REPRESENTER AVEC DES BLANCS"; 1148 FOR I=Y TO N+1 STEP -1 
148 INPUT Q 1158 FOR J=Y TO Z3+1 STEP -1 
159 PRINT"COMBIEN DE LIGNES ET DE COLONNES DANS LE TABLEAU (<=36)"; 1168 IF J=Y THEN 1299 
169 INPUT T 1178 IF I=Y THEN 1299 
165 PRINT: PRINT: PRINT 1188 P(1,J)=P(1+1,J)+P(I,J+1) 
178 IF T*(36-T) < © THEN 150 1199 GOTO 1219 
189 ON O GOTO 230,448,690 1288 P(I,J)=1 
199 REM 1219 NEXT J 
209 REM 1220 Z3=23+1 
219 REM TEMPS POUR CREER ET IMPRIMER UNE SEULE PIECE DE ARTPAS 1239 NEXT 1 
220 REM PREMIERE CONSTRUCTION LE TRIANGLE DE PASCAL 1249 GOTO 32 
239 FOR R=1 TOT 1258 PRINT:PRINT:PRINT:INPUT "VOULEZ UN AUTRE" ;ANSS 
249 FOR C=1 TO T 1266 IF LEFTS$(ANS$,1)="O" THEN 22 
259 IF (R-1)*(C-1)=0 THEN 289 1278 END 
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Pasart 2 (Artpas 2) 


Ce programme est une extension du 
programme originel Artpas. Il est pourvu 
de nombreuses options nouvelles, telle 
l'impression d’un calendrier pour 
n'importe quelle année comprise entre 
1600 et 2300. Il permet à l'utilisateur 
d'entrer un couple quelconque de 
caractères d'impression. La taille permise 
en sortie est limitée à 72 par 72. Vous 
avez la possibilité d'augmenter cette taille 
en découpant le triangle final en plusieurs 
morceaux de 72 par 72 qui peuvent être 
raccordés. L'option 6 vous permet de 




















dessiner une figure à l'aide de quatre QUE DESIREZ-VOUS (1,2,3,4,5,6 OU 7)? 4 
‘ L VOTRE DESSIN DEVRA METTRE EN VALEUR LES MULTIPLES DE QUEL NOMBRE? 4 
Triangles de Pascal formant un carré. QUEL EST LE CARACTERE QUE VOUS AIMERIEZ QUE L'ORDINATEUR TAPE 
A ñ POUR LES MULTIPLES DE 4 (ENTREZ ‘' ‘‘ POUR UN BLANC)? " " 
La place manque pour vous détailler QUEL EST LE CARACTERE QUE VOUS AIMERIEZ QUE L'ORDINATEUR TAPE 
toutes ces options. AUSsi nous vous POUR CHACUN DES AUTRES NOMBRES DANS LE MOTIF (ENTREZ ‘‘ ‘' POUR UN BLANC)? * 
; 4 ; COMBIEN DE LIGNES ET DE COLONNES DANS LE TABLEAU (36 EST MAX.)? 36 
laissons les découvrir. Essayez vous- VOUDRIEZ-VOUS UN CALENDRIER IMPRIME AVEC VOTRE DESSIN? OUI 
même, nous sommes sûrs que vous serez QUELLE ANNEE ENTRE 1600 ET 2300 AIMERIEZ-VOUS? 1982 
satisfait par les résultats spectaculaires. DESSIN CALCULE. SVP ATTENDEZ. .. 
Pasart 2 a lui aussi été écrit par Charles Tan Ds SSSR NT 200 ES 
A. Lund. RO M mn nn un nn nn 
memes neunes nunene muneus + vu 
Un den CR ER Ce 6 à .… 
emnmmnnss PTEPTT ETES * 
RUN . * nn un “* 
ARTPAS2 . . “. 
CREATIVE COMPUTING *  . …… 
MORRISTOWN, NEW JERSEY nn nn nn nn nn nn nn CR 
un mou non où où nee nue ms. 
menus ne ne neuves “us 
SR TE ennmsrus 
CE PROGRAMME CREE DES DESSINS ARTISTIQUES BASES SUR “…. …. …. CC 
LE TRIANGLE DE PASCAL. LES LE LES *. . 
VOULEZ-VOUS UNE LISTE ECRITE DES OPTIONS? OUI .. .. .. CCC 
* * . nenenmunusss 
ASSUREZ-VOUS QUE VOTRE IMPRIMANTE FONCTIONNE, ÉEPTELLEEEEE EEE TETE ss. 
PUIS FRAPPEZ ‘RETURN'. nn nn un un nn  nnnnnn mnnnns 
memnns munens Où où nus en ven vus 
“sx nnnnnnnnmnnnnnnn ne 
--- IMPRESSION --- PTERET ETES * * * 
+ + . po de 
. … . nes 
SVP,DECHIREZ CETTE LISTE ET CON&ERVEZ LA POUR Y REFERER * * * LEE] LEE) LEE 
0 0 0 0 LLLLLLLE) . * * + 
…. mnnne on ne uns 
… un mue où où où omux nus 
1. UN SIMPLE TRIANGLE DE PASCAL REPRESENTE AINSI: CR CELELEELLEELELLELLILLILILE) 
AVANT IMPRESSION APRES IMPRESSION TE CC . 
J1it CLP …. . . 
1253 * . nn nn nn 
136 LE “ nn nus 
LEE] + + . .* 
2. UN SIMPLE TRIANGLE DE PASCAL REPRESENTE AINSI: mu mnnunx mnnens nnunne neunes 
AVANT IMPRESSION APRES IMPRESSION un nun nun nun nus mun un mue us 
1 * mu ue ee ee 
1 1 LEZ 
121 PE CALENDRIER CALCULE. SVP ATTENDEZ... 
3. UN SIMPLE TRIANGLE DE PASCAL REPRESENTE AINSI: 
AVANT IMPRESSION APRES IMPRESSION 
1 * JUIN 1982 
1 2 l * * ERSSSSSESESEESSSESSSSSEESEUEUENEUEEELEMEMME 
1153-31 ……… DIM LUN MAR MER JEU VEN SAMS4 
anamnsssscncssssssssssssssus= 
4. 2 TRIANGLES DE PASCAL IMPRIMES DOS À DOS AINSI: 1 2 3 4 5 
AVANT IMPRESSION APRES IMPRESSION 6 7 8 9 10 11 12 
1110 … 13 14 15 16 17 18 19 
1201 * + 20 21 22 23 24 25 26 
1021 * + 27 28 29 30 
0 ù à 1 1 LEE] ZE2SSRSSESSSSSSLSSSLESE=SELELELEULELSLELEZ 
5. 4 TRIANGLES DE PASCAL IMPRIMES DANS UN CARRE AINSI: 
AVANT IMPRESSION APRES IMPRESSION 
111111 DETTE JUIL 1982 
1 2 2: * * mm=snsns2===s2nnnnnn====ssnnsammzznx=22s 
1 1 * * SDIM LUN MAR MER JEU VEN  SAMS 
 . 1 * * EZSS2SS222S22S2SSSS2SLSS22=2S2SS=2LLLE=E==UZE 
12 21 * * 1 2 3 
111111 LELLLES 4 5 6 7 8 9 10 
11 12 13 14 15 16 17 
6. 4 TRIANGLES DE PASCAL IMPRIMES DANS UN CARRE AINSI: 18 19 20 21 22 23 24 
AVANT IMPRESSION APRES IMPRESSION 25 26 27 28 29 30 31 
LhELTA LLLLLE) 
11 » 3 3 2 l tr * S22222222=2=222222z2z= 
136631 + 
136631 “* 
123321 ss. 
41-411 1 LLELEL AOÛT 1982 
Sismssss-osesenn ec =sssss cesser nus 
7. DEBUT D'UN TRIANGLE DE PASCAL DANS UNE QUELCONQUE LIGNE DIM LUN MAR MER JEU VEN SAM 
OU COLONNE,DE TELTE MANIERE QU'UN UTILISATEUR PUISSE TAPER RENAN EESESESENENNENEERSRENERREENEREN NES 
ENSEMBLE PLUSIEURS DESSINS,POUR EN FAIRE UN PLUS GRAND. 1 2 3 4 5 6 7 
CETTE OPTION PERMET DES DESSINS COMME CEUX MONTRES EN OPTION 8 9 10 11 12 13 14 
1,EN CARACTERES 36 X 36. DES ENTREES DE COLONNES OU DE LIGNES 15 16 17 18 19 20 21 
DE PLUS DE 1000 SONT ACCEPTEES. 22 23 24 25 26 27 28 
29 30 31 
Dimmnesssssmimmssés ss ses 2. 
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19 PRINT CHRS (26) ; TAB (25) ; "ARTPAS2" 

29 PRINT TAB (28) ; "CREATIVE COMPUTING* 

39 PRINT TAB (18) ; "MORRISTOWN, NEW JERSEY" 

48 PRINT:PRINT:PRINT 

59 REM *** CE PROGRAMME DEMANDE ENVIRON 16K D'ESPACE-TRAVAIL LIBRE. 
68 REM *** POUR OBTENIR DE PLUS GRANDS DESSINS,AUGMENTEZ LE TABLEAU 
70 REM *** EN LIGNE 118 JUSQU'A P(72,72) 

110 DIM P(36,36) 

139 PRINT "CE PROGRAMME CREE DES DESSINS ARTISTIQUES BASES SUR" 

135 PRINT "LE TRIANGLE DE PASCAL." 

149 PRINT "VOULEZ-VOUS UNE LISTE ECRITE DES OPTIONS"; 

158 INPUT S1$ 

170 IF LEFT$(S1$,1)<>"O" THEN 639 

172 PRINT:PRINT "ASSUREZ-VOUS QUE VOTRE IMPRIMANTE FONCTIONNE, * 

174 LINE INPUT "PUIS FRAPPEZ 'RETURN'. ";XXS 

176 PRINT:PRINT:PRINT "-—— IMPRESSION ——":PRINT: PRINT 

180 LPRINT. "SVP,DECHIREZ CETTE LISTE ET CONSERVEZ LA POUR Y REFERER" 
198 LPRINT " e, 
192 LPRINT:LPRINT 

280 LPRINT "l. UN SIMPLE TRIANGLE DE PASCAL REPRESENTE AINSI :" 





214 LPRINT " AVANT IMPRESSION APRES IMPRESSION" 
220 LPRINT " LL 1 .." 

230 LPRINT " 123 *.. 

240 LPRINT " 136 fee 

242 LPRINT 


250 LPRINT "2. UN SIMPLE TRIANGLE DE PASCAL REPRESENTE AINSI :" 
268 LPRINT AVANT IMPRESSION APRES IMPRESSION" 
270 LPRINT 1 . 

280 LPRINT 1 
290 LPRINT 1 
292 LPRINT 


300-LPRINT 27 
310 cPRINT > 0) SIRET FAMREE PEN P SCA BEPRRRRRTE TON 
328 LPRINT " 1 #n 

330 LPRINT " 121 SIA 

34@ LPRINT " 1:3:3;1 Axe" 

342 LPRINT 

358 LPRINT "4. 2 TRIANGLES DE PASCAL IMPRIMES DOS À DOS AINSI:"* 


CELUI 


1 
21 * 


368 LPRINT " AVANT IMPRESSION APRES IMPRESSION" 
370 LPRINT " 1119 pee” 

380 LPRINT " 1281 Hat 

390 LPRINT " 1821 re 

40@ LPRINT " 8111 LE Le 

402 LPRINT 


419 LPRINT "5. 4 TRIANGLES DE PASCAL IMPRIMES DANS UN CARRE AINSI:" 


420 LPRINT " AVANT IMPRESSION APRES IMPRESSION" 
438 LPRINT * 111111 as. 

440 LPRINT " 12 21 * se 

450 LPRINT " 1 l * #” 

468 LPRINT " 1 1 * * 

47@ LPRINT * 12 21 Le Le 

484 LPRINT " 1142 1 El sanrrer 

482 LPRINT 

494 LPRINT "6. 4 TRIANGLES DE PASCAL IMPRIMES DANS UN CARRE AINSI :" 
500 LPRINT " AVANT IMPRESSION APRES IMPRESSION" 
S10 LPRINT " + As T1 tarte 

520 LPRINT " 123321 RARE 

530 LPRINT “ 136631 MR. 

S40 LPRINT " 136631 LA L Le 

550 LPRINT * 123321 a 

560 LPRINT " À. 1.7? 1 AE arr" 

562 LPRINT 


578 LPRINT “7. DEBUT D'UN TRIANGLE DE PASCAL DANS UNE QUELCONQUE LIGNE" 


580 LPRINT “ OU COLONNE,DE TELLE MANIERE QU'UN UTILISATEUR PUISSE TAPER" 
594 LPRINT " ENSEMBLE PLUSIEURS DESSINS,POUR EN FAIRE UN PLUS GRAND." 

690 LPRINT " CETTE OPTION PERMET DES DESSINS COMME CEUX MONTRES EN OPTION" 
618 LPRINT * 1,EN CARACTERES 36 X 36. DES ENTREES DE COLONNES OÙ DE LIGNES" 
611 LPRINT " DE PLUS DE 1908 SONT ACCEPTEES." 


612 LPRINT 

C0 PRINT ————— 
622 LPRINT CHRS (12) 

630 PRINT “QUE DESIREZ-VOUS (1,2,3,4,5,6 OÙ 7)"; 

648 INPUT O 

650 IF O<=7 AND O>=]l THEN 660 

655 PRINT"JE SUIS SENSE ETRE VOTRE AMI,ALORS UN PEU DE SERIEUX:":GOTO 630 
668 PRINT "VOTRE DESSIN DEVRA METTRE EN VALEUR LES MULTIPLES DE QUEL NOMBRE"; 
678 INPUT Q 

689 PRINT"QUEL EST LE CARACTERE QUE VOUS AIMERIEZ QUE L'ORDINATEUR TAPE* 
694 PRINT "POUR LES MULTIPLES DE";Q;" (ENTREZ ‘' ‘' POUR UN BLANC)"; 

709 INPUT S$ 

714 PRINT'QUEL EST LE CARACTERE QUE VOUS AIMERIEZ QUE L'ORDINATEUR TAPE* 
720 PRINT "POUR CHACUN DES AUTRES NOMBRES DANS LE MOTIF (ENTREZ ‘' ‘* POUR UN BLANC)"; 
730 INPUT TS 

749 IF O=7 THEN 780 

758 PRINT "COMBIEN DE LIGNES ET DE COLONNES DANS LE TABLEAU (36 EST MAX.) "; 
768 INPUT T 

770 IF T>36 THEN PRINT "SOYEZ RAISONABLE!":GOTO 759 

788 PRINT "VOUDRIEZ-VOUS UN CALENDRIER IMPRIME AVEC VOTRE DESSIN"; 

809 INPUT RSS 

819 IF LEFTS(RS$, 1) <>"O" THEN 849 

820 PRINT "QUELLE ANNEE ENTRE 1600 ET 2309 AIMERIEZ-VOUS"; 

838 INPUT Y9 

840 IF Y9*(3299-Y9) <=0 THEN PRINT "MOI AUSSI JE FAIS DES ERREURS! ":GOTO 828 
849 PRINT:PRINT "DESSIN CALCULE. SVP ATTENDEZ. . .":PRINT 

858 ON O GOTO 948,2198,2330,1219,1518,1510,2558 

928 REM TEMPS POUR CREER ET IMPRIMER UNE SEULE PIECE DE ARTPAS 

930 REM D'ABORD CONSTRUIRE LE TRIANGLE DE PASCAL 

948 FOR R=1 TO T 

958 FOR C=1 TO T 

969 IF (R-1)*(C-1)=9 THEN 1919 

978 P(R,C)=P(R-1,C)+P(R,C-1) 

980 IF P(R,C) <0*Q0*Q THEN 1928 

999 P(R,C)=P (R,C)-0*Q 

1999 GOTO 989 

1918 P(R,C)=1 

1928 NEXT C 

1930 NEXT R 

1048 REM TEMPS POUR DESSINER LE TRIANGLE AVEC UNE FLAMME ARTISTIQUE 

1959 IF O<>3 THEN 1970 

1969 LET T=T*2-1l 

1979 FOR R=1 TO T 

1989 FOR C=1 TO T 

1998 IF P(R,C)=9 THEN 1139 
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1199 IF(P(R,C)/O-INT(P (R,C) /0) )*Q<.95 THEN 1139 
1119 LPRINT TS; 

1128 GOTO 1149 

1130 LPRINT S$; 

1149 NEXT C 

1150 LPRINT 

1168 NEXT R 

1176 IF LEFTS(R5$,1)="O" THEN 3269 
1188 GOTO 3718 

1198 REM OPTION 4 LIGNES 1219-1499 
1290 REM TEMPS POUR CREER ET IMPRIMER UNE PIECE DOUBLE DE ARTPAS 
1219 2=T 

1229 REM CONSTRUIRE LE COIN GAUCHE SUPERIEUR DU TABLEAU 
1239 LET N=Z 

1240 FOR R=1 TO N 

1259 FOR C=1 TO Z-1 

1260 IF (R-1)*(C-1)=9 THEN 1319 
1274 P(R,C)=P(R-1,C)+P(R,C-1) 

1289 IF P(R,C) <0*O*Q THEN 1329 
1299 P(R,C)=P(R,C)-Q*Q 

1390 GOTO 1284 

1310 P(R,C)=1 

1329 NEXT C 

1330 Z=2-1 

1348 NEXT R 

1350 REM CONSTRUIRE LA MOITIE INFERIEURE DROITE DU TABLEAU 
1360 Z=N 

1370 N=2 

1389 FOR R=Z TO 1 STEP -1 

1399 FOR C=Z TO N STEP -1 

1400 IF (R-Z)*(C-Z)=0 THEN 1459 
1419 P(R,C)=P(R,C+1)+P (R+1,C) 

1420 IF P(R,C)<Q*O*Q THEN 1469 
1430 P(R,C)=P (R,C)-Q0*Q 

1440 GOTO 1428 

1459 P(R,C)=1 

1464 NEXT C 

1474 N=N+1 

1489 NEXT R 

1499 GOTO 1970 

1598 REM OPTIONS 5 ET 6 LIGNES 1594-2120 
1519 M=Q 

1528 REM CONSTRUIRE LE COIN GAUCHE SUPERIEURE DU TABLEAU 
1539 Y=T 

1548 Z=INT(Y/2) 

1550 B5=Z#2 

1560 Z1=Z 

1570 Z2=71 

1584 Z3=72 

1590 X4=23 

1609 X5=X4 

1618 FOR I=1 TO Z1 

1629 FOR J=1 TO Z 

1639 IF (J-1)*(I-1)=0 THEN 1680 
1649 P(I,J)=P(I,J=-1)+P(I-1,J) 

1658 IF P(I,J) <Q*0*Q THEN 1698 
1660 P(1,J)=P(1,J)-Q*Q 

1670 GOTO 1659 

1689 P(1,J)=1 

1698 NEXT J 

1790 IF O=6 THEN 1729 

1710 Z=2-1 

1729 NEXT I 

1738 N=21 

1749 REM CONSTRUIRE LE COIN DROIT SUPERIEUR DU TABLEAU 
1750 FOR I=1 TO Z1 

1769 FOR J=Y TO X5+1 STEP -1 

1770 IF I=1 THEN 1830 

1780 IF J=Y THEN 1830 

1790 P(I,J)=P(1,J+1)+P(I-1,J) 

1800 IF P(I,J)<Q*O*Q THEN 1849 
1819 P(I,J)=P(1,J)=Q*Q 

1829 GOTO 1898 

1830 P(I,J)=1 

1848 NEXT J 

1859 IF O=6 THEN 1870 

1868 X5=X5+1 

1870 NEXT I 

1880 N=22 

1898 REM CONSTRUIRE LE COIN GAUCHE INFERIEUR DU TABLEAU 
1909 FOR I=Y TO X4+1 STEP -1 

1918 FOR J=1 TO Z2 

1929 IF J=1 THEN 1989 

1939 IF I=Y THEN 1980 

1949 P(I1,J)=P(1,J-1)+P (1+1,J) 

1958 IF P(1,J)<Q*0*Q THEN 1998 
1968 P(I,J)=P(I,J)-0*Q 

1979 GOTO 1958 

1980 P(I,J)=1 

1999 NEXT J 

2006 IF O=6 THEN 2020 

2819 Z2=22-1 

2820 NEXT I 

2830 N=23 

2048 REM CONSTRUIRE LE COIN DROIT INFERIEUR DU TABLEAU 
2859 FOR I=Y TO N+1 STEP -1 

2069 FOR J=Y TO Z3+1 STEP -1 

2876 IF J=Y THEN 2130 

2080 IF I=Y THEN 2130 

2090 P(I,J)=P(I+1,J)+P(I,J+1) 

2108 IF P(I,J) <0*Q0*Q THEN 2148 
2118 P(I,J)=P(1,J)-0*Q 

2128 GOTO 2188 

2138 P(I,J)=1 

2148 NEXT J 

2158 IF O=6 THEN 2178 

2160 23=23+1 

2176 NEXT I 

2188 GOTO 1978 

2199 REM FORMPAS C OPTION 2 LIGNES 2158-2269 
2268 FOR R=1 TO T 

2218 FOR C=1 TOT 

2226 IF COR THEN 2398 


2230 IF(C-1)=9 THEN 2299 2998 GOTO 2978 





2248 IF R=C THEN 2299 3009 NEXT C 
2258 LET P(R,C)=P(R-1,C-1)+P (R-1,C) 3019 REM #*** IF TIM(1)-T<6 THEN 3039 
2260-FF P(R,C) <Q*Q*Q THEN 2398 3020 GOSUB 3218 
2278 LET P(R,C)=P (R,C)-0*0 3030 NEXT R 
2289 GOTO 2268 3049 GOSUB 3214 
2299 LET P(R,C)=1 3058 LPRINT 
2308 NEXT C 3064 LPRINT 
2319 NET R 3070 FOR R=1 TO 79 
2320 GOTO 1848 3080 FOR C=1 TO 79 
2330 REM FORMPAS À OPTION 3 LIGNES 2298-2489 3090 IF (P(R,C)/Q-INT(P(R,C)/Q))*0<.98 THEN 3129 
2349 IF T<=36 THEN 2379 3109 LPRINT TS; 
2358 PRINT:PRINT"UN MAX. DE 36 LIGNES EST AUTORISE AVEC CETTE OPTION. .LES VOILA": 3119 GOTO 3134 
PRINT 3128 LPRINT S$; 
2368 LET T=36 3139 NEXT C 
2370 LET P(1,T)=1 3140 REM *** IF TIM(1)-T<6 THEN 3168 
2389 FOR R=2 TO T 3154 GOSUB 3219 
2398 LET C=1 3160 LPRINT 
2400 IF C>T*2-1 THEN 2539 3174 NEXT R 
2419 IF R4C=T+1 THEN 2479 3180 LPRINT 
2420 IF C=1 THEN 2489 3190 LPRINT 
2430 LET P(R,C)=P(R-1,C-1)+P(R-1,C+1) 3209 GOTO 1179 
2449 IF P(R,C) <O*O*Q THEN 2489 3219 LPRINT " "; 
2459 LET P(R,C)=P(R,C)-Q*Q 3220 REM *#** LINPUT AS 
2469 GOTO 2449 3230 REM *** T=-TIM(1) 
2470 LET P(R,C)=1 3249 RETURN 
2489 IF R4C<T+1 THEN 2519 3250 GOTO 1170 
2498 LET C=C+2 3260 REM CALENDRIER 
2508 GOTO 2498 3265 LPRINT CHRS (12) 
2519 LET C=C+l 3266 PRINT:PRINT"CALENDRIER CALCULE. SVP ATTENDEZ...":PRINT 
2526 GOTO 2489 3278 LET X=Y9 
2538 NEXT R 3280 REM LIGNES 3240-3649 PRODUIRE UN CALENDRIER 
2548 GOTO 1049 3290 REM LE PROGRAMME EST UN SOUSPROGRAMME QUI UTILISE LA VARIABLE X=ANNEE DU CALENDRIER 
2550 REM OPTION 7 LIGNES 2549-3199 3304 REM 
2570 REM POUSSEZ LES LIMITES 3310 C=6 
2580 REM NOTEZ LA PROTECTION CONTRE LES PROBLEMES DE SORTIE-TEMPS EN UNIV 1119 3320 FOR J=1600 TO X STEP 1 
2599 PRINT:PRINT"QUELLES SERONT LES COORDONNEES (R,C) DU COIN GAUCHE SUP." 3330 IF J=X THEN 3390 
2609 PRINT "DE CETTE SECTION"; 3340 IF J/4 <> INT(J/4) THEN 3389 
2619 INPUT R1,C1 3358 IF (J-1700) *(J-1808) * (J-1908) * (J-2108) * (J-2208) *(J-2308)=0 THEN 3389 
2624 DIM R(1998),C(1004) 3360 C=C+2 
2630 REM *** T=TIM(1) 3378 GOTO 3399 
2640 FOR L1=1 TO 72:FOR L2=1 TO 72:P(L1,L2)=Q:NEXT L2:NEXT LI 3389 C=C+1 
2659 FOR L2=1 TO 1999:R(L2)=1:C(L2)=1:NEXT L2 3399 IF C<7 THEN 3419 
2670 IF Rl=1 THEN 2780 3408 C=C-7 
2689 FOR R=2 TO R1 3414 NEXT J 
2698 FOR C=2 TO C1+72 3420 LPRINT 
2709 R(C)=R(C)+R(C-1) 3430 FOR R=1 TO 12 
2719 IF R(C) <0*Q*Q THEN 2748 3449 READ AS 
2728 R(C)=R (C)-0*Q 3458 LPRINT TAB(17);AS;" ";X 
2730 GOTO 2719 3460 READ B 
2740 NEXT C 3478 IF X/4 <> INT(X/4) THEN 3590 
2750 REM *** IF TIM(1)-T<6 THEN 2770 3488 IF A$ <> "FEVRIER" THEN 3500 
2760 GOSUB 3219 3498 LET B=B+]1 
2778 NEXT R 3510 LPRINT "=== 2=2=2=22=====°" 
2789 IF Cl=1 THEN 2900 3520 LPRINT "IDIM LUN MAR MER JEU VEN SAMI" 
279 FOR C=2 TO C1 3530 LPRINT "====—= =n==s=s=====222222-222--.-22" 
2890 C(R1)=R (C) 3549 FOR D=1 TO B 
2810 FOR R=Rl+1 TO R1+72 3556 LPRINT TAB (6*C) ;:LPRINT USING " ##";D; 
2829 C(R)=C(R)+C(R-1) 3568 LET C=C+1 
2839 IF C(R) <Q*0*O THEN 2868 : 3570 IF C<7 THEN 3608 
2849 C(R)=C (R)-0*Q N 3588 LPRINT 
2859 GOTO 2839 3599 C=0 
2860 NEXT R 3609 NEXT D 
2870 REM *** IF TIM(1)-T<6 THEN 2899 3619 LPRINT 
2889 GOSUB 3214 3620 LPRINT "===2œ2===s=2s=2=2=2=======2====2s===" 
2890 NEXT C 3634 FOR XX=1 TO 3 
2980 FOR C=1 TO 72 3648 LPRINT 
2910 P(1,C)=R(C#C1-1) 3650 NEXT XX 
2920 P(C,1)=C(C4#R1-1) 3668 NEXT R 
2939 NEXT C 3665 LPRINT CHRS (12) 
294 FOR R=2 TO 72 3670 DATA "JANVIER" ,31,"FEVRIER ",28,"MARS ",31,"AVRIL",30,"MAI",31 
2958 FOR C=2 TO 72 3680 DATA "JUIN" ,30,"JUIL",31,"AOUT" ,31, "SEPTEMBRE" ,39, "OCTOBRE" ,31 
2968 P(R,C)=P(R=1,C)+P (R,C=1) 3699 DATA "NOVEMBRE" ,30, "DECEMBRE" ,31 
2970 IF P(R,C)<Q*Q*Q THEN 3009 3700 REM À FIN 
2984 P(R,C)=P (R,C)-0*0 3718 END 
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Pinball (Flipper) 


PINBALL est une simulation d’un jeu de 
Flipper — comprenant les sons si votre 
terminal peut les faire — au cours de 
laquelle votre ordinateur prend la place du 
Flipper. Et vous n'avez même pas à y 
mettre de pièces de un Franc! Le pro- 
gramme se divise en dix petits sous- 
programmes. Chaque sous-programme 
accomplit une partie de la simulation d’un 
Flipper. 

Voici des détails sur chacun des sous- 
programmes. 


1) Commencer et contrôler le jeu. 

Cette tâche est accomplie par le pro- 
gramme principal FLIPPER, contenu dans 
les lignes 1-600 du programme. Flipper 
demande si l'utilisateur veut des instruc- 
tions ou un dessin au début du jeu, met en 
jeu chaque nouvelle boule, la déplace 
jusqu’à ce qu'elle heurte un obstacle, et 
annonce à l'utilisateur quand il a terminé 
et s'il a battu le meilleur score. 


2) Impression des instructions. 

Ce sous-programme est entre les lignes 
1010 et 1099, et son but principal est 
d'imprimer les instructions du Flipper et de 
se brancher ensuite sur le programme de 
dessin pour imprimer un dessin du 
Flipper. Après que le dessin soit terminé, 
ce sous-programme explique la significa- 
tion de chaque symbole sur le dessin. 


3) Compter les points et enregistrer 
les nouveaux scores. 

Les lignes 2010-3099 ont pour mission 
de rentrer en action chaque fois que 
l'espace occupé par la boule n'est pas 
blanc. Ces lignes préparent aussi la table 
du Flipper à entrer en action pendant le 
sous-programme suivant, c'est-à-dire 
actionner les flippers de la table quand la 
boule s’en approche. 


4) Actionner les flippers. 

Cette tâche est accomplie par les lignes 
4010-4999. Ces lignes mettent aussi en 
place des indicateurs pour le programme 
principal (1 ci-dessus), pour mettre en jeu 
une nouvelle boule si nécessaire et bran- 
chent le sous-programme qui additionne 
les bonus quand les cibles (lettres A-J) ont 
été descendues en une boule. 


5) Bonus à la fin d’une boule. 

Les lignes 5010-5999 les comptent et 
se branchent alors sur le programme 
principal pour mettre en jeu une nouvelle 
boule. Si dix cibles ont été descendues en 
une boule, le programme délivre instanta- 
nément un bonus de 250 points et un 
« extra-ball » au joueur et réinitialise les 
cibles pour la partie suivante. Des bonus 
de dix points par cible sont normalement 
délivrés à la fin d'une boule. 


6) Impression du dessin du Flipper. 

Les lignes 6010-6999 impriment un 
dessin de la table du Flipper, au début de 
la partie ainsi qu’au hasard, tous les 
vingt-cinq « COUPS ». 


7) Rebonds de la boule sur 
bumpers et le jackpot. 
La boule «rebondit» dans la partie 
commençant en ligne 7850. 


8) Initialisation de la table. 
La table est initialisée au début du jeu 
par les lignes 9010-9999. 


les 


FLIPPER 


Suggestions pour des modifications et 

des améliorations. 

1) Modifiez la table selon vos désirs en 
insérant où détruisant des bumpers, 
des jackpots, des portes (chiffres, 
actuellement 1-9 et les 0), etc. Vous 
pouvez aussi déplacer n'importe 
quelle partie de la table sauf les trois 
flippers. 

2) Programmez de nouvelles sortes 
d'objets sur le flipper. 

8) Si votre système le permet, insérez 
dans le programme quelques musi- 
ques de synthétiseur pour augmenter 
le réalisme ! 


Flipper a été conçu et écrit par Donald- 
Bruce Abrams. 


CREATIVE COMPUTING 
MORRISTOWN, NEW JERSEY 


BIENVENUE SUR L'ORDINATEUR FLIPPERI! 


DESIREZ VOUS DES INSTRUCTIONS POUR CE 


JEU FANTASTIQUE? OUI 


LES REGLES DU FLIPPER SUR ORDINATEUR SONT SIMPLES. 
SI VOUS MARQUEZ PLUS DE 160 POINTS VOUS OBTENEZ UNE SIXIEME 
VOUS OBTENEZ UNE SEPTIEME BOULE. 


CINQ BOULES. 
BOULE, PLUS DE 2200, 
CETTE TABLE A TROIS FLIPPERS, 
MAIS CE JEU DIFFERE DES AUTRES, CAR 
DEUX DES FLIPPERS A CHAQUE FOIS QUE 
NOTA BENE: 
ET SI VOUS ACTIONNEZ LES MAUVAIS FLI 
BOULE SUIVANTE EST LANCEE. 


VOUS AVEZ EN TOUT 


CHACUN D'EUX PROTEGE UNE SORTIE. 


VOUS NE POUVEZ ACTIONNER QUE 
LA BOULE VA SORTIR. 


VOUS NE POUVEZ SAVOIR OU SE TROUVE LA BOULEIII 


PPERS, VOUS PERDEZ LA BOULE ET LA 


VOUS POUVEZ AVOIR UN DESSIN DE LA TABLE À CHAQUE FOIS QUE LA 


BOULE TOUCHE UN OBJET, 
SE TROUVE LA ROULE À CHAQUE FOIS QU" 


ET CELA PEUT VOUS AIDER. 


ON VOUS DIT AUSSI OÙ 
ELLE TOUCHE (MEME SI VOUS N'AVEZ 


PAS DE DESSIN).LA LOGIQUE ET LA CHANCE JOUENT DANS LE CHOIX DES FLIPPERS. 


LES NUMEROS DES FLIPPERS SONT 1,2, 
REPRESENTES SUR LE DESSIN PAR ‘'l'. 


ET 3 DE GAUCHE A DROITE, ET SONT 


COMME LA CHANCE NE JOUE QU'UNE FAIBLE PART DANS LE CHOIX DU BON FLIPPER, 


VOUS JOUEREZ MAL SI VOUS ESSAYEZ DE 
APPROCHE.... 


ENTREZ ‘RETURN' POUR CONTINUER. 


LA TABLE RESSEMBLE A CECI: 


LÉLELLLIIILI I 1. 


21111]1)]))) 
o o 


CRE 


Le] 


A B C 
* * 


* 
* 
on 
* 
* 


* 
m 
m 
a 
LA 

* 


[ 
+s0000-000000000000 


DEVINER QUEL FLIPPER LA BOULE 


CTLTESIIILLIILIS 


ENTREZ "RETIRN' POUR CONTINUER. 


VOULEZ VOUS UN DESSIN IMPRIME DE LA TABLE? NON 
LE RUMPER CENTRAL ($) EST LE JACKPOT! 





LA BOULE EST MISE EN JEU PAR LA FLECHE VERS LE HAUT(©),MONTE ET 
EST DEPOSEE DANS LA MOITIE SUPERIEURE DE LA TABLE. LA BOULE 
PEUT RFBONDIR SUR LES COTES DE LA TABLE, SUR LES LIGNES 

SUR LE COTF (=) FT SUR LES DIAGONALES ( ET /) EN BAS 

DE LA TABLE. LES RUMPERS SONT REPRESENTES PAR DES ETOILES (*). 





LES FLIPPERS SONT REPRESENTES PAR DES POINTS D'EXCLAMATION (1! 
LA BOULE PEUT SORTIR DU JEU PAR L'UN DES QUATRE TROU DU TABLEAU (0), 
DANS CE CAS VOUS AUREZ UN BONUS ET VOUS PERDREZ LA BOULE. 

LES PORTES SONT NUMEROTEES DE 1 À 9,ET LES CIBLES À ABATTRE SONT 
RFPRESFNTEES PAR A-J. VOUS OBTENEZ UN BONUS POUR CELLE-CI EN 
FIN DE PARTIE,ET SI VOUS LES DESCENDEZ TOUTES, 


OU 11). 


ON VOUS MONTRERA DF TEMPS EN TEMPS UN DESSIN DE LA TABLE 
QUAND LA ROULF TOUCHE QUELQUE CHOSE.LA BOULE EST REPRESENTEE PAR #. 


ENTREZ 'RETURN' POUR CONTINUER. 


LA BOULE EST MAINTENANT EN ( 3 , 5 }). 


VOUS RFCEVEZ 32 POINTS DU BUMPER EN 3 , 5 . 
SCORF: 32 
VOUS RECEVEZ 53 POINTS DU RBUMPER EN 3, 8 +5 
SCORE : 85 


LA BOULE ARRIVE SUR UN FLIPPER.ENTREZ LES DEUX FLIPPERS QUE VOUS JOUEZ 
SOUS LA FORME: X,Y ? 2,3 


LA BOULE EST MAINTENANT EN ( 4 , 12 ). 


DOMMAGE... VOUS ETES SORTI DIRECTEMENT PAR UN TROU ('0' SUR LE DESSIN). 
POUR VOUS CONSOLER, JE VOUS DONNE UN BONUS DE 
63 POINTS, CE QUI AMENE VOTRE TOTAL A 148 


IL VOUS RESTE 5 BOULES. 


LA BOULE EST MAINTENANT EN ( 2 , 13 ). 


CIBLE H TOUCHEF... 


LA BOULE ARRIVE SUR UN FLIPPER.ENTREZ LES DEUX FLIPPERS QUE VOUS JOUEZ 
SOUS LA FORME: X,Y ? 2,3 


LA BOULE EST MAINTENANT EN ( 2 


+ 11 ). 


CIBLE D TOUCHEE.., 
DOMMAGE... VOUS ETES SORTI DIRECTEMENT PAR UN TROU ('O' 
POUR VOUS CONSOLER, JE VOUS DONNE UN BONUS DE 
134 POINTS, CE QUI AMENE VOTRE TOTAL A 282 
IL VOUS RESTE 4 BOULES. 
VOTRE BOULE À DESCENDU LA CIBLE 2 !! 
POUR CETTE EXCEPTIONNELLE PERFORMANCE ,VOUS GAGNEZ 
RANNX 20 -PPE* POINTSL 1 
SCORE: 302 


SUR LE DESSIN). 


LA BOULE EST MAINTENANT EN ( 4 , 9 }). 
VOUS RECEVEZ 90 POINTS DE LA PORTE 2 


SCORE: 392 
VOUS RECEVEZ 30 POINTS DE LA PORTE 2 
SCORE: 422 


CIBLE H TOUCHEE... 


CIBLE E TOUCHEE... 

LA BOULE ARRIVE SUR UN FLIPPER.ENTREZ LES DEUX FLIPPERS QUE VOUS JOUEZ 
SOUS LA FORME: X,Y ? 1,2 

LA BOULE EST MAINTENANT EN ( 7 , 5 ). 

LA BOULE ARRIVE SUR UN FLIPPER.ENTREZ LES DEUX FLIPPERS QUE VOUS JOUEZ 
SOUS LA FORME: X,Y ? 1,2 

LA BOULE EST MAINTENANT EN ( 2 , 10 ). 

LA BOULE ARRIVE SUR UN FLIPPER.ENTREZ LES DEUX FLIPPERS QUE VOUS JOUEZ 
SOUS LA FORME: X,Y ? 2,3 


LA BOULE EST MAINTENANT EN ( 8 , 6 ). 


VOUS RECEVEZ 64 POINTS DU BUMPER EN 9, 5 . 
SCORE: 486 
VOUS RECEVEZ 64 POINTS DU BUMPER EN 9, 5 . 


SCORE : 550 
LA BOULE ARRIVE SUR UN FLIPPER.ENTREZ LES DEUX FLIPPERS QUE VOUS . JOUEZ 


VOUS AVEZ UN BONUS SPECIAL... 
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1 PRINT CHRS (26) ; TAB (26) ;"FLIPPER":CLEAR 1000 

2 PRINT TAB (28) ; "CREATIVE COMPUTING" 

3 PRINT TAB (18) ;"MORRISTOWN, NEW JERSEY" 

4 PRINT:PRINT: PRINT 

S FMS=" 4,488 " 

8 DIM R$(10),PS$ (20) ,L(2) 

9 GOSUB 9509 

A1=0:A0=0:X9=0 

PRINT "BIENVENUE SUR L'ORDINATEUR FLIPPER! !" 

PRINT "DESIREZ VOUS DES INSTRUCTIONS POUR CE" 

PRINT "JEU FANTASTIQUE" ; 

INPUT QS:1F LEFTS(QS,1)="O" THEN GOSUB 1910:GOT0 59 

PRINT:PRINT "VOULEZ VOUS UN DESSIN DE LA TABLE"; 

INPUT OS:1F LEFTS(QS$,1)="O" THEN GOSUB 6010 

PRINT: PRINT:B=5 

S=0:P=0 

T$="ABCDEFGHIJ" : PRINT 

FOR Z=1 TO 10:R$(Z)=" ":NEXT Z:23=0 

70 A1=0 

71 A7=0 

80 IF B<=0 THEN 290 

108 L(1)=2+INT(RND(1) #6) :L(2)=INT(RND(1) *14)+1 

110 C=1+INT (RND(1) #7) :A1=0 

120 PRINT "LA BOULE EST MAINTENANT EN (";L(1);",";L(2);")." 

130 IF MIDS(PS(L(1)),L(2),1)=" "THEN 150 

140 GOSUB 2010 

150 1F A7=7 THEN 280 

160 IF Al<>4 THEN 180 

170 GOTO 260 

180 L(1)=L(1)+1 

199 A1=0 

200 L(2)=L(2)+INT(1+RND(1)*3)-2 

210 IF L(2)<2 OR L(2)>15 THEN L(1)=L(1)+INT(1+RND(1) #3)-2 

215 1F L(2)<2 OR L(2)>15 THEN L(2)=INT(2+RND(1) *13) 

230 IF L(1)>=2 AND L(1)<=20 THEN GOTO 130 

240 L(1)=INT(1+RND(1)*7) 

250 GOTO 130 

260 GOSUB 4910 

276 IF A0=1 THEN 400 

280 ON X9+1 GOTO 60,340 

285 PRINT"VOUS AVEZ JOUE VOTRE SEPTIEME BOULE ET MARQUE"; :PRINT USING FM$;P;: 
PRINT "POINTS!" 

PRINTC'EST TRES BON!":GOTO 9999 

PRINT “VOUS AVEZ JOUE VOS CINQ BOULES, ET AVEZ MARQUE" 

PRINT "UN TOTAL DE";:PRINT USING FM$;P;:PRINT "POINTS." 

IF P<1600 THEN 9999 
PRINT:PRINT “#*## BONUS 
B=bB+1 

X9=1 

GOTO 68 

PRINT "VOUS AVEZ JOUE VOTRE SIXIEME BOULE ET MARQUE"; :PRINT USING FMS;P;: 
PRINT "POINTS!" 
X9=2 

IF P<2208 THEN 9999 
PRINT:PRINT “### BONUS 
B=B+1:S=3 

GOTO 60 

GOTO 2010 

GOTO 150 

499 L(1)=2+INT (RND(1) #7) 
495 L(2)=2+INT (RND(1) #13) :X=0:Y=0 
419 GOTO 110 

1010 PRINT CHRS (26) 

1030 PRINT 


1940 


61 


286 
290 
293 
300 
305 
310 
320 
330 
340 


CTEL 


341 
350 
355 
360 
370 
380 
390 


CELL 


LES REGLES DU FLIPPER SUR ORDINATEUR SONT SIMPLES. 
PRINT 
"CINQ BOULES. SI VOUS MARQUEZ PLUS DE 169 POINTS® VOUS OBTENEZ UNE SIXIEME * 
PRINT "BOULE, PLUS DE 2209, VOUS OBTENEZ UNE SEPTIEME BOULE." 
PRINT :PRINT 

CETTE TABLE À TROIS FLIPPERS, CHACUN D'EUX PROTEGE UNE SORTIE." 

PRINT "MAIS CE JEU DIFFERE DES AUTRES, CAR VOUS NE POUVEZ ACTIONNER QUE" 
PRINT "DEUX DES FLIPPERS À CHAQUE FOIS QUE LA BOULE VA SORTIR." 
PRINT "NOTA BENE: VOUS NE POUVEZ SAVOIR OU SE TROUVE LA BOULE!!!" 
PRINT "ET SI VOUS ACTIONNEZ LES MAUVAIS FLIPPERS, VOUS PERDEZ LA BOULE ET LA" 
PRINT "BOULE SUIVANTE EST LANCÉE." : PRINT 
PRINT * VOUS POUVEZ AVOIR UN DESSIN DE LA TABLE À CHAQUE FOIS QUE LA " 
PRINT 
"BOULE TOUCHE UN OBJET, ET CELA PEUT VOUS AIDER. ON VOUS DIT AUSSI OU" 
PRINT "SE TROUVE LA BOULE À CHAQUE FOIS QU'ELLE TOUCHE (MEME SI VOUS N'AVEZ" 
PRINT 
DE DESSIN).LA LOGIQUE ET LA CHANCE JOUENT DANS LE CHOIX DES FLIPPERS." 
PRINT 
" LES NUMEROS DES FLIPPERS SONT 1,2, ET 3 DE GAUCHE À DROITE, ET SONT" 
1129 PRINT "REPRESENTES SUR LE DESSIN PAR '!'." 
1123 PRINT 


VOUS AVEZ EN TOUT" 


1045 
1960 


1070 
1280 
1999 
1993 
1995 
1997 
1998 


1999 
1120 
"PAS 
1110 


COMME LA CHANCE NE JOUE QU'UNE FAIBLE PART DANS LE CHOIX DU BON FLIPPER," 


1125 
1127 


1130 
1149 
1145 
1159 
1152 
1154 
1155 
1156 
1158 
1169 
1230 
1248 


1250 


1260 
1263 


1270 
1289 
1285 


PRINT “VOUS JOUEREZ MAL SI VOUS ESSAYEZ DE DEVINER QUEL FLIPPER LA BOULE" 
PRINT “APPROCHE. ...":PRINT:GOSUB 52009: 
PRINT"LA TABLE RESSEMBLE À CECI:" 


PRINT PARARARARAAARARRAT : PRINT: FOR Z=1 TO 20:PRINT PS (2) :NEXT Z 
PRINT 2 PRINT" # % de de de ee de ee 


GOSUB 59900 

INPUT "VOULEZ VOUS UN DESSIN IMPRIME DE LA TABLE" ; ANS$ 

IF LEFTS(ANS$S,1)="N" THEN 1239 

LINE INPUT "VERIFIEZ QUE VOTRE IMPRIMANTE EST BRANCHEE,TAPEZ "RETURN '";XXS 
PRINT:PRINT:PRINT "——— IMPRESSION *:PRINT: PRINT 

FOR Z=1 TO 29:LPRINT P$(Z):NEXT Z 





LPRINT CHR$(12)' PRINTER FORM FEED CHARACTER 

GOSUB 50009 

PRINT " LE BUMPER CENTRAL ($) EST LE JACKPOT!":PRINT 

PRINT 

L LA BOULE EST MISE EN JEU PAR LA FLECHE VERS LE HAUT (°) ,MONTE ET * 
PRINT 


"EST DEPOSEE DANS LA MOITIE SUPERIEURE DE LA TABLE. LA BOULE" 

PRINT “PEUT REBONDIR SUR LES COTES DE LA TABLE, SUR LES LIGNES" 

PRINT 

"SUR LE COTE (=) ET SUR LES DIAGONALES ( ET /) EN BAS" 

PRINT "DE LA TABLE. LES BUMPERS SONT REPRESENTES PAR DES ETOILES (*).":PRINT 
PRINT * LES FLIPPERS SONT REPRESENTES PAR DES POINTS D'EXCLAMATION (4 OÙ 11)." 
PRINT 


“LA BOULE PEUT SORTIR DU JEU PAR L'UN DES QUATRE TROU DU TABLEAU (@)," 


1290 
1300 


1319 
1320 


1330 
1340 
1359 
2919 
2020 
2921 
2822 
2823 
2025 
2949 
2050 
2070 


2975 
2090 
2109 
2119 
2115 
2120 
2130 
2148 
2159 
2169 
2179 
2189 
2199 
2208 
2293 
2284 
2285 
2210 
2255 
2260 
2275 
3919 
3915 
3017 
3018 
3919 
3020 
3030 
3049 
3050 
3060 
3070 
3089 
3099 
3100 
3119 
3129 
3139 
3149 
3159 
3179 
3189 


PRINT "DANS CE CAS VOUS AUREZ UN BONUS ET VOUS PERDREZ LA BOULE. "PRINT 
PRINT 
: LES PORTES SONT NUMEROTEES DE 1 À 9,ET LES CIBLES À ABATTRE SONT" 
PRINT "REPRESENTEES PAR A-J. VOUS OBTENEZ UN BONUS POUR CELLE-CI EN" 
PRINT 

"FIN DE PARTIE,ET SI VOUS LES DESCENDEZ TOUTES, VOUS AVEZ UN BONUS SPECIAL. . ." 
PRINT:PRINT” ON VOUS MONTRERA DE TEMPS EN TEMPS UN DESSIN DE LA TABLE" 
PRINT * QUAND LA BOULE TOUCHE QUELQUE CHOSE. LA BOULE EST REPRESENTEE PAR #." 
PRINT:PRINT:GOSUB 52099: RETURN 

IF MIDS(PS(L(1)),L(2),1)="0" THEN 2070 

IF INT(RND(1)+.5)=<>1 THEN 2922 

IF MIDS(P$(L(1)),L(2),1)="/"OR MID$(P$(L(1)),L(2),1)=" THEN 2168 

S8=INT (RND (1) *6+1) : 

FOR S7=1 TO S8:PRINT CHR$ (7) ;:NEXT S7 

IF MIDS$(P$(L(1)),L(2),1)<="J"AND MIDS(P$(L(1)),L(2),1)>="A" THEN 2198 
GOSUB 3919 

RETURN 

PRINT 

“DOMMAGE. .. VOUS ETES SORTI DIRECTEMENT PAR UN TROU ('9' SUR LE DESSIN) ." 
PRINT "POUR VOUS CONSOLER, JE VOUS DONNE UN BONUS DE" 

Q=INT (RND (1) #141) 

P=P+Q 

PRINT Q;"POINTS, CE QUI AMENE VOTRE TOTAL A";:PRINT USING FMS;P 

PRINT “IL VOUS RESTE" ;B-1 ; "BOULES. * 

B=B-] 

A7=7 

GOSUB 5919 

RETURN 

L(1)=L(1)+(1+INT (RND(1) #4) )-(1+INT(RND(1) *4)) 

L(2)=2+INT (RND (1) *14) 

RETURN 

PRINT 

FOR Q=1 TO 19 

IF R$(Q)=MIDS$ (P$(L(1)),L(2),1) THEN 2275 

NEXT Q 

23=23+1:R$ (23) =MIDS (P$(L(1)),L(2),1) 

PRINT:PRINT "CIBLE ";R$(Z3);" TOUCHEE. .." 

IF Z3=19 THEN GOSUB 5919 

RETURN 

RETURN 

IF MIDS(P$(L(1)),L(2),1)=CHR$(8) THEN RETURN 

IF MIDS(PS(L(1)),L(2),1)="]" THEN RETURN 

IF MIDS(PS(L(1)),L(2),1)="{" THEN RETURN 

IF MIDS(PS(L(1)),L(2),1)=""" THEN 3119 

A1=9 

IF MID$(P$(L(1)),L(2),1)="="* THEN 3419 

C=C-1 

IF C=9 THEN 3119 

IF MIDS(P$(L(1)),L(2),1)="1"OR MIDS(P$(L(1)),L(2),1)="THEN 3119 

IF MIDS (P$(L(1)),L(2),1)="/"OR MIDS (P$(L(1)),L(2),1)="-"THEN 3119 

IF INT(1+RND(1)*25)=4 THEN GOSUB 6919 

IF MID$(P$(L(1)),L(2),1)="$" THEN 3239 

IF MIDS(PS(L(1)),L(2),1)="#*" THEN 3280 

GOTO 3329 

A1=4 

GOTO 3399 

IF L(2)<6 THEN GOTO 3189 

IF L(2)<11 THEN 3290 

D=2:1F INT(1+RND(1)*2)=1 THEN D=D+(1+INT(RND(1)*#3))-2:1F D>3 THEN D=D-3 
RETURN 

D=1:1F INT(1+RND(1)#2)=1 THEN D=INT (RND(1)*3)+D 


130 


3199 RETURN 
3200 D=2:IF INT(1+RND(1)*2)=1 THEN D=D+INT(RND(1)*3):1F D>3 THEN D=D-3 
3219 RETURN 
3239 Q=45+INT (RND (1) *146) 
3249 PRINT "VOUS AVEZ TOUCHE LE JACKPOTI 11 VOUS GAGNEZ" ;Q; "POINTS! !" 
3250 P=P+Q 
3260 PRINT "VOUS AVEZ MAINTENANT"; : PRINT USING FM$;P;:PRINT "POINTS!" 
3278 GOTO 3369 
3288 Q=INT (RND(1) *64) +1 :P=P4Q 
3299 PRINT "VOUS RECEVEZ" ;Q;"POINTS DU BUMPER EN ";L(1);",";L(2);"." 
3300 PRINT "SCORE: ";:PRINT USING FM$S;P 
3319 GOTO 3360 
3320 Q=15* (1+INT (RND (1) *6) ) :P=P4Q 
3330 PRINT “VOUS RECEVEZ" ;Q; "POINTS DE LA PORTE ";MIDS$(PS(L(1)),L(2),1) 
3340 PRINT "SCORE: ";:PRINT USING FMS;P 
3360 L(1)=(L(1)-INT(1+RND(1) *3))-INT (1+RND(1) #2) 
3370 L(2)=L(2)-3+INT (RND(1) *5)+1 
3389 RETURN 
3399 GOSUB 7859 
3400 GOTO 3139 
3418 L(1)=L(1)-(1+INT(RND(1)*5)) 
3420 L(2)=L(2)-2+(1+INT (RND(1) *4)) 
3439 RETURN 
4919 PRINT 
“LA BOULE ARRIVE SUR UN FLIPPER.ENTREZ LES DEUX FLIPPERS QUE VOUS JOUEZ" 
4920 INPUT "SOUS LA FORME: X,Y ";V,W 
4930 IF V=D OR W=D THEN 4119 
4940 PRINT "NON, VOUS AVEZ MAL CHOISI .IL VOUS RESTE MAINTENANT" 
4960 PRINT B-1;"BOULES." 
4070 B=8-1 
4980 A0=0 
4090 GOSUB 5919 
4109 RETURN 
4110 AO=1 
4129 C=INT (1+RND (1) *5) 
4149 RETURN 
5219 IF Z3=19 THEN 5090 
5020 IF Z3=0 THEN RETURN 
5030 PRINT “VOTRE BOULE À DESCENDU LA CIBLE";23;"}1" 
5249 PRINT “POUR CETTE EXCEPTIONNELLE PERFORMANCE ,VOUS GAGNEZ " 
5050 PRINT "#*####";19#73;"#####"; : PRINT" POINTS! 1" 
5060 P=P+10*23 
5989 GOTO 5129 
5099 P=P+250 
5199 PRINT “#*####* VOUS AVEZ DESCENDU LES DIX CIBLES 111 ###*#" 
5110 PRINT "VOUS GAGNEZ 259 POINTS ET UN EXTRA BALLI 11!" 
5114 B=B+1 
5120 PRINT "SCORE: ";: 
6019 PRINT 
GO22 ERINT:PRINT" DES S I N ":PRINT"#*###ateanmanamnan 
6040 FOR Q=1 TO L(1)-l:PRINT PS(Q):NEXT Q 
6044 PRINT MID$(PS(L(1)),1,L(2)-1) ;"#";MIDS(P$S(L(1)),L(2)+1,16-L(2)) 
6059 FOR Q=L(1)+1 TO 20:PRINT PS(Q):NEXT Q 
6068 PRINT:PRINT"LA BOULE ETAIT EN ‘#'":PRINT:PRINT"##at#amemenmmaem 
6079 GOSUB 59008 
6198 RETURN 
7859 L(2)=ABS(L(2)-2+INT(1+RND(1) *4)) 
7860 IF L(2)<=15 THEN RETURN 
7870 L(2)=1+INT (RND (1) #15) : RETURN 
9508 P$(1)=" " 
9501 FOR Q=1 TO 12:P$(1)=P$(1)+"{["+CHR$ (8)+"]":NEXT Q 
9502 PS(1)=P$(1)+" * 
9519 PS(2)=" O 0" 
9528 PS(3)="O * * #* O0" 
9539 P$(4)="O À B C D O" 
9540 PS(5)="O  * * 0" 
9558 P$(6)="O * * $ * 
9568 P$(7)="O + 0" 
9578 P$(8)="O* E F G H *0" 
9589 PS(9)="O * * * on 
9598 PS (19)="O=== ==" 
9698 P$(11)="O 12345 o" 


PRINT USING FM$;P:RETURN 


9618 P$(12)="O * 6789 * 0" 
9620 P$(13)="O==—= 9 ==—0" 
9639 P$(14)="O 8 9 9 0" 
9648 PS(15)="111 pu" 
9659 P$(16)="O 1:50" 
9668 P$(17)="O IJ/ o" 
9679 P$(18)="O / 0" 
9689 P$(19)="O / 0" 
9690 PS (29) =———1 1; -/" 


9708 RETURN 

9999 PRINT "REVENEZ JOUER DE TEMPS EN TEMPS! !":GOSUB 59908: END 
50900 LINE INPUT "ENTREZ "RETURN' POUR CONTINUER. ";XXS 

59818 PRINT CHRS (26) 

59829 RETURN 





Rabbit Chase 
(Chasse au lapin) 


Comme son nom l'indique, ce jeu a 
pour but de pourchasser et de capturer un 
lapin. Mais ce lapin est un petit diable 
insaisissable; il peut sauter au hasard 
dans n'importe quelle direction. Vous 
courez au moins aussi vite que lui, parfois 
même plus vite (seul l'ordinateur décide). 
Pour pouvoir attraper ce lapin, il faut vous 
en approcher à moins de 20 unités. Avant 
chaque saut, l'ordinateur imprime votre 
position, celle du lapin, la direction vers 
laquelle il va sauter, et votre approche la 
plus avantageuse lors du dernier saut. 
Vous indiquez à l'ordinateur la direction 
que vous désirez prendre. Toutes les 
coordonnées et les directions sont 
données sous la même forme que le ferait 
un géomètre dans un repère cartésien 
usuel. 

Non seulement, ce jeu est un agréable 
passe-temps mais de plus, il vous 
entraîne à l'utilisation et à la visualisation 
d'un plan (X, Y). Après chaque saut, 
réfléchissez un moment et tentez de 
choisir la bonne direction. Essayez de 


CHASSE AU LAPIN 


visualiser mentalement le jeu. Utiliser du 
papier, c'est tricher (ou peut-être juste lors 
du premier essai). 


Modifications possibles 

1. Changez le programme de façon à 
choisir vous-même votre vitesse. 

2. Le jeu est beaucoup plus intéressant 
quand la « distance de capture » varie. 
Une distance de 50 unités donne un 
jeu facile à résoudre; si vous la fixez à 
15, vous aurez certainement à utiliser 
du papier; une « distance de capture » 
de 5 unités nécessitera un rapporteur 
et du papier millimétré. 

8. Cherchez un moyen d'étendre ce jeu 
dans un espace à trois (voire quatre) 
dimensions, etc. ! 

4. Essayez de limiter le nombre de sauts 
et/ou de faire en sorte que l'ordinateur 
vous donne des conseils si nécessaire. 
Cette « Chasse au lapin » a été écrite 

par Ted C. Park du Pacific Union College. 

Elle parut pour la première fois dans 

Creative Computing, mars-avril 1975. 


CREATIVE COMPUTING MORRISTOWN NEW JERSEY 


VITESSES (UNITES/SAUT) : 
LAPIN - 70 VOUS - 140 





SAUT #: 1 DISTANCE DU LAPIN: 256 APPROCHE MAXIMUM: 256 
LAPIN ---- POSITION: ( 224, 123) ET DIRECTION: 178 
VOUS ----- POSITION: ( 0, 0) ET DIRECTION:? 135 
SAUT #: 2 DISTANCE DU LAPIN: 254 APPROCHE MAXIMUM: 250 
LAPIN ---- POSITION: ( 154, 125) ET DIRECTION: 130 
VOUS ----- POSITION: ( -99, 99) ET DIRECTION:? 100 

3 DISTANCE DU LAPIN: 239 APPROCHE MAXIMUM: 239 

POSITION: ( 109, 179) ET DIRECTION: 353 
POSITION: ( -123, 237) ET DIRECTION:? 50 

SAUT #: 4 DISTANCE DU LAPIN: 274 APPROCHE MAXIMUM: 239 
LAPIN ---- POSITION: ( 179, 171) ET DIRECTION: 323 
VOUS ----- POSITION: ( -33, 344) ET DIRECTION:? 10 
SAUT # 5 DISTANCE DU LAPIN: 273 APPROCHE MAXIMUM: 268 
LAPIN ---- POSITION: ( 234, 128) ET DIRECTION: 261 
VOUS ----- POSITION: ( 105, 368) ET DIRECTION:? 323 
SAUT #: 6 DISTANCE DU LAPIN: 225 APPROCHE MAXIMUM: 225 
LAPIN ---- POSITION: ( 223, 59) ET DIRECTION: 2 
VOUS ----- POSITION: ( 216, 284) ET DIRECTION:? 135 
SAUT #: 7 DISTANCE DU LAPIN: 367 APPROCHE MAXIMUM: 225 
LAPIN ---- POSITION: ( 293, 62) ET DIRECTION: 348 
VOUS ----- POSITION: ( 117, 383) ET DIRECTION:? 348 
SAUT #: 8 DISTANCE DU LAPIN: 325 APPROCHE MAXIMUM: 325 
LAPIN ---- POSITION: ( 362, 47) ET DIRECTION: 0 
VOUS ----- POSITION: ( 254, 354) ET DIRECTION:? O 
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5 PRINT CHRS (26) 

19 PRINT TAB (29) ; "CHASSE AU LAPIN" 

20 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTONN NEW JERSEY" 
30 PRINT 

40 PRINT 

190 REM ('T' EST LA ZONE DE CAPTURE) 

105 LET T=490 
115 REM — 
125 LET VI=INT (RND(1) *1@+.5) *10+50 

139 LET V2=(INT(RND(1)#*2+.5)+1)#V1 

135 LET X1=(INT(RND(1) *4@4)+198) *SGN (RND(1)-.5) 
148 LET Y1= (INT (RND (1) #40@)+100) *SGN (RND (1). 5) 
145 IF Y1=9 OR X1=0 THEN 135 

150 LET X2=0 

155 LET Y2=0 

160 PRINT "VITESSES (UNITES/SAUT) :" 

165 PRINT "LAPIN ="; V1, "VOUS —";V2 

170 PRINT 

175 PRINT 

189 PRINT 

185 LET C=(X2-X1) "2+(Y2-Y1) "2 

199 LET P1=3.141592653589#/189 
195 LET H=1 

200 REM = IMPRESSION 

215 LET DI=INT (RND (1) *359) 

220 PRINT "SAUT #: "; 

225 LET Z=H 

230 GOSUB 519 

235 PRINT " DISTANCE DU LAPIN: "; 
249 LET Z=SOR ((X2-X1) "2+(Y2-Y1) *2) 
245 GOSUB 510 

250 PRINT " APPROCHE MAXIMUM: "; 
255 LET Z=SQR (C) 

260 GOSUB 519 

265 PRINT 

270 PRINT "LAPIN == 
275 LET Z=X1 
28% GOSUB 529 
285 PRINT ","; 
290 LET Z=Yl 
295 GOSUB 520 
300 PRINT ") 
305 LET Z=D1 
310 GOSUB 519 
315 PRINT 

320 PRINT "VOUS == 
325 LET Z=X2 
330 GOSUB 529 
335 PRINT ","; 
340 LET Z=Y2 
345 GOSUB 529 
350 PRINT ") 
355 INPUT D2 
360 IF D2 < @ OR D2 >=360 THEN 355 

365 PRINT 

370 PRINT 

380 REM = CHEMINS ORDINATEUR ET VOIR SI INTERSECTION 
390 LET X3=V1#COS (D1#P1) /109 

395 LET Y3=VI#SIN(D1*P1)/100 

499 LET X4=V2*COS (D2*P1) /100 

495 LET Y4=V2*SIN(D2*P1)/100 

419 LET C=(X2-X1) *2+(Y2=-Y1) "2 

415 FOR I=1 TO 199 

420 LET X1=X14X3 

425 LET Y1=Y14Y3 

430 LET X2=X24X4 

435 LET Y2=Y24Y4 

440 IF C < (X2-X1)"2+(Y2-Y1)"2 THEN 445 

443 C=(X2-X1) *2+(Y2=Y1) "2 

445 NEXT I 

450 LET H=H+l 

455 IF C > T THEN 215 

460 PRINT 

465 PRINT 

470 PRINT LELLLLLEELE SE LL 

475 PRINT “* ATTRAPE *" 

480 PRINT MRRRRRRRRRRRN 

485 PRINT 

499 PRINT 

584 END 

518 REM — NOMBRES CONVERTIS EN SERIE POUR SORTIE CLAIRE 
520 Z=INT(Z+.5) 
525 PRINT RIGHTS (" 
585 RETURN 

594 END 


INITIALISER VITESSES ET POSITIONS 


POSITION: ("; 


ET DIRECTION:"; 


POSITION: ("; 


ET DIRECTION: "; 


"4STRS (2) ,5) ; 


Roadrace 





(Course automobile) 


Vous conduisez une voiture de course 
sur la célèbre Route 20 New-Yorkaise. 
Vous devez parcourir cinq miles avec un 
demi-bidon de carburant. Attention aux 
autres voitures, aux différentes routes. !!! 

Au départ, vous montez dans votre 
voiture et vous prenez connaissance du 
parcours. Pendant la course, vous pouvez 
jouer de l'accélération et du freinage pour 
tenter de l'emporter. 

Faites attention lorsque vous doublez 
une autre voiture ! Si vous allez à la même 
vitesse qu'elle, vous vous trouverez nez à 
nez avec un autobus « Greyhound ». 

Cette course est difficile à gagner. Je la 
termine généralement dans un virage, ou 
bien un manque de carburant m'empêche 
de finir. Si vous désirez augmenter votre 
autonomie, regardez à la ligne 870. 

Bonne chance ! 

Ce jeu parut pour la première fois dans 
Creative Computing en janv.-févr. 1975. 


RUN 
COURSE-AUTO 


CREATIVE COMPUTING MORRISTOWN NEW JERSEY 


VOICI LE RALLY PITTSFIELD-ALBANY 


BIENVENUE AU PREMIER RALLY ANNUEL PITTSFIELD-ALBANY. 
VOUS CONDUIREZ SUR LA ROUTE 20,ET ESSAIEREZ DE GAGNER LA COURSE 
ET DE RESTER EN VIE. BONNE CHANCEII 


VOUS AVEZ LE CHOIX ENTRE: (1) UNE VW: (2) 283 NOVA;: 
(3) Z-28; OU (4) FERRARI 


CHOISISSEZ LA VOITURE QUE VOUS VOULEZ EN TAPANT LE NOMBRE 
QU'IL Y À DEVANT. ATTENTION,MEILLEUR EST LA VOITURE,PLUS ELLE 
CONSOMME D'ESSENCE. 

QUELLE VOITURE? 3 


MAINTENANT CHOISISSEZ SUR QUEL CIRCUIT VOUS VOULEZ COURIR. 

LE CIRCUIT LE PLUS FACILE EST LE NUMERO 1,C'EST LE PLUS LINEAIRE 
LE NUMERO 5 EST CONSTITUE EN GRANDE PARTIE DE VIRAGES ET DE LACETS. 
QUEL CIRCUIT VOULEZ VOUS? 1 


VOUS DEVREZ PARCOURIR 5 KM AVEC 0,5 GALLONS D'ESSENCE. 

UN BILAN SERA FAIT TOUTES LES 10 SECONDES. APRES CHAQUE 

BILAN, ON VOUS DEMANDERA UN NOUVEAU TAUX DE COMPRESSION. 

UN TAUX DE +10 EST UNE PUISSANTE ACCELERATION, -10 EST UN PUISSANT FREINAGE. 
TOUT NOMBRE INTERMEDIAIRE EST POSSIBLE. 


VITESSE ACTUELLE = O NO. DE GALLONS = .5 

NO. DE KM = O TEMPS ECOULE = O SECONDES 

QUEL EST VOTRE NOUVEAU TAUX DE COMPRESSION? 10 
CONDITIONS DE ROUTE:CLAIRE ET DROITE 

VITESSE ACTUELLE = 70 NO. DE GALLONS = .47 

NO. DE KM = .152174 TEMPS ECOULE = 10 SECONDES 
QUEL EST VOTRE NOUVEAU TAUX DE COMPRESSION? 2 
CONDITIONS DE ROUTE:VEHICULE DEVANT À 1000 PIEDS 
VITESSE ACTUELLE = 55 NO. DE GALLONS = .464 

NO. DE KM = .271739 TEMPS ECOULE = 20 SECONDES 
QUEL EST VOTRE NOUVEAU TAUX DE COMPRESSION? 10 
CONDITIONS DE ROUTE:VEHICULE DEPASSE 75 KM/H 
VITESSE ACTUELLE = 102 NO. DE GALLONS = .434 
NO. DE KM = .493478 TEMPS ECOULE = 30 SECONDES 
QUEL EST VOTRE NOUVEAU TAUX DE COMPRESSION? 10 
CONDITIONS DE ROUTE:VEHICULE DEVANT À 1000 PIEDS 
VITESSE ACTUELLE = 130 NO. DE GALLONS = .404 
NO. DE KM = .776087 TEMPS ECOULE = 40 SECONDES 
QUEL EST VOTRE NOUVEAU TAUX DE COMPRESSION? -5 


CONDITIONS DE ROUTE:VEHICULE EN DEPASSEMENT 
BUS GREYHOUND DE L'AUTRE COTE FAISANT DU 64 KM/H VITESSE DE CASSE = 105 
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OÙ VOTRE TOMBF A-T-ELLE ETE CONSTRUITE? 


VOULEZ-VOUS RECOMMENCER,? OUI 
QUELLE VOITURE? 3 


QUEL CIRCUIT VOULEZ VOUS? 5 

VITESSE ACTUELLE = O NO. DE GALLONS = .5 

NO. DE KM = O TEMPS ECOULE = O SECONDES 

QUEL EST VOTRE NOUVEAU TAUX DE COMPRESSION? 10 
CONDITIONS DE ROUTE: ATTENTION: VIRAGE DEVANT 
VITESSE ACTUELLE = 70 NO. DE GALLONS = .47 

NO. DE KM = .152174 TEMPS ECOULE = 10 SECONDES 
QUEL EST VOTRE NOUVEAU TAUX DE COMPRESSION? 0 


CONDITIONS DE ROUTE:SONT TERRIBLES 
15 ETAIT VOTRE VITESSE DANS LE VIRAGE 


41 ETAIT VOTRE VITESSE, SUR LA ROUTE OU VOTRE TOMBE A-T-ELLE ETE 


VOULEZ-VOUS RECOMMENCER,? OUI 
QUELLE VOITURE? 3 


QUEL CIRCUIT VOULEZ VOUS? 1 

VITESSE ACTUELLE = O NO. DE GALLONS = .5 

NO. DE KM = O TEMPS ECOULE = O SECONDES 

QUEL EST VOTRE NOUVEAU TAUX DE COMPRESSION? 10 
CONDITIONS DE ROUTE: ATTENTION: VIRAGE DEVANT 
VITESSE ACTUELLE = 70 NO. DE GALLONS = .47 

NO. DE KM = .152174 TEMPS ECOULE = 10 SECONDES 
QUEL EST VOTRE NOUVEAU TAUX DE COMPRESSION? 0 
CONDITIONS DE ROUTE :DANS VIRAGE 

VITESSE ACTUELLE = 41 NO. DE GALLONS = .47 

NO. DE KM = .241304 TEMPS ECOULE = 20 SECONDES 
QUEL EST VOTRE NOUVEAU TAUX DE COMPRESSION? 7 
CONDITIONS DE ROUTE:VEHICULE DEVANT À 1000 PIEDS 
VITESSE ACTUELLE = 73 NO. DE GALLONS = .449 
NO. DE KM = .4 TEMPS ECOULE = 30 SECONDES 

QUEL EST VOTRE NOUVEAU TAUX DE COMPRESSION? 10 
CONDITIONS DE ROUTE:VEHICULE DEPASSE 65 KM/H 
VITESSE ACTUELLE = 113 NO. DE GALLONS = .419 
NO. DE KM = .645652 TEMPS ECOULE = 40 SECONDES 
QUEL EST VOTRE NOUVEAU TAUX DE COMPRESSION? 10 
CONDITIONS DE ROUTE:VEHICULE DEVANT À 1000 PIEDS 
VITESSE ACTUELLE = 136 NO. DE GALLONS = .389 
NO. DE KM = .941304 TEMPS ECOULE = 50 SECONDES 
QUEL EST VOTRE NOUVEAU TAUX DE COMPRESSION? 10 
CONDITIONS DE ROUTE:VEHICULE DEPASSE 94 KM/H 
VITESSE ACTUELLE = 150 NO. DE GALLONS = .359 


NO. DE KM = 1.26739 TEMPS ECOULE = 60 SECONDES 
QUEL EST VOTRE NOUVEAU TAUX DE COMPRESSION? 10 


CONDITIONS DE ROUTE:VEHICULE DEVANT À 1000 PIEDS 


VITESSE ACTUELLE = 158 NO. DE GALLONS = .329 
NO. DE KM = 1.61087 TEMPS ECOULE = 70 SECONDES 
QUEL EST VOTRE NOUVEAU TAUX DE COMPRESSION? 5 


CONSTRUITE? 


CONDITIONS DE ROUTE:VEHICULE DEPASSE 86 KM/H 


VITESSE ACTUELLE = 128 NO. DE GALLONS = .314 
DE KM = 1.88913 TEMPS ECOULE = 80 SECONDES 
QUEL EST VOTRE NOUVEAU TAUX DE COMPRESSION? 10 


NO. 


CONDITIONS DE ROUTE :VEHICULE DEVANT À 1000 PIEDS 


VITESSE ACTUELLE = 145 NO. DE GALLONS = .284 
NO. DE KM = 2.20435 TEMPS ECOULE = 90 SECONDES 
QUEL EST VOTRE NOUVEAU TAUX DE COMPRESSION? 10 


CONDITIONS DE ROUTE:VEHICULE DEPASSE 100 KM/H 


VITESSE ACTUELLE = 155 NO. DE GALLONS = .254 
NO. DE KM = 2.5413 TEMPS ECOULE = 100 SECONDES 
QUEL EST VOTRE NOUVEAU TAUX DE COMPRESSION? 10 


CONDITIONS DE ROUTE:VEHICULE DEVANT À 1000 PIEDS 


VITESSE ACTUELLE = 161 NO. DE GALLONS = .224 
NO. DE KM = 2.8913 TEMPS ECOULE = 110 SECONDES 
QUEL EST VOTRE NOUVEAU TAUX DE COMPRESSION? 10 


CONDITIONS DE ROUTE:VEHICULE DEPASSE 112 KM/H 


VITESSE ACTUELLE = 164 NO. DE GALLONS = .194 

NO. DE KM = 3.247883 TEMPS ECOULE = 120 SECONDES 

QUEL EST VOTRE NOUVEAU TAUX DE COMPRESSION? 10 

VOTRE MOTEUR À SAUTE. VOUS AVEZ ETE FRAPPE PAR UN PISTON. 
OU VOTRE TOMBE A-T-ELLE ETE CONSTRUITE? 


VOULEZ-VOUS RECOMMENCER, ? NON 


POULE MOUILLEE 


Ok 


5 PRINT CHR$ (26) 


19 PRINT TAB (27) ; "COURSE-AUTO"" 
15 PRINT 
23 PRINT TAB (15); "CREATIVE COMPUTING MORRISTOWN NEW JERSEY" 
38 PRINT 
43 PRINT 
Sa PRINT 


100 
120 
139 
148 
150 
169 
178 
189 
199 
208 
219 
215 
220 
238 
249 
258 
263 
270 
28ÿ 
298 
309 
319 
320 
338 
348 
345 
358 
360 
389 
398 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 


" VOICI LE RALLY PITTSFIELD-ALBANY" 


"BIENVENUE AU PREMIER RALLY ANNUEL PITTSFIELD-ALBANY ." 
“VOUS CONDUIREZ SUR LA ROUTE 29,ET ESSAIEREZ DE GAGNER LA COURSE" 
"ET DE RESTER EN VIE. BONNE CHANCE!!" 


“VOUS AVEZ LE CHOIX ENTRE: (i) UNE VW; (2) 283 NOVA;" 
“(3) 2-28; OU (4) FERRARI" 


“CHOISISSEZ LA VOITURE QUE VOUS VOULEZ EN TAPANT LE NOMBRE * 
“QU'IL Y À DEVANT. ATTENTION ,MEILLEUR EST LA VOITURE, PLUS ELLE" 
"CONSOMME D'ESSENCE. * 

"QUELLE VOITURE” ; 

ci 


LET C1=INT(Ci) 


IF C1 
1F C1 


> 4 THEN 280 
< i THEN 289 


GOTO 309 


PRINT 


"NUMERO DE VOITURE NON VALABLE. NOUVELLE VOITURE "; 


GOTO 239 


PRINT 


IF N2=1 THEN 345 


PRINT 
PRINT 
PRINT 
PRINT 
INPUT 


"MAINTENANT CHOISISSEZ SUR QUEL CIRCUIT VOUS VOULEZ COURIR." 

"LE CIRCUIT LE PLUS FACILE EST LE NUMERO i,C'EST LE PLUS LINEAIRE" 
"LE NUMERO 5 EST CONSTITUE EN GRANDE PARTIE DE VIRAGES ET DE LACETS." 
"QUEL CIRCUIT VOULEZ VOUS"; 

c2 


LET C2=INT(C2) 


1F C2 
1F C2 


< 1 THEN 419 
> 5 THEN 419 


488 GOTO 430 


41û 


PRINT 


“NUMERO DE CIRCUIT IMPOSSIBLE. NOUVEAU CHOIX "; 


428 GOTO 359 
IF N2=1 THEN 499 


438 
435 
443 
458 
46ù 
478 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 


EINAGE.* 


489 


PRINT 


“VOUS DEVREZ PARCOURIR 5 KM AVEC 9,5 GALLONS D'ESSENCE." 

"UN BILAN SERA FAIT TOUTES LES 19 SECONDES. APRES CHAQUE" 

"BILAN, ON VOUS DEMANDERA UN NOUVEAU TAUX DE COMPRESSION. * 

“UN TAUX DE +19 EST UNE PUISSANTE ACCELERATION, -ig EST UN PUISSANT FR 


"TOUT NOMBRE INTERMEDIAIRE EST POSSIBLE." 


492 FOR I1=1 TO C1 
S29 READ B,M,S 
519 LET B=B/10 


S28 NEXT I 


539 LET Ail=.5 
S4ÿ LET M1=0 
55 LET Ci=C1/2 
569 LET V=9 


573 PRINT 

589 LET Ri=8 

S98 LET T=ù 

6dÿ LET D=0 

619 LET Qi=8 

629 PRINT "VITESSE ACTUELLE =*;V;" NO. DE GALLONS =";Al 
639 PRINT “NO. DE KM =";Mi;" TEMPS ECOULE =" ;T; "SECONDES" 
642 IF Mi>= 5 THEN 1469 

658 PRINT "QUEL EST VOTRE NOUVEAU TAUX DE COMPRESSION" ; 
668 INPUT G 

679 IF G < -19 THEN 700 

689 IF G > id THEN 7ug 

693 GOTO 729 

7 PRINT “IMPOSSIBLE. NOUVEAU TAUX"; 

719 GOTO 669 

729 IF G < 9 THEN 789 

739 LET Z=2+i 

742 IF Z> 4 THEN 768 

758 GOTO 799 

769 PRINT “VOTRE MOTEUR À SAUTE. VOUS AVEZ ETE FRAPPE PAR UN PISTON." 
779 GOTO 127% 

788 LET Z=Ù 

799 LET V=INT(B*G-M*V+V) 

828 LET T=T+ig 

8i2 PRINT 

829 PRINT "CONDITIONS DE ROUTE :"; 

839 IF V > à THEN 859 

844 LET V=ù 

852 LET Mi=Ml+V/469 

868 IF G<a THEN 899 

87 LET Ail=Al-(G*S)/Suuy 

884 IF Ai< d THEN 1389 

898 IF Ri=i THEN iv5d 

9ùù IF Qi=i THEN 989 

918 LET Q=INT((C2+i) *RND(1)) 

928 LET R=INT((3.75-C2) *RND(i)) 

939 IF R > à THEN 1299 

949 1F Q > à THEN 1349 

952 PRINT "CLAIRE ET DROITE" 

969 PRINT 

97à GOTO 624 

989 LET H=INT(i5+35!#*RND(1)) 

998 LET H=H+5#Ci 

idÿu IF V>H THEN i59d 

1919 PRINT “DANS VIRAGE" 

1928 PRINT 

1939 LET Qi=9 

1d4ÿ GOTO 629 

1958 LET E=E-(V-D) #31 

1968 IF E < 9 THEN iidÿ 

1979 PRINT "VEHICULE" ;E; "PIEDS DEVANT" 

1989 PRINT 

1999 GOTO 624 

1199 IF V-D < 5 THEN 1189 

1lig PRINT "VEHICULE DEPASSE"; 

1129 LET D=V-D 

1139 PRINT D; 

1149 PRINT "KM/H" 

1159 PRINT 

1169 LET Ri=ÿ 

1i79 GOTO 628 

1189 PRINT "VEHICULE EN DEPASSEMENT " 

1199 LET D=INT(25+49#RND(i)) 

1299 PRINT “BUS GREYHOUND DE L'AUTRE COTE "; 
1210 PRINT "FAISANT DU"; 

1228 PRINT D; 

1239 PRINT “KM/H *; 

1249 LET D=V+D 

1258 PRINT "VITESSE DE CASSE =";D 

1268 PRINT 

1273 PRINT “OU VOTRE TOMBE A-T-ELLE £TE CONSTRUITE?" 
1288 GOTO 1569 

1299 PRINT “VEHICULE DEVANT À igÿÿ PIEDS" 
1309 PRINT 

1319 LET D=INT(25+35#*RND(1)) 

1328 LET Ri=1l 

1339 GOTO 628 

1349 PRINT “ ATTENTION: VIRAGE DEVANT * 
1359 LET Qi=1 

1368 PRINT 

1379 GOTO 620 

1389 PRINT “EXCELLENT, MAIS ATTENDEZ!" 

1399 PRINT 

1499 PRINT "VOUS ETES À COURT D'ESSENCE" 
14i9 GOTO 1558 

1429 PRINT “MAIS VOUS VOUS ETES DEBROUILLE POUR LE FAIRE" 
1439 PRINT 

1449 LET Ri=d 

1458 GOTO 628 

1469 PRINT 

1479 PRINT 

1483 PRINT "VOUS L'AVEZ FAIT (VEINARD) !!!1111" 
1498 GOTO 1568 

1529 PRINT "SONT TERRIBLES"* 

1510 LET H=H-5#Ci 

1522 PRINT H;"ETAIT VOTRE VITESSE DANS LE VIRAGE" 
1532 PRINT V;"ETAIT VOTRE VITESSE, SUR LA ROUTE "; 
1548 GOTO 1279 

1559 PRINT “VOUS VOUS ETES CASSE LA FIGURE $%6'"4$8$&8((8$8S'S$S(S((SS'%#3##3%8" 
1568 PRINT:PRINT * VOULEZ-VOUS RECOMMENCER , " ; 
1589 INPUT VS 

1599 1F LEFTS(V$,1)="N" THEN 16289 

1600 N2=1 

1619 GOTO 1649 

1629 PRINT:PRINT "POULE MOUILLEE" : PRINT 
1632 GOTO 1789 

1649 RESTORE 

1659 GOTO 229 

1662 DATA 45,.53,10 

1665 DATA 68,.5,13 

1679 DATA 78,.41,15 

1689 DATA 89,.39,18 

1799 END 
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Rotate (Rotation) 





Le jeu de Rotation se joue sur un 
tableau carré de quatre carreaux de côté 
rempli au hasard des lettres de l'alphabet 
de À à P. En un sens c’est la même chose 
que ces jeux de plastique où l'on fait 
glisser des cases numérotées de 1 à 15 
ou bien des lettres de A à O. 

Le but du jeu est de ranger les lettres 
dans l'ordre alphabétique. Ceci se fait par 
des rotations de groupes de quatre lettres 
dans le sens des aiguilles d'une montre. 
Le groupe qui bouge est défini par le 
numéro de la lettre se trouvant en haut à 
gauche du groupe. On vous donne aussi 
un coup spécial permettant d'inverser 
deux lettres adjacentes. Vous ne voudrez 


vraisemblablement pas utiliser ce coup 
trop tôt dans le jeu; en fait, il est 
quelquefois totalement inutile et dès que 
vous l'avez utilisé une fois, vous ne 
pouvez pas vous en servir à nouveau. 
Votre seule possibilité est alors de taper 
un zéro afin d'arrêter de jouer. 

En général un jeu nécessite entre 20 et 
80 coups pour gagner. Je n'ai pas montré 
l'exemple le plus mauvais (utilisant une 
méthode intelligente de jeu). Je serai ravi 
d’avoir vos suggestions à ce propos. 
Amusez-vous bien ! 

Rotation a été écrit par David Ahl et est 
paru pour la première fois dans Creative 
Computing en sept.-oct. 1977. 


4 PRINT CHR$(26) 
9 PRINT TAB(26) ; "ROTATION" 
8 PRINT TAB(2U)3;"CREATIVE CUMPUTING" 
AU PRINT TAB(18);'"MURRISTOWN, NEW JERSEY":PRINT:PRINT:PRINT 
11 DIM U(16),B$(16) 
12 INPUT MINSTRUCTIONS";AS:PRINT:IF LEFTSCA$,1)="N" THEN 140 
19 PRINT:PRINT "DANS CE JEU LE TABLEAU EST NUMEROTE DE LA FACUN SUIVANTE :" 
25 FOR Iz1 TU 16:B(1)=I1:NEXT 
30 PRINT:FOR Izl TU 13 STEP 4 
35 PRINT USING "EL ";U(1),B(1+1),B(1+2),B(1+3) 
40 NEXT L:PRINT 
45 PRINT "LES CASES DU TABLEAU SUNT OCCUPLES AU HASARD PAR LES LETTRES " 
50 PRINT "DE A À P.LE BUT DU JEU EST DE RANGER CES LETTRES PAR DES" 
55 PRINT "ROTATIONS DE GROUPES DE 4 LETTRES DANS LE SENS DES AIGUILLES " 
60 PRINT "D'UN MUNTRE.VOUS SPECIFIEZ LA LETTRE EN HAUT A GAUCHE, LE," 
65 PRINT "LES COUPS VALIDES SONT 1,2,3,5,6,7,9,10 ET 11." 
66 PRINT:PRINT:LINE INPUT RENTRER "RETURN! PUUR CUNTINUER. "3X$:PRINT CHR$(26) 
70 PRINT "DE FAIT,LE TABLEAU RESSEMBLE A:" 
75 FUR 121 TU 16:B$(1)=2CHR$(I+64):NEXT:BY(2)=2"C":B$(3)="G" 
40 B$(6)="B":B$(7)="F":UOSUB 400 
85 PRINT MET QUE LA ROTATION EST AUTOUR DU 2,LE TABLEAU SERA:" 
90 FOR 122 TU 7:B$=CHR$(I+64):NEXT [:GUSUB 400 
95 PRINT "ET VOUS GAGNERIEZ!" 
96 PRINT:PRINT:LINE INPUT "RENTRER "RETURN! POUR CUNTINUER. "3X$:PRINT CHR$(26) 
100 PRINT "VOUS AVEZ AUSSI UN CUUP 'SPECIAL'PAR JEU, DUNT VOUS N'AVEZ PAS " 
105 PRINT "FORCEMENT BESUIN.IL VOUS PERMET D'INVERSER LA POSITION" 
110 PRINT "DE DEUX LETTRES ADJACENTES DE LA MEME LIGNE.PUUR FAIRE CE" 
115 PRINT "COUP,RENTRER UN '-1' COMME COUP ET UN VOUS DEMANDERA LES " 
120 PRINT "POSITIONS DES DEUX LETTRES À INVERSER.N'OUBLIEZ-PAS--" 
125 PRINT "SEULEMENT UN SEUL COUP SPECIAL PAR JEUL":PRINT 
130 PRINT "POUR SORTIR N'IMPORTE QUAND, TAPER UN ‘'D'.": 
PRINT "POUR SORTIR DEF INITIVEMENT, TAPER'99'.":PRINT:PRINT'BONNE CHANCE !'":PRINT 
140 FOR I=1 T0 16:B$(1)="0":NEXT I 
150 FOR 1=1 10 16 
160 T$=CHR$(INT(LE*RND(1)+65)) 
165 FOR J=1 TU I 
170 IF B$(J)=T$ THEN 160 
175 NEXT J 
180 B$(I)=T$:NEXT I 
190 M=0:S=0:PRINT "VOICI LE TABLEAU DE DEPART...":G0SUB 400 
200 INPUT "POSITION DE ROTATION" ;1:1F =0 THEN PRINT:PRINT:GUTU 140 ELSE 
IF 1:99 THEN END 
205 IF 1=-1 THEN 510 
210 IF 1=4 OR 1=8 OR 1212 THEN PRINT "ILLEGAL. A NOUVEAU...":GUTO 20 
220 M=M+1:T$=B$(1) 
230 B$(1)=B$(1+4):B$(1+4)=B$(1+5):B$(1+5)=2B$(I+1):B(I+1)2T$ 
240 GUSUB 400 
305 FOR I=1 T0 16 
310 IF CHR$(I+64) O©B$(I) THEN 200 
315 NEXT I 
320 PRINT:PRINT "VOUS AVEZ RANGE LE TABLEAU EN";M; "COUPS .":M1=M1+M:G2G+1 
325 PRINT CHR$(7) 
330 PRINT:INPUT MREJOUER";A$:IF LEFT$(A$,1)="0" THEN 140 
340 PRINT:PRINT "VOUS AVEZ JOUE";G;"JEU(X) ET RANGE LE TABLEAU AVEC EN " 


350 PRINT "MOYENNE" ;M1/G; "COUPS PAR JEU.":PRINT:GOTO 999 


400 
410 
420 
510 
520 
530 
540 
999 


PRINT:FOR 1=1 TO 13 STEP 4 

PRINT USING " ! ";B$(1),B$(I+1),B$(1+2),B$(1+3) 

NEXT L:PRINT:RETURN 

INPUT " INVERSER QUELLES POSITIONS";X,Y 

IF XCY41 AND XCDY-1 THEN PRINT "ILLEGAL.A NOUVEAU...":GO0TO 510 
S=5+1:1F S>1 THEN PRINT "SEULEMENT UN COUP SPECIAL PAR JEU.":G0TO 200 
T$=2B$(X):B$(X)=B$(Y):B$(Y)=T$:GOTO 240 

END 


RUN 


ROTATION 
CREATIVE COMPUTING 
MORRISTOWN, NEW :TERSFV 


INSTRUCTIONS? OUI 


DANS CE JEU LE TABLEAU EST NUMEROTE DE LA FACON SUIVANTE: 


1 2 3 4 
5: 6,7: 8 
9 10 11 12 


13 14 15 16 


LES CASES DU TABLEAU SONT OCCUPEES AU HASARD PAR LES LETTRES 
DE À À P.LE BUT DU JEU EST DE RANGER CES LETTRES PAR DES 
ROTATIONS DE GROUPES DE 4 LETTRES DANS LE SENS DES AIGUILLES 
D'UNE MONTRE.VOUS SPECIFIEZ LA LETTRE EN HAUT A GAUCHE,I.E., 
LES COUPS VALIDES SONT 1,2,3,5,6,7,9,10 ET 11. 


RENTRER ‘RETURN' POUR CONTINUER. 


DE FAIT,LE TABLEAU RESSEMBLE A: 


ÀA C G D 
E -B:E" .H 
1 JO K L 
M N O P 
ET QUE LA ROTATION EST AUTOUR DU 2,LE TABLEAU SERA: 
A C G D 
E. By PF, ‘H 
L;, J-K:, 5 
M N O P 


ET VOUS GAGNERIEZI 


RENTRER ‘RETURN' POUR CONTINUER. 


VOUS AVEZ AUSSI UN COUP ‘SPECIAL'PAR JEU, DONT VOUS N'AVEZ PAS 
FORCEMENT BESOIN.IL VOUS PERMET D'INVERSER LA POSITION 

DE DEUX LETTRES ADJACENTES DE LA MEME LIGNE.POUR FAIRE CE 
COUP, RENTRER UN ‘-l' COMME COUP ET ON VOUS DEMANDERA LES 
POSITIONS DES DEUX LETTRES A INVERSER.N'OUBLIEZ-PAS-- 
SEULEMENT UN SEUL COUP SPECIAL PAR JEUI 


POUR SORTIR N'IMPORTE QUAND,TAPER UN ‘O'. 
POUR SORTIR DEFINITIVEMENT, TAPER'99'. 


BONNE CHANCE! 


VOICI LE TABLEAU DE DEPART... 


UOxST 
arm 
QXmM 
w'ZVY> 
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POSITION 
D. E 1 
MH F 
O L G 
J C B 

POSITION 
D E 1 
M H F 
O0 L B 
J C N 

POSITION 
DE F 
M H P 
O L B 
J C N 

POSITION 


POSITION 
D H E 
M À P 
O0 L B 
J C N 

POSITION 
M D E 
A H P 
O0 L B 
J C N 

POSITION 
À M E 
H D P 
O0 L B 
J C N 

POSITION 
À M E 
H D B 
O0 L G 
J C N 

POSITION 
À D M 
H B E 
O0 L G 
J C N 

POSITION 
À B D 
H E M 
O0 L G 
J C N 

POSITION 
À B D 
H E M 
Oo C L 
J N G 


DE 


ZrOUP 


DE 


LIRE 


D 


tm 


rO>H 


DE 


OH 


DE 


Om 


DE 


OH! 


DE 


xOH'" 


DE 


HU! 


DE 


XMH'UM 


DE 


FHM'U I 


D: 


tm 


SMUM 


ROTATION? 


ROTATION? 


ROTATION? 


ROTATION? 


ROTATION? 


ROTATION? 


ROTATION? 


ROTATION? 


ROTATION? 


ROTATION? 


ROTATION? 


11 


11 


10 


POSITION 
A B D 
H E M 
O N cC 
J G L 

POSITION 
A B D 
H E C 
ON UT 
J G L 

POSITION 
À B C 
H E M 
O N I 
J G L 

POSITION 
À B C 
H E 1 
O N P 
J G L 

POSITION 
À B C 
HE P 
O0 N F 
J G L 

POSITION 
À B C 
O H P 
N E F 
J G L 

POSITION 
A B C 
N O P 
E HF 
J G L 

POSITION 
À B C 
E N P 
H O F 
J G L 

POSITION 
À B C 
E O N 
HE? 
J G L 

POSITION 
À B C 
E F O 
H PO N 
J G L 

POSITION 
À B C 
E F O 
H G P 
J L N 


DE 


MU 


DE 


F'UxX"M 


DE 


S'U"MT 


D 


m 


LE 2e) 


DE 


ZMDO 


DE 


EM TO 


DE 


EMDO 


DE 


XEMD 


DE 


SEMO 


EMDO 


DE 


XEMO 


ROTATION? 


ROTATION? 


ROTATION? 


ROTATION? 


ROTATION? 


ROTATION? 


ROTATION? 


ROTATION? 


ROTATION? 


ROTATION? 


ROTATION? 


10 


10 


POSITION 
A B C 
E F O 
J H P 
L G N 

POSITION 
A B C 
E F O 
J G H 
L ON P 

POSITION 
À B C 
EF: H 
J G M 
L ON P 

POSITION 
A B C 
E F H 
J N G 
L OP M 

POSITION 
ÀA B C 
E F G 
J ON I 
L P M 

POSITION 
A B C 
E F G 
J P N 
L M I 
OSTTION 
A B C 
E G 
J * » 
LOI N 

POSITION 
A B C 
E: :F° :G 
L J P 
1 MN 

POSITION 
À B C 
EF 16 
1 L P 
M JON 

POSITION 
A B C 
E F G 
1 J L 
M ON P 

POSITION 
A B C 
E F G 
I ON J 
M P L 

POSITION 
À B C 
E F G 
I ON L 
M P K 


136 


DE 


REHO 


D 


m 


FEMDO 


DE 


HOT 


DE 


HOD 


DE 


XOZTÙ0 


D 


m 


OZ 


NE 


OT 


DE 


OZTO 


D 


m 


FOTO 


DE 


xOZTO 


DE 


FOTO 


D 


m 


OUxvO 


ROTATION? 


ROTATION? 


ROTATION? 


ROTATION? 


ROTATION? 


ROTATION? 


ROTATION? 


ROTATION? 


ROTATION? 


ROTATION? 


ROTATION? 


ROTATION? 


10 


10 


10 


10 


11 


POSITION 
ILLEGAL. 
POSITION 


zHmy 
vTvzMmw 
0x:Qan 


POSITION 


KuHm» 
TZ 
uoan 


POSITION 


zrm> 
vzZzmw 
ruan 


POSITION 


knHm> 
rTmw 
uzZzAN 


POSITION 


num» 
armw 
zZzvTan 


POSITION 


tm 
ZUmw 
Tran 


POSITION 


nm 
Zum 
xTvO0 


POSITION 


xHmy 
ZUmw 
0rAan 


POSITION 


DE ROTATION? 1111 
A NOUVEAU... 
DE ROTATION? 11 


DE ROTATION? 11 


rXxZzO 


D 


m 


ROTATION? 11 


OT 


DE ROTATION? 16 


XOZT 


DE ROTATION? 10 


xOZTD 


DE ROTATION? 10 


XOZTO 


DE ROTATION? 11 


O0Txzv0 


DE ROTATION? 11 


[ah -Ac) 


DE ROTATION? -1 


INVERSER QUELLES POSITIONS? 
ILLEGAL.A NOUVEAU... 
INVERSER QUELLES POSITIONS? 
ILLEGAL.A NOUVEAU... 
INVERSER QUELLES POSITIONS? 
ILLEGAL.A NOUVEAU... 
INVERSER QUELLES POSITIONS? 


À B C 
E F G 
I J P 
M N oO 
POSITION 
VOICI LE 
L M I 
H: ‘PC 
B G K 
D F J 


LEA 


DE ROTATION? O 


TABLEAU DE DEPART... 


O>2Zt 


12,16 
16,12 
12,16 


11,12 


Safe (Coffre) 





En un sens, ce jeu fait partie de la 
famille : « Découvrez le nombre mysté- 
rieux ». Cependant, il revêt une forme 
différente. Dans ce jeu, vous tentez d'ou- 
vrir un coffre-fort en tournant un cadran 
dans un sens ou dans l’autre, entre les 
chiffres 1 et 99. 

Les instructions explicitées dans le 
listing d'exemple sont complètes. 
Cependant, voici un conseil qui pourra 
vous aider : lorsque vous entamez le jeu, il 
vaut généralement mieux commencer à 
99, si vous tournez vers la droite. En effet, 
lorsque vous entendez un cliquetis, le 
nombre que vous cherchez n'est pas loin. 
Sinon, vous pouvez aller de 8 en 8 ou de 
10 en 10, jusqu'à ce que vous entendiez 
le premier clic, en extrapolant ensuite à 
partir de ce que vous avez obtenu. 

Kevin Ashley a créé et écrit ce pro- 
gramme. 


Droite 


Gauche 





Remarque : || n'y a pas de repère 0 (zéro) 
et on revient automatiquement au début, 
une fois passé le dernier nombre, comme 
dans la plupart des serrures à chiffres. 
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COFFRE 
CREATIVE COMPUTING 
MORRISTOWN, NEW JERSEY 


VOULEZ-VOUS DFS INSTRUCTIONS? OUI 


VOUS ETES UN VOLEUR,ET VOUS VENEZ DE DECOUVRIR UN COFFRE.VOUS 
DEVEZ OUVRIR LE COFFRE POUR PRENDRE LES PLANS SECRETS QUE VOUS 
ETES VENU CHERCHER. 


POUR LE FAIRE,VOUS DEVEZ ENTRER LE NOMBRE QUE VOUS VOULEZ 

POUR FAIRE TOURNER LE CADRAN. L'ORDINATEUR JOUERA LE ROLE DU COFFRE 
ET VOUS AINERA AINSI: VOUS ‘ENTENDREZ' UN CLICK A CHAQUE CRAN 

QUAND VOUS TOURNEREZ DU BON NOMBRE. IL Y EN À QUATRE AVANT 

QUE VOUS N'ENTENDIEZ LE CLICK FINAL. APRES QUE LE CLICK FINAL 

AIT ETE ENTENDU,VOUS CHOISIREZ UN NOUVEAU NOMBRE. L'ORDI- 

NATEUR ‘DIRA' ‘CLICK' POUR CHAQUE CRAN QUE VOUS PASSEREZ 

ET ‘#*#*CLICK**' QUAND VOUS AUREZ TROUVE LE BON NOMBRE. SI 

VOUS LE MANQUEZ OÙ SI VOUS TENTEZ DE DÉCOUVRIR DIX FOIS UN 

MEME NOMBRE, VOUS DECLANCHEREZ L'ALARME. 


SOUVENEZ-VOUS QUE LORSQUE VOUS TOURNEZ LE CADRAN À GAUCHE, 
LES NOMBRES VONT DE 1 À 99,ET LORSQUE VOUS LE TOURNEZ A DROITE, 
LES NOMBRES VONT DE 99 À 1. 


OKAY, COMMENCEZ À DROITE, CHHHHHHIIIIILILUILUUI 
ETES VOUS PRET? OUI 


OK, ALORS COMMENCONS : 
? 89 
? 79 
CLICK 
? 69 
CLICK 
CLICK 
2? 59 
CLICK 
CLICK 
? 49 
CLICK 
CLICK 
CLICK 
? 35 
CLICK 
CLICK 
CLICK 
CLICK 
? 32 
CLICK 
CLICK 
CLICK 
CLICK 
? 30 
CLICK 
CLICK 
CLICK 
CLICK 
?':29 
## CLICK ** 
ET MAINTENANT A GAUCHE. 
25 
CLICK 
CLICK 
CLICK 
? 10 
? 6 





2 7 ? 49 
> 4 CLICK 
? 10 CLICK 
3 20 CLICK 
CLICK ? 30 
2 30 CLICK 
2 25 CLICK 
? 23 CLICK 
LE SENSEUR À ETE DECLENCHEI CLICK 
PARTEZ TANT QU'IL EN EST ENCORE TEMPS AVANT QUE ? 29 
LA POLICE NE SOIT LA. ** CLICK ** 
ET MAINTENANT À GAUCHE. 
VOUS VOULEZ ESSAYER ENCORE CE COFFRE? OUI 2.3 
ETES VOUS PRET? OUI CLICK 
CLICK 
OK, ALORS COMMENCONS : CLICK 
? 21 2 4 
LE SENSEUR À ETE DECLENCHE! ?5 
PARTEZ TANT QU'IL EN EST ENCORE TEMPS AVANT QUE 27 
LA POLICE NE SOIT LA. ? 20 
CLICK 
VOUS VOULEZ ESSAYER ENCORE CE COFFRE? OUI ? 2 
ETES VOUS PRET? OUI ; : 
OK, ALORS COMMENCONS : ? 10 
2? 89 ? 15 
? 79 LE SENSEUR À ETE DECLENCHEI 
CLICK PARTEZ TANT QU'IL EN EST ENCORE TEMPS AVANT QUE 
2 69 LA POLICE NE SOIT LA. 
CLICK 
CLICK VOUS VOULEZ ESSAYER ENCORE CE COFFRE? NON 
2? 59 OKAY, COMMENCEZ À DROITE, CHHHHHHIIIIIIITILIIIL 
CLICK ETES VOUS PRET? NON 
CLICK Ok 
1 PRINT CHR$(26);TAB(28)"COFFRE" 80 3=3+1 
2 PRINT TAB(20)"CREATIVE COMPUTING" 490 GOTO 400 
3 PRINT TAB(18)"MORRISTOWN, NEW JERSEY" 500 PRINTLE SENSEUR À ETE DECLENCHE!" 
& PRINT 510 PRINT'PARTEZ TANT QU'IL EN EST ENCORE TEMPS AVANT QUE" 
5 PRINT 520 PRINT"LA POLICE NE SOIT LA." 
10 DIM A1(4) 530 PRINT:PRINI"VOUS VOULEZ ESSAYER ENCORE CE COFFRE"; 
20 PRINT"VOULEZ-VOUS DCS INSTRUCTIONS"; 540 INPUT A$ 
30 INPUT A$ 550 IF LEFT$(A$,1)="0" THEN 280 
40 IF LEFT$(A$,1)="0" THEN 80 560 GOTO 250 
50 IF LEFT$(A$,1)="N" THEN 250 570 PRINT"## CLICK ##" 
60 PRINT"REPONDEZ OUI OÙ NON." 580 L=L+8 
70 GOTO 20 590 FOR K=1 T0 à 
80 PRINT 600 AL(K)=K*L/5+B 
90 PRINT 610 NEXT K 
100 PRINT"VOUS ETES UN VOLEUR,ET VOUS VENEZ DE DÉCOUVRIR UN COFFRE. VOUS" 620 PRINT"ET MAINTENANT A GAUCHE." 
110 PRINT"DEVEZ OUVRIR LE COFFRE POUR PRENDRE LES PLANS SECRETS QUE VOUS" 630 2=1 
111 PRINT"ETES VENU CHERCHER." 640 INPUT M 
115 PRINT 650 ON SGN(M-A)+2 GOTO 660,500,680 
120 PRINT"PQUR LE FAIRE, VOUS DEVEZ ENTRER LE NOMBRE QUE VOUS VOULEZ" 660 ON SGN(H-B)+2 COTO 670, 760, 500 
130 PRINT"POUR FAIRE TOURNER LE CADRAN. L'ORDINATEUR JGUERA LE ROLE DU COFFRE " 670 M=M+100 
140 PRINT"ET VOUS AIDERA AINSI: VOUS *ENTENDREZ' UN CLICK A CHAQUE CRAN" 680 FOR K=1 T0 à 
150 PRINT"QUAND VOUS TOURNEREZ DU BON NOMBRE. IL Y EN A QUATRE AVANT" 690 IF MCAL(K) THEN 720 
160 PRINT"QUE VOUS N'ENTENDIEZ LE CLICK FINAL. APRES QUE LE CLICK FINAL" 700 PRINT"CLICK" 
170 PRINT'AIT TE ENTENOU, VOUS CHOISIREZ UN NOUVEAI NOMBRE. L'OPDI-" 710 A1(K)2200 
180 PRINT'NATEUR ‘'DIRA' "CLICK! POUR CHAQUE CRAN QUE VOUS PASSEREZ" 720 NEXT K 
190 PRINTMET ‘##CLICK##! QUAND VOUS AUREZ TROUVE LE BON NOMBRE. SI" 730 IF 25210 THEN 500 
200 PRINT"VOUS LF MANQUEZ OÙ SI VOUS TENTEZ DE DECOUVRIR DIX FNIS UN" 740 32341 
210 PRINT"MEME NOMBRE, VOUS DECLANCHEREZ L'ALARME ." 750 GOTO 640 
215 PRINT 760 PRINT"## CLICK ##" 
220 PRINT'SOUVENEZ-VOUS QUE LORSQUE VOUS TOURNEZ LE CADRAN A GAUCHE," 770 L=(100-C)+B 
230 PRINT"LES NOMBRES VONT DE 1 À 99,ET LORSQUE VOUS LE TOURNEZ À DROITE," 280 FOR K=1 T0 4 
240 PRINIMLES NOMBRES VONT DE 99 À 1.":PRINT:PRINT 790 A1(K)2=B+100-K%L /5 
250 PRINT"OKAY, COMMENCEZ A DRANITE, CHHHHHHILEUIEUEEIUNEUN 800 NEXT K 
260 A=INT(RND(1)#81)+10 810 PRINT"ET MAINTENANT DE NOUVEAU A DROITE." 
270 B=INT(RND(1)*81)+10 820 J=1 
280 C=INT(RND(1)#*81 )+10 830 INPUT M 
290 PRINT"ETES VOUS PRET"; 840 ON SGN(M-B)+2 GOTO 860,500,850 
300 INPUT A$ \ 850 ON SGN(M-C)+2 GOTO 500,950, 870 
310 IF LEFT$S(A$,1)="0" THEN 340 860 M=M+100 
320 IF A$<>"QUOI"THEN 990 870 FOR K=1 TO 4 
330 PRINT A;B;C 880 IF M>AL(K) THEN 910 
340 L=100-A 890 PRINT"CLICK" 
350 FOR M=1 T0 4 900 A1(K)=-200 
360 A1(M)=(5-M)#*L/5+A 910 NEXT K 
370 NEXT M 920 IF J>=10 THEN 500 
380 J=1 930 J=J+1 
390 PRINT:PRINT"OK, ALORS COMMENCONS:" 940 GNTO 830 
400 INPUT H 950 PRINT:PRINT"## CLICK #*.,.VOUS L'AVEZ OUVERTI" 
410 ON SGN(M-A)+2 GOTN 500,570,420 960 PRINT"MAIS AH,0H, IL A DU CHANGER LES PLANS DE PLACE." 
420 FOR K=1 10 4 970 PRINI"ESSAYEZ D'OUVRIR CELUI CI, LA." 
430 IF M>AL(K) THEN 460 980 GOTO 250 
440 PRINT"CLICK" 990 END 
460 NEXT K EOF HIT 
470 IF J>=10 THEN 500 * 
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cales 





Ce programme fait appel à votre 
connaissance des gammes musicales. || 
génère onze types de gammes : majeure, 
mineure naturelle, mineure harmonique, 
mineure hongroise, dorienne, phrygienne, 
lydienne, mixolydienne, locrienne, et ton 
entier. 

Avant de lancer le programme, 
entraînez-vous « à blanc » sur une feuille 
de papier en écrivant plusieurs types de 
gammes et huit notes en commençant par 
une note de votre choix. Vous pouvez 
alors lancer le programme et vérifier vos 
réponses. 

Dans ce programme, on vous demande 
« Quel type de gamme désirez-vous ? » 
Répondez en tapant les deux premières 
lettres du nom de la gamme choisie, 
suivies de la clé choisie. Utilisez le 
symbole «b » pour bémol et « # » pour 
dièse. Voici quelques exemples : gamme 
phrygienne en mi, tapez « phm », gamme 
majeure en fa dièse, tapez « maf# », et 
ton entier en sol, «tes ». 

L'auteur de ce programme est Marvin 
S. Thostenson, de l'Ecole de Musique, 
Université d'lowa. Ce programme parut 
pour la première fois dans Creative 
Computing, mars-avril 1977. 


(Gammes) 


GAMMES 
CREATIVE COMPUTING 
MORRISTOWN, NEW JERSEY 


ONZE TYPES DE (:MMF -- MAJEURE, MINEURE, MODALE, ET TOUS LES TONS 


CE PROGRAMME IMPRIME EN LETTRES UNE OCTAVE MONTANTE,LA MAJEURE, 


LES MINEURES NATURELLE ,HARMONIQUE,MELODIQUE ET 
DORIEN,PHRYGIEN,LYDIEN,MIXOLYDIEN,ET LOCRIEN, 
ET LES GAMMES DE TOUS TONS. 


HONGROISE,LES MODES 


UTILISEZ UNE ENTREE DE 3- OU 4- CARACTERES: LES 2 PREMIERS CARACTERES 


POUR LR TYPE DE GAMME,ET LE 3EME EST LA LETTRE 
DEUX DERNIERS SONT LE DEGRE TONIQUE ET LA CLE. 


TONIQUE,OU LES 


TYPES DE GAMMES-- MA NA HA ME DO PH LY MI LO HO ET TO 


ENTREZ OU UNE TONIQUE OÙ UNE ARMATURE. 


EXEMPLES: MACB LYDB MIEB TOGB NAF# HAG# MEA# LOC# DOC PHD HOE 


LES NOTES SONT: DO=C RE=D MI=E FA=F SOL=G LA=A 


QUEL TYPE NE GAMME EST DEMANDE? tof# 
GAMME DEMANDEE === To: gamme 


REPONSE (EN LETTRE) --------— 


F# G# Af Bt D E F# 


QUEL TYPE DE GAMME EST MEMANNE? nae 
GAMME DEMANDEE == Na: gamme 


REPONSE (EN LETTRE) --------- 


QUEL TYPE DE GAMME EST DEMANDE? toc 
GAMME DEMANDEE ==-——— To: gamme 


REPONSE (EN LETTRE) ---------- 
C NE  F# Ab Bh cC 


QUEL TYPE DE GAMME EST DEMANDE? ho2# 
GAMME DEMANDEE -------- Ho: gamme 


REPONSE (EN LETTRE) ---------- 


B C# D E# F# G A#f B 


QUFL TYPE DE GAMME EST DEMANDE? stop 
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SI=B 


tous tons en F# 


mineure naturelle en E 


tous tons en C 


mineure hongr. en B 


list 
5 PRINT CHR$(26):CLEAR 500 


10 PRINT TAB(26);"GAMMES" 660 IF MIDS(AS,3,2)=MIDS(HS,V,2) THEN 680 

20 PRINT TAB(20);"CREATIVE COMPUTING" 670 NEXT V 

30 PRINT TAB(18);"MORRISTOWN, NEW JERSEY* 680 C1$=MIDS(GS,V,2) 

40 PRINT:PRINT:PRINT 690 T=T+1 

100 A=0:B=0:C=0: D=0: F=0 : H=0 : K=0 : L=0 : M=0 : N=0 : O=0 700 IF T=9 THEN 1160 

200 W=4 710 ON T GOTO 720,740,790,B40,890,940,990,1040 
210 PRINT "ONZE TYPES DE GAMME -- MAJEURE, MINEURE, MODALE, ET TOUS LES TONS" 720 R=0 

215 PRINT 730 GOTO 1060 

220 PRINT “CE PROGRAMME IMPRIME EN LETTRES UNE OCTAVE MONTANTE, “; 740 IF Q=6 OR Q=9 THEN 770 

225 PRINT "LA MAJEURE," 750 R=-4 

227 PRINT "LES MINEURES NATURELLE ,HARMONIQUE,MELODIQUE ET HONGROISE,LES MODES" 760 GOTO 1060 

228 PRINT "DORIEN,PHRYGIEN,LYDIEN,MIXOLYDIEN,ET LOCRIEN, * 770 R=10 

229 PRINT “ET LES GAMMES DE TOUS TONS.":PRINT 780 GOTO 1060 

230 PRINT "UTILISEZ UNE ENTREE DE 3- OU 4- CARACTERES: LES 2 PREMIFRS CARACTERES ut at OR Q=7 OR Q=8 OR N="* THFN 820 
232 PRINT “POUR LR TYPE DE GAMME,ET LE 3EME EST LA LETTRE TONIQUE,OU LES" 810 GOTO 1060 

234 PRINT "DEUX DERNIERS SONT LE DEGRE TONIQUE ET LA CLF." 820 R=-8 

240 PRINT "TYPFS DE GAMMES-- MA NA HA MF DO PH LY MI LO HO FT TO“ 830 GOTO 1060 

250 PRINT “ENTREZ OU UNE TONIQUE OU UNE ARMATURE." 840 IF Q=7 OR Q=10 OR Q=11 THEN 870 

260 PRINT "EXEMPLES: MACB LYDB MIEB TOGB NAF# HAG# MEA# LOC# DOC PHD HOE" 850 R=2 

261 PRINT "LES NOTES SONT: DO=C RE=D MI=E FA=F SOL=G LA=A SI=B" 860 GOTO_ 1060 

270 B$="GAMME DEMANDEE s 870 R=-12 

280 C$="REPONSE (EN LETTRE) =" " 880 GOTO 1060 

290 O$="STRUCTURE-=--- " 890 IF Q=9 OR Q=11 THEN 920 

300 K$=" tetracorde" 900 R=-2 

310 U=1 910 GOTO 1060 

320 PRINT:PRINT:PRINT TAB(8):;"QUEL TYPE DE GAMME EST DEMANDE"; 220-Re12 

330 INPUT AS 930 GOTO 1060 

340 N=LEN(AS) 940 IF O=1 OR Q=4 OR Q=5 OR Q=7 OR Q=8 THEN 970 
350 IF AS$="STOP" THEN 1290 950 R=8 

360 E$="manahamedophlymilohoto" 960 GOTO 1060 

370 FOR X=1 TO 22 STEP 2 970 R=-6 

380 IF LEFTS(AS,2)=MID$S(ES,X,2) THEN 400 980 GOTO 1060 

390 NEXT X 990 1F O=1 OR Q=3 OR Q=4 OR Q=7 OR Q=10 THEN 1020 

400 Q=(X+1)/2 1000 R=4 

410 AOS$S=AS$ 1010 GOTO 1060 

420 X=ASC(LEFTS (AOS,1))-32 1020 R=-10 

425 AO$=CHRS (X)+MIDS(AOS,2,N) 1030 GOTO 1060 

430 READ D$ 1040 R=0 

440 AO$=AS 1060 IF Q=11 AND T=5 THEN 1090 

450 X=ASC(LEFTS (AOS,1))-32 1070 IF U=l THEN I$=MIDS(G$,V+R,2):GOTO 1100 

455 AO$=CHRS (X)+MIDS(AOS,2,N) 1075 IS=LEPTS (IS ,U-1)+MID$ (GS, V+R,2) 

460 IF LEFTS(D$,2)=LFFTS(AOS,2) THEN 480 1080 GOTO 1100 

470 GOTO 430 1090 GOTO 690 

480 J$=DS 1100 IS=LEFT$(I$,U+1)+" 

490 RESTORE 1110 IF MID$(IS$,U+1,1)="4" THEN 1130 

500 IF N<>3 THEN 530 1120 GOTO 1140 

520 AS=LEFTS(AS,3)+" " 1130 I$=LEFTS$(1$,U)+"bb" 

530 IF Q=1 OR Q=7 OR Q=11 THEN 550 1140 U=U+4 

540 IF O>=2 AND O<=6 OR ©=® OR Q=10 THEN 570 1150 GOTO 690 

550 Y=1 1160 PRINT:PRINT TAB(3),B$:J$:C1$:PRINT 

560 GOTO 580 1170 PRINT TAB(3):C$:PRINT 

570 Y=2 1180 PRINT:PRINT TAB(8):1$ 

580 F$="bxexaxdxqxexfxbtetatdtg#ct#f#b e a 4 q c f “: 1190 C1$="":1$="":G$="" 

585 F$=F$+"hhebahdbghcbfbbdedadddgdcd" 1220 Q=0:T=0: R=0 

590 G$="BxExAxDxGxCxFXB#E#A#D#G#C#F#B E ADGCF * 1230 PRINT 

595 G$=G$+"BDbEhAbDbGbCbFbB4EdAGDAGACA" 1240 GOTO 310 

600 ON Y GOTO 610,630 1250 DATA “Ma: qamme majeure en “,"Na: gamme mineure naturelle en Gi 
610 H$="5t4t3t2t1t7x6x5x4x3x2x1x786#5#4#3#281#0#1b2h3b4bSb6h7bld24d3d4d" 1255 DATA “Ha: gamme mineure harmonique en ","Me: gamme mineure mel. en * 
615 H$=H$+"546474" 1260 DATA “Do: mode dorien en “,"Ph: mode phrygien en * 
620 GOTO 640 1270 DATA “Ly: mode lydien en “,"Mi: mode mixolydien en “,"Lo: mode locrien et 
630 H$="2t1t7x6x5x4x3x2x1x7#645#4#3#2#1#0#1b2b3b4bSb6b7bla243444" 1280 DATA “Ho: gamme mineure hongr. en “,"To: gamme tous tons en * 
635 H$=H$+"54647d48494 * 1290 END 

640 FOR V=l TO 68 STEP 2 Ok 









650 IF MIDS(AS,3,2)=MIDS(FS,V,2) THEN 680 
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Schmoo 





Les Schmoos sont des créatures imagji- 
naires qui adorent être éclaboussées par 
des boules de boue juteuse. Vous, qui 
aimez les Schmoos, essayez de les 
rendre heureux en leur lançant des boules 
de boue. Etre un peu au courant des 
coordonnées cartésiennes et des angles 
pourrait vous être utile comme le fait que 
2,—3 dans le système de coordonnées X, 
Y veut dire 2 à droite et 3 en bas. Si 
0 degré désigne l'axe des X, alors 2,—38 
sera dans le quatrième quadrant et cor- 
respondra aux angles compris entre 270 
et 360 degrés. 

Si vous êtes doué, vous pourrez écla- 
bousser le Schmoo au bout de huit essais; 
mais ne trichez pas en utilisant la formule. 
Et n'espérez pas que je vous dise où il 
se trouve dans le programme. 

Si vous voulez étendre le jeu du 
Schmoo, vous pouvez rajouter une troi- 
sième dimension, grâce à des Schmoos 
volants. Le programme ne serait pas trop 
difficile et ce serait un beau jeu. Si vous 
voulez essayer quelque chose de plus 
facile, fixez le Schmoo de telle manière 
que cela nécessite la vitesse initiale et 
l'angle. Vous pouvez aussi faire une 
version en faible gravité (version lunaire). 

Schmoo a été conçu et écrit par Frede- 
rick H. Bell de l’Université de Pittsburgh. Il 
est paru pour la première fois dans 
Creative Computing en sept.-oct. 1975. 


RUN 


SCHMOO 


CREATIVE COMPUTING MORRISTOWN NEW JERSEY 


CECI EST UNE NOUVELLE VERSION DU JEU DE SCHMOO.LES SCHMOOS 


SONT DES CREATURES IMAGINAIRES QUI ADORENT 


ETRE ECLABOUSSES PAR DES BOULES DE BOUE JUTEUSES. 


VOUS ,QUI AIMEZ LES SCHMOOS,ESSAYER DE 

LES RENDRE HEUREUX EN LEUR LANCANT DES BOULES 
DE BOUE.VOUS POSSEDEZ UNE 

FRONDE MECANIQUE QUI PEUT ENVOYER 

DES BOULES DE BOUE À UNE DISTANCE MAXIMALE 
DE 46500 CENTIMETRES.VOTRE ROLE EST DE 
REGLER LA FRONDE À L'ELEVATION CORRECTE 
(COMPRISE ENTREZ O ET 90 DEGRES) ET L'ANGLE 
DE DIRECTION CORRECT (0 A 360) POUR 
ECLABOUSSER LE SCHMOO.UN COUP A MOINS DE 
100 CENTIMETRES DE LUI L'ECLBOUSSERA. 


LES COORDONNEES DU SCHMOO SONT (-12930 ,-13108 ). 


ELEVATION DE LA FRONDE ? 39 

ANGLE DE TIR DE LA FRONDE ? 34 

VOUS AVEZ RATE LE SCHMOO À (-12930 ,-13108 ). 
VOTRE LANCE DE BOUE EST ( 37707 , 25433 ). 


ELEVATION DE LA FRONDE ? 30 

ANGLE DE TIR DE LA FRONDE ? 220 

VOUS AVEZ RATE LE SCHMOO À (-12930 ,-13108 ). 
VOTRE LANCE DE BOUE EST (-30849 ,-25886 ). 


ELEVATION DE LA FRONDE ? 20 

ANGLE DE TIR DE LA FRONDE ? 220 

VOUS AVEZ RATE LE SCHMOO A (-12930 ,-13108 ). 
VOTRE LANCE DE BOUE EST (-22897 ,-19213 ). 


ELEVATION DE LA FRONDE ? 14 
ANGLE DE TIR DE LA FRONDE ? 215 
VOUS AVEZ RATE LE SCHMOO À (-12930 ,-13108 ). 


VOTRE LANCE DE BOUE EST (-17883 ,-12522 ). 
ELEVATION DE LA FRONDE ? 14 

ANGLE DE TIR DE LA FRONDE ? 217 

VOUS AVEZ RATE LE SCHMOO À (-12930 ,-13108 }). 


VOTRE LANCE DE BOUE EST (-17435 ,-13138 ). 


ELEVATION DE LA FRONDE ? 13 

ANGLE DE TIR DE LA FRONDE ? 217 

VOUS AVEZ RATE LE SCHMOO À (-12930 ,-13108 ). 
VOTRE LANCE DE BOUE EST (-16280 ,-12268 ). 
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. ELEVATION DE LA FRONDE ? 14 


ANGLE DE TIR DE LA FRONDE ? 217 


VOUS AVEZ RATE LE SCHMOO À (-12930 ,-13108 
VOTRE LANCE DE BOUE EST (-17435 ,-13138 ). 
ELEVATION DE LA FRONDE ? 14 

ANGLE DE TIR DE LA FRONDE ? 218 

VOUS AVEZ RATE LE SCHMOO À (-12930 ,-13108 


VOTRE LANCE DE BOUE EST (-17203 ,-13440 ). 


ELEVATION DE LA FRONDE ? 13 

ANGLE DE TIR DE LA FRONDE ? 219 

VOUS AVEZ RATE LE SCHMOO À (-12930 ,-13108 
VOTRE LANCE DE BOUE EST (-15842 ,-12829 ). 


ELEVATION DE LA FRONDE ? 14 

ANGLE DE TIR DE LA FRONDE ? 220 

VOUS AVEZ RATE LE SCHMOO À (-12930 ,-13108 
VOTRE LANCE DE BOUE EST (-16723 ,-14033 ). 


ELEVATION DE LA FRONDE ? 13 

ANGLE DE TIR DE LA FRONDE ? 220 

VOUS AVEZ RATE LE SCHMOO À (-12930 ,-13108 
VOTRE LANCE DE BOUE EST (-15616 ,-13103 ). 


ELEVATION DE LA FRONDE ? 12.5 

ANGLE DE TIR DE LA FRONDE ? 221 

VOUS AVEZ RATE LE SCHMOO À (-12930 ,-13108 
VOTRE LANCE DE BOUE EST (-14831 ,-12893 ). 


ELEVATION DE LA FRONDE ? 13 

ANGLE DE TIR DE LA FRONDE ? 222 

VOUS AVEZ RATE LE SCHMOO À (-12930 ,-13108 
VOTRE LANCE DE BOUE EST (-15149 ,-13640 ). 


ELEVATION DE LA FRONDE ? 13 

ANGLE DE TIR DE LA FRONDE ? 224 

VOUS AVEZ RATE LE SCHMOO À (-12930 ,-13108 
VOTRE LANCE DE BOUE EST (-14664 ,-14160 ). 


ELEVATION DE LA FRONDE ? 12.5 

ANGLE DE TIR DE LA FRONDE ? 224 

VOUS AVEZ RATE LE SCHMOO À (-12930 ,-13108 
VOTRE LANCE DE BOUE EST (-14136 ,-13651 ). 


ELEVATION DE LA FRONDE ? 12 

ANGLE DE TIR DE LA FRONDE ? 225 

VOUS AVEZ RATE LE SCHMOO À (-12930 ,-13108 
VOTRE LANCE DE BOUE EST (-13374 ,-13374 ). 


ELEVATION DE LA FRONDE ? 11.5 

ANGLE DE TIR DE LA FRONDE ? 226 

VOUS AVEZ RATE LE SCHMOO À (-12930 ,-13108 
VOTRE LANCE DE BOUE EST (-12621 ,-13069 ). 


ELEVATION DE LA FRONDE ? 11.7 
ANGLE DE TIR DE LA FRONDE ? 226 


VOUS AVEZ RATE LE SCHMOO À (-12930 ,-13108 ) 


VOTRE LANCE DE BOUE EST (-12829 ,-13285 ). 


ELEVATION DE LA FRONDE ? 11.8 

ANGLE DE TIR DE LA FRONDE ? 22.58 

VOUS AVEZ RATE LE SCHMOO À (-12930 ,-13108 ). 
VOTRE LANCE DE BOUE EST ( 17188 , 7148 ). 


ELEVATION DE LA FRONDE ? 11.8 

ANGLE DE TIR DE LA FRONDE ? 225.8 

VOUS AVEZ RATE LE SCHMOO À (-12930 ,-13108 ). 
VOTRE LANCE DE BOUE EST (-12979 ,-13347 ). 


ELEVATION DE LA FRONDE ? 11.78 

ANGLE DE TIR DE LA FRONDE ? 225.7 

VOUS AVEZ RATE LE SCHMOO À (-12930 ,-13108 ). 
VOTRE LANCE DE BOUE EST (-12981 ,-13302 ). 


ELEVATION DE LA FRONDE ? 11.75 

ANGLE DE TIR DE LA FRONDE ? 225.7 

VOUS AVEZ RATE LE SCHMOO À (-12930 ,-13108 ). 
VOTRE LANCE DE BOUE EST (-12950 ,-13270 ). 


ELEVATION DE LA FRONDE ? 11.75 

ANGLE DE TIR DE LA FRONDE ? 225.6 

VOUS AVEZ RATE LE SCHMOO À (-12930 ,-13108 ). 
VOTRE LANCE DE BOUE EST (-12973 ,-13248 ). 


ELEVATION DE LA FRONDE ? 11.74 

ANGLE DE TIR DE LA FRONDE ? 225.5 

VOUS AVEZ RATE LE SCHMOO À (-12930 ,-13108 ). 
VOTRE LANCE DE BOUE EST (-12986 ,-13214 ). 


ELEVATION DE LA FRONDE ? 11.73 
ANGLE DE TIR DE LA FRONDE ? 225.4 
*LE SCHMOO EST ECLBOUSSE* 57 BOULES DE BOUE UTILISEES. 


JE VOIS UN AUTRE SCHMOO . POUR L'ECLABOUSSER 
TAPER BOUE. POUR SORTIR,TAPER FIN. 


? BOUE 


LES COORDONNEES DU SCHMOO SONT ( 6516 ,-25511 ). 
LE SCHMOO EST HEUREUX D'ETRE ECLABOUSSE . 

POUR VOUS RENDRE HEUREUX AUSSI, 

IL VA ESSAYER DE VOUS LANCER DE LA BOUE. 


ELEVATION DE LA FRONDE ? 20 

ANGLE DE TIR DE LA FRONDE ? 280 

VOUS AVEZ RATE LE SCHMOO À ( 6516 ,-25511 ). 
VOTRE LANCE DE BOUE EST ( 5190 ,-29435 ). 

LE LANCE DE BOUE DU SCHMOO EST À 1072 CENTIMETRES DE VOUS. 
ELEVATION DE LA FRONDE ? 25 

ANGLE DE TIR DE LA FRONDE ? 285 

VOUS AVEZ RATE LE SCHMOO À ( 6516 ,-25511 ). 

VOTRE LANCE DE BOUE EST ( 9219 ,-34408 ). 

LE LANCE DE BOUE DU SCHMOO EST À 2157 CENTIMETRES DE VOUS. 
ELEVATION DE LA FRONDE ? 15 

ANGLE DE TIR DE LA FRONDE ? 285 

VOUS AVEZ RATE LE SCHMOO À ( 6516 ,-25511 ). 

VOTRE LANCE DE BOUE EST ( 6017 ,-22458 ). 

LE LANCE DE BOUE DU SCHMOO EST À 1442 CENTIMETRES DE VOUS. 
ELEVATION DFE LA FRONDE ? 16 

ANGLE DE TIR DE LA FRONDE ? 285 

VOUS AVEZ RATE LE SCHMOO À ( 6516 ,-25511 ). 

VOTRE LANCE DE BOUE EST ( 6377 ,-23802 ). 

LE LANCE DE BOUE DU SCHMOO EST A 744 CENTIMETRES DE VOUS. 
ELEVATION DE LA FRONDE ? 17 

ANGLE DE TIR DE LA FRONDE ? 285 

VOUS AVEZ RATE LE SCHMOO À ( 6516 ,-25511 ). 

VOTRE LANCE DE BOUE EST ( 6729 ,-25117 ). 


LE LANCE DE BOUE DU SCHMOO EST À 92 CENTIMETRES DE VOUS. 
ELEVATION DE LA FRONDE ? 17 

ANGLE DE TIR DE LA FRONDE ? 283 

VOUS AVEZ RATE LE SCHMOO À ( 6516 ,-25511 ). 

VOTRE LANCE DE BOUE EST ( 5849 ,-25336 ). 

LE LANCE DE BOUE DU SCHMOO EST A 380 CENTIMETRES DE VOUS. 
ELEVATION DE LA FRONDE ? 18 

ANGLE DE TIR DE LA FRONDE ? 284 

VOUS AVEZ RATE LE SCHMOO À ( 6516 ,-25511 ). 

VOTRE LANCE DE BOUE EST ( 6612 ,-26521 ). 

LE LANCE DE BOUE DU SCHMOO EST À 91 CENTIMETRES DE VOUS. 
ELEVATION DE LA FRONDE ? 17 

ANGLE DE TIR DE LA FRONDE ? 284 

VOUS AVEZ RATE LE SCHMOO À ( 6516 ,-25511 ). 

VOTRE LANCE DEF BOUE EST ( 6290 ,-25230 ). 


LE SCHMOO VOUS À FCLABOUSSE! 
ALLEZ VOUS LAVER ET AU REVOIR! 
Ok 
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5 PRINT CHK$(26) 
10 PRINT TAB(3U) ;"SCHHUO" 


Zu PRINT TAB(15);"CREATIVE CUHPUTING 


MURKRISTOWN NEW JERSEY" 


21 PRINT 

22 PRINT 

30 PRINT "CECI EST UNE NOUVELLE VERSION DU JEU DE SCHHUU.LES SCHMAOUS" 
32 PRINT "SONT DES CRÉATURES IMAGINAIRES QUI ADDRENT 

34 PRINT METRE ECLAUOUSSE PAR DES BOULES DE BOUE JUTEUSE ." 
36 PRINT "VOUS, QUI AIMEZ LES SCHMOOS, ESSAYEZ DE " 

36 PRINT "LES RENDRE HEUREUX EN LEUR LANCANT DES BUULES " 
40 PRINT "DE BUUE.VOUS PUSSEDEZ UNE " 

42 PRINT "FRONDE MECANIQUE QUI PEUT ENVOYER " 

44 PRINT "DES BOULES DE BOUE A UNE DISTANCE HAXIMALE" 

46 PRINT "DE 46500 CENTIMETRES.VOTRE ROLE EST DE " 

50 PRINT "REGLER LA FRONDE A L'ELEVATION CORRECTE" 

55 PRINT "(COMPRISE ENTREZ O0 ET 9U DEGRES) ET L'ANGLE" 

60 PRINT "DE DIRECTION CORRECT (O0 À 360) POUR " 

65 PRINT "ECLABDUSSER LE SCHMOO.UN COUP À MOINS DE 

70 PRINT "100 CENTIMETRES DE LUI L'ECLABOUSSERA." 

75 PRINT 

90 PRINT 
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20Ùu 
210 
220 
250 
240 
250 
260 
300 
310 
320 
340 
350 
351 
352 
354 
356 
358 
jeu 
361 
362 
364 
366 
370 
380 
390 
395 
400 
410 
415 
417 
418 
419 
420 
500 
502 
504 
506 
520 
530 
540 
550 
560 
570 
580 
590 
595 
596 
610 
620 
630 
640 
650 
700 
710 
800 
802 
900 


K1=0 
Z=INT(14RND(1)*4-1E-U8) 
ON Z GUTO 130,140,150,160 
P=-1 
Q=-1 
GUTU 20U 
P=-1 
Qz=1 
GUTU 200 
Pal 
u=-1 
GOTU 20U 
Pzl 
Q=1 
X=(INT(26U0U*RND(1 )+5UD0) }*P 
Y= (INT (2600U*RAD (1 )+5000) )*Q 
S=0 
K1=K1+1 
IF K1 € 2 THEN 400 
R=INT(7#*RND(1)+5) 
GOTU 400 
PRINT M"L'ELEVATIUN DOIT ETRE ENTRE 1 ET 90 DEGRES." 
GUTO SOU 
PRINT "L'ANGLE DE TIR DOIT ETRE COMPRIS ENTRE O ET 360." 
GOTO 500 
PRINT "#LE SCHMOU EST ECLABOUSSE*";S; "BOULES DE BOUE UTILISEES." 
PRINT 
PRINT "JE VOIS UN AUTRE SCHMOU . PUUR L'ECLABOUSSER" 
PRINT "TAPER BOUE. PUUR SORTIR, TAPER FIN." 
PRINT 
INPUT C$ 
IF C$="BOUE" THEN 110 
END 
PRINT "VOUS AVEZ RATE LE SCHMUD À ("3X5","35v;")." 
PRINT "VOTRE LANCE DE BOUE EST (";INT(X1);", "3 INT(Y1);")." 
PRINT 
IF K1 € 2 THEN SUU 
IF S >= R THEN 800 
PRINT "LE LANCE DE BOUE DU SCHMOU EST À "3R2;"CENTIMETRES DE VOUS." 
GUTU 500 
PRINT 
PRINT "LES COORDONNEES DU SCHMOO SONT ("3X3","3Y;")." 
IF K1 < 2 THEN 420 
PRINT " LE SCHMOO EST HEUREUX D'ETRE ECLABOUSSE ." 
PRINT "POUR VOUS RENDRE HEUREUX AUSSI," 
al "IL VA ESSAYER DE VOUS LANCER DE LA BOUE." 
NT 
PRINT "ELEVATION DE LA FRONDE "; 
INPUT B 
PRINT "ANGLE DE TIR DE LA FRONDE "; 
INPUT C 
IF B = 90 THEN 700 
IF B > 90 THEN 300 
IF B < 1 THEN 300 
IF C < O THEN 320 
IF C > (360-(1E-08)) THEN 320 
S=S+1 
IF KI < 2 THEN 595 
R2=INT(ABS(300*RND(1)#*(11-2*5) )+90) 
2=3.1415926535£/180 
D=ABS(INT(93000!*SIN(B*J)*COS(B*J))) 
X1=D*C0S(C*3.1415926535£/180) 
Y1=D*SIN(C*3.1415926535£/180) 
D1=SQR((X-X1)72+(Y-Y1)°2) 
IF 100 >= D1 THEN 350 
GOTU 362 
PRINT "IDIOT ! VOUS VOUS ETES ECLABOUSSE VOUS-MEME ." 
GOTO 900 
PRINT "LE SCHMOO VOUS A ECLABOUSSE !" 
PRINT "ALLEZ VOUS LAVER ET AU REVOIR!" 
END 


Seabattle (Combat naval) 





Le propos de ce jeu est assez simple. 
Vous êtes un sous-marin et avez pour 
mission de localiser et de détruire tous les 
navires ennemis qui se trouvent dans 
votre zone, à l’aide de tous les coups qui 
sont en votre pouvoir: par exemple, 
torpilies, missiles, sabotage et suicide. 
L'ennemi, à son tour, vous envoie des 
grenades sous-marines dans l'espoir de 
vous toucher. De plus, faites attention aux 
mines sous-marines qui ont le mauvais 
goût de vous faire sauter si vous les frôlez. 
D'autres périls vous guettent, comme ces 
monstres marins affamés à la recherche 
de sandwichs au sous-marin. 

J'ai commencé ce programme il y a 
deux ans et je viens seulement d'y 
apporter les ultimes modifications. Bien 
sûr, cela ne signifie pas que j'ai travaillé 
constamment dessus pendant deux ans. 
Pendant certaines périodes longues de 4 
à 6 mois, je n'y ai pas touché du tout. Je 
l'ai conçu simple au départ, mais je n'ai 
cessé de procéder à des ajouts. 

Je suis actuellement étudiant au 
« Simley Senior High School », à Inver 
Grove Heights, Minnesota. J'ai dix-huit 
ans. Je manipule les ordinateurs depuis 
l'âge de 16 ans, et j'ai écrit de nombreux 
programmes dont celui-ci. 

Ce programme attire toujours la foule 
dans notre centre de calcul, même des 
adolescents qui n'ont jamais utilisé de 


télétype. J'ai mis en place tous les 
contretemps possibles et imaginables 
pour éviter que le joueur ne gagne trop 
facilement. Je suis heureux de dire que 
lorsqu'une personne gagne maintenant, 
cela fait les gros titres dans les journaux 
de l'école. Des jurons sont toujours 
marmonnés, disant « la prochaine fois, je 
l'aurai », et cela m'apporte plus de plaisir 
que de participer. 

Comme vous pouvez le voir, le pro- 
gramme est assez long, et j'ai eu des 
problèmes de sauvegarde, comme, je suis 
sûr, beaucoup d'entre vous en auront 
aussi. Je peux seulement vous conseiller 
d'enlever les commandes et les options 
les plus triviales, pour obtenir, heureu- 
sement, une taille plus raisonnable. Si 
vous avez des problèmes de compilation, 
divisez le programme en  sous- 
programmes qui s'enchaînent. Si vous 
n'avez pas cette possibilité, trouvez vous- 
même un remède. 

Voici quelques particularités de notre 
HP2000. Les lignes ont une longueur de 1 
à 72 caractères. Chaque position sur une 
ligne est identifiée par deux nombres. 
Exemple : A$(2,4), A$ étant le nom de la 
ligne. Le 2 indique à l'ordinateur de 
commencer la sous-ligne au deuxième 
caractère de A$. Le 4 lui indique de la 
terminer au quatrième caractère. Ainsi, 
A$(1,1) situe le premier caractère de A$. 
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J'ai utilisé ce système pour identifier Y ou 
N dans les réponses Yes/No (O ou N pour 
la traduction française). 

La ligne 590 est un exemple de test 
logique. Elle indique à l'ordinateur de se 
rendre à la ligne citée, en cas d'expres- 
sion non nulle. En cas de nullité, il passera 
à la ligne suivante. 

Le test logique, effectué dans les lignes 
3020-3050, est d’un genre légèrement 
différent. Là, l'assertion logique est 
évaluée en premier. Si elle est vraie, elle 
vaut 1. Si elle est fausse, elle vaut 0. Ce 
test peut être réalisé grâce à un test 
IF-THEN si nécessaire. 

J'espère que la taille du programme ne 
rebutera pas trop de personnes. Elle 
pourrait être plus acceptable en le modi- 
fiant quelque peu. Si vous avez quelques 
heures de libres, cela vaut la peine de le 
réécrire en partie. 

J'ai essayé d'insérer dans ce jeu de 
nombreux énoncés régis par le hasard 
pour le rendre plus imprévisible. Pour 
gagner un peu de place, si cela vous est 
nécessaire, vous pouvez supprimer 
quelques-uns de ces énoncés. 


Remarque : Le commentaire ci-dessus, 
de Vincent Erickson, se réfère à la version 
HP originale. Celle présentée ici est un 
Microsoft Basic standard. Vous trouverez 
quelques conversions de Steve North 
dans le listing, lignes 90-230. 





Voici le jeu de Combat Naval ! Le but en est de couler tous les bateaux ennemis dans une zone de 
20 par 20, à l’aide des différentes armes dont dispose votre arsenal. Mais attention à l'ennemi qui 
cherche aussi à vous détruire !!! 


Plusieurs dangers vous guettent. Par exemple : 


— attaque des navires avoisinants, 
— monstres marins affamés, 
— mines sous-marines enfouies. 


Les charges des navires ennemis atteignent leur but à n'importe quelle profondeur, mais 
l'ampleur des dégâts varie avec la distance. Donc vous vous portez d'autant mieux que vous êtes 
loin des navires !!! 


Les monstres marins suivent des trajectoires sinueuses dans la zone même où se trouve votre 
sous-marin, si bien qu'ils peuvent s'en approcher suffisamment pour vous attaquer. Vous y 
survivez rarement. Ils sont friands de vos torpilles, mais vos missiles peuvent les déchiqueter. 


A chaque changement de direction, les navires ennemis suivent une direction précise jusqu'à ce 
qu'ils rencontrent des obstacles. Ils peuvent, eux aussi, sauter sur les mines ou être dévorés par 
les monstres. 


Vous pouvez donner 10 ordres qui sont : 


#0 : navigation. Cette commande vous permet de parcourir une distance précise dans une 
direction précise. La direction est déterminée par le graphe ci-dessous. 8 cas sont possibles. A 
8 1 2 chaque déplacement, on vous demande votre direction. Par exemple, pour vous diriger 

|/ surle nord, vous utilisez la trajectoire «# 1». L'ordinateur vous demande aussi la valeur 
7-3 de votre pouvoir. Pour déplacer votre sous-marin d'un espace, vous dépensez 
Æ \ 100 unités. Attention aux obstacles !!! Si vous utilisez plus de 1 000 unités au cours d'un 
6 5 4 déplacement, vous avez à faire face à un danger imminent. Alors, attention !!! 


#1 : sonar. Cette commande a deux options. L'option #1 vous donne des informations de 
direction, en vous indiquant où se trouvent vos ennemis. Elle est utile pour des tirs à longue 
portée, où il est difficile de savoir si le bateau est droit devant. 

L'option #0 imprime une carte de votre zone dans un carré. Voici les symboles utilisés : 

"*’ indique des bancs de sable, 

"$’ est une mine sous-marine, 

"S/' est un bateau ennemi, 

"-#-" est Un monstre marin, 

"IH!" représente votre quartier général, et pour finir, 

"(X)', c'est vous !!! 





Assez souvent, un ’." apparaît sur votre écran. C'est un mauvais fonctionnement du sonar, l'objet 
est alors non identifié. Si vous êtes à moins de 50 pieds de profondeur, les vagues apparaissent 
avec le symbole ‘.'. 


#2 : contrôle des torpilles. Cette commande vous permet de lancer une de vos 10 torpilles 
contre les navires ennemis. L'ordinateur demande seulement la direction de tir, en utilisant 
l'indicateur ci-dessus. Ces torpilles ont une portée de 7-13 espaces. Une torpille peut couler un 
bateau. 


#3 : contrôle des missiles Polaris. Cette commande vous permet d'envoyer un de vos 
missiles contre l'ennemi. L'ordinateur demande des indications sur sa trajectoire et le carburant. Il 
faut 751 de carburant pour que le missile parcoure un espace. Grâce à leur puissance, ils 
détruisent tout sur leur passage, et dans la zone avoisinante. Les missiles détruisent tout ! 

#4 : manœuvre. Cette commande vous permet de changer de profondeur. Elle peut vous 
être utile en cas de gros dégâts; en effet, les réparations se font deux fois plus vite à des 
profondeurs de plus de 2 500 pieds ou de moins de 50 pieds. Vous débutez le jeu à 100 pieds de 
profondeur. Pour vous déplacer de 2 pieds, vous dépensez une unité de pouvoir. 

#5 : bilan de l'état du sous-marin. Cette commande vous dresse un bilan des dégâts causés 
à votre sous-marin. Elle vous indique aussi ce qui est encore disponible dans votre arsenal. 

#6 : quartier général. Cette commande vous permet un réapprovisionnement en armes et en 
hommes. Vous ne devez pas être à plus de 50 pieds de profondeur, et à plus de 2 espaces à 
l'écart. D'autre part, vous ne pouvez l'utiliser plus de 2 fois. 

#7: sabotage. Cette commande vous permet d'envoyer des hommes en mission de 
sabotage contre un navire ennemi. Vous ne pouvez tenter de saboter que des bateaux qui se 
trouvent à moins de 3 espaces de vous, et vous devez laisser au moins 10 hommes à bord du 
sous-marin. 


#8 : conversion de pouvoir. Cette commande vous permet de changer du carburant en 
pouvoir et vice versa. 


#9 : hisser le « drapeau blanc ». Cette commande est faite pour les lâches et les traîtres !!! 


Vous débutez le jeu avec les données suivantes : 


— 6 000 unités de pouvoir; 
— 2 500 litres de carburant; 
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— 10 torpilles, 3 missiles; 

— 1 quartier général; 

— et un nombre aléatoire de bateaux. 
J'ai délibérément omis quelques détails dans les instructions, pour rendre le jeu plus intéressant 
lors des premiers essais. 


Vous débutez le jeu dans l'Ile du Lagon, et n'oubliez pas : votre devoir est de chercher et de 
détruire l'ennemi à tout prix. 


RUN 
BATMER # BATEAUX ENNEMIS RESTANTS... 17 
# UNITES D'ENERGIE RESTANTES. 5,490 
UREAlMLVE COMPUTING  MORRISTOWN, NEW JERSEY # TORPILLES RESTANTES....... 19 
# MISSILES RESTANTS......... 2 
# HOMMES RESTANTS.....,..... . 39 
LBS. DE FUEL RESTANT........ 2,050 


QUEL EST VOTRE NOM? JACQUES 
VOULEZ-VOUS UN RAPPORT DES DOMMAGES? OUI 
VOUS DEVEZ DETRUIRE 18 BATEAIX FNNEMIS POIJR 5AGNER, JACQUES. 


QUELS SONT VOS ORDRES, JACQUES? 1 
DOMMAGE (+ BON, O MOYEN, - MAUVAIS) 









OPTION #7 0 
s 2 NP RRET TE MOTEURS 0.7840 
: «B/ . SONAR 0.0000 
! : s 2 : TORPILLES 4.7142 
: _4- : MISSILES 0.7788 
s æB/ $ : : MANEUVRES 4.6042 
®B/ $ + ETAT 2.3964 
: s ÉCCEETETEE TT : NAVIRE AMIRAL  4.6742 
*B/ io! PRET ET TITI TIC $ : SABOTAGE 0.3514 
: CERTES TRE TITITE : TRANSFO 1.6429 
CETTE E (x) CEE $ . 
OR TLLES “un . VOUS ETES LOCALISE EN ( 12 , 10.) 
CTTETE “x 8B/ L 
‘ id 2B/ . 
, . QUELS SONT VOS ORDRES, JACQUES? 1 
*B/ $ $S -1- . OPTION #? O 
. _#- : 
+R/ 2B/*B/ ®B/  #B/ $ #B/ 
. 6 g eB/ $ + 
PB ce Ge ce ON cimoge die Br A vu et, 7 cé BJ . -+- 
#B/ $ : eB/eB/ 
QUELS SONT VOS ORDRES, JACQUES? 3 + 
CIRCUIT (1-8)? 1 *B/ $ bride 
FUEL (LnS.)2 450 . naRronestnes $ 
VOUS AVEZ DETRUIT O BATEAUX ENNEMIS, JACQUES!I! + PAPER resS frere 
CHARGES DE PROFONDEUR, A  TRIBORD, JACQUESIII $ Pre aan $ 
PAS DE REFLS DOMMAGES SUBITS, JACQ'IES. . sure sortes 
L #B/ LLLLEETS LEE 
" LEE] 
---##* RESULTAT DE LA DERNIERE MANEUVRE ADVERSE #*#*#--- eB/ eB/ 
#*#* VOTRE NAVIRE AMIRAL À ETE EPERONNE, JACQUESI!I! . : $ -#- 
QUELS SONT VOS ORDRES, JACQUES? 1 #B/ 
OPFION #2 0 eB/ + eB/ 
2B/ #B/ ®B/ 
DST ne TRS 208 0 MAS ae 20 Re QUEUE 8B/ 4 4 4 ee ee ee 
#B/ . 
5 $ -#- ®B/ . QUELS SONT VOS ORDRES, JACQUES? O0 
; =B/ + 5 CIRCUIT (1-8)? 4 
*B/ s s À PUISSANCE DISPONIBLE= 5350. PUISSANCE A UTILISER? 200 
: eB/ S- à NAVIGATION ACCOMPLIE. PUISSANCE DEPENSEE= 5150. 
*8/ s PETITE s CHARGES DE PROFONDEUR, À TRIBORD, JACQUESIII 
ki [ÉTITIIIIIIL $ . DOMMAGES MODERES. REPARATIONS NECESSAIRES. 
; ÉÉTETTT STE TITI , 
$ CELLES (x) LEE] $ ; 
k SO *anunx “enr . ---#*#*#* RESULTAT DE LA DERNIERE MANEUVRE ADVERSE *##--— 
ï uns nus 
#B/ “+ : QUELS SONT VOS ORDRES, JACQUES? 7 
. 4 IL Y À l BATEAUX À PORTEE, JACQUES. 
æB/ s 4 N COMBIEN D'HOMME S'EMBARQUENT, JACQUES? 50 
. : VOUS DEVEZ LAISSFER AU MOINS 10 HOMMES À BORD, JACQUES. 
. eB/ eB/ . COMBIEN D'HOMME S'EMBARQUENT, JACQUES? 20 
À eB/ : 1 NAVIRES FURENT DETRUITS, JACQUES. 
#B/ eB/ . 2 HOMMES FURENT PERDUS LORS D'ACCIDENTS, JACQUES. 
COVER CR TS ET RO E CHARGES DE PROFONDEUR, À  BABORD, JACQUESIII 


PAS DE REELS DOMMAGES SUBITS, JACQUES. 


QUELS SONT VOS ORDRES, JACQUES? O0 
CIRCUIT (1-8)? 5 


PUISSANCE DISPONIBLE= 5600. PUISSANCE À UTILISER? 200 *#** RESULTAT DE LA DERNIERE MANEUVRE ADVERSE *#*#*---— 





NAVIGATION ACCOMPLIE. PUISSANCE DEPENSEE= 5400. *** NAVIRE DETRUIT PAR UNE MINE, JACQUESIII 

CHARGES DE PROFONDEUR, A TRIBORI), JACQUESIII *#** NAVIRE DETRUIT PAR UNE MINE, JACQUESI II 

PAS DE REELS DOMMAGES SUBITS, JACQUES. *** NAVIRE MANGE PAR UN MONSTRE MARIN, JACQUESI! 
QUELS SONT VOS ORDRES, JACQUES? 1 

---#*##* RESULTAT DE LA DERNIERE MANEUVRE ADVERSE *#**-—— SONAR EN REPARATION, JACQUES. 

QUELS SONT VOS ORDRES, JACQUES? 5 QUELS SONT VOS ORDRES, JACQUES? 5 
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# BATEAUX ENNEMIS RESTANTS... 13 
# UNITES D'ENERGIE RESTANTES. 4,897 
# TORPILLES RESTANTES....... 10 
# MISSILES RESTANTS.......,, 2 
# HOMMES RESTANTS.. . . 28 
LBS. DE FUEL RESTANT........ 2,059 


VOULEZ-VOUS UN RAPPORT DES DOMMAGES? OUI 


OBJET DOMMAGE (+ BON, O MOYEN, - MAUVAIS) 
MOTEURS 1.8222 
SONAR -0.8438 
TORPILLES 4.7142 
MISSILES 2.0352 
MANEUVRES 4.6042 
ETAT 4.1425 
NAVIRE AMIRAL 1.4052 
SABOTAGE 3.3400 
TRANSFO 3.0719 


VOUS ETES LOCALISE EN ( 14 , 12 ). 


QUELS SONT VOS ORDRES, JACQUES? O 

CIRCUIT (1-8)? 2 

PUISSANCE DISPONIBLF= 4897. PULISSANCE A UTILISER? 500 
NAVIGATION ACCOMPLIE. PUISSANCE DEPENSEE= 4397. 
CHARGES DE PROFONDEUR, A  TRIBORD, JACQUESIII 

PAS DE REELS DOMMAGES SUBITS, JACQUES. 


---*** RESULTAT DE LA DERNIERE MANEUVRE ADVERSE *#*#*--- 
*** NAVIRE MANGF PAR UN MONSTRE MARIN, JACQUESI1I 


QUELS SONT VOS ORDRES, JACQUES? 1 
OPTION #7? O 


®B/ 
. $ —#- 
. ®B/ + 
#B/ $ $ 
. $ 
. $ LÉCELELZL 
oh he $ 
< LLLELLLLL) LELLLE) (X) 
$ [ETES ss $ 
OL CETTE 
. CELLES] LEZ 
. “ss 
®B/ 
. —#- 
®B/ —#- 
®B/ 
#B/ ®B/ ®B/ 
#B/ 


QUELS SONT VOS ORDRES, JACQUES? 3 

CIRCUIT (1-8)? 3 

FUEL (LBS.)? 500 

MISSILE SORTI DE L'ECRAN SONAR, JACQUES. MISSILE PERDU. 


PAS DE NAVIRES A PORTEE POUR VOUS ENVOYER DES CHARGES DE PROFONDE 


---*#** RESULTAT DE LA DERNIERE MANEUVRE ADVERSE *#*#*--—- 
*** NAVIRE MANGE PAR UN MONSTRE MARIN, JACQUES!II 


QUELS SONT VOS ORDRES, JACQUES? 3 

CIRCUIT (1-8)? 3 

FUEL (LBS.)? 500 

MISSILE SORTI DE L'ECRAN SONAR, JACQUES. MISSILE PERDU. 


PAS DE NAVIRES À PORTEE POUR VOUS ENVOYER DES CHARGES DE PROFONDE 


---#*#** RESULTAT DE LA DERNIERE MANEUVRE ADVERSE **#--- 


QUELS SONT VOS ORDRES, JACQUES? 7 
PAS DE BATEAUX A PORTÉE, JACQUES. 


QUELS SONT VOS ORDRES, JACQUES? 4 

NOUVELLE PROFONDEUR? 50 

MANEUVRES ACHEVEES. ENERGIE UTILIL: 25 
CHARGES DE PROFONDEUR, A BABORD, JACQUESIII 
DOMMAGES LEGERS ET SUPERFICIELS, JACQUES. 





---*#** RESULTAT DE LA DERNIERE MANEUVRE ADVERSE **#*--- 


QUELS SONT VOS ORDRES, JACQUES? 1 
OPTION #? O 


. . … $ . . . . . . . 
SB/ £B/ 
=#- 
=#- 
. $ $ 
. $ 
é $ ARRARR RER 
LELLLLLLLLEZL)] $ 
x LELELLLLE LELELE) (X) 
LELLLE] LEZ: $S 
Rte ÉETLIT 
ÿ ÉETLTS: “x 
: “hr. 
®B/ 
. —#- 
. =+- 
®B/®B/ 
#B/ 
. ®B/ 
®9B/ . . . ®e8/ REC EC D LR EE 


5 PRINT CHR$S (26) 
6 DDS="###4" 
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PRINT TAB (33) ; "BATMER" 


15 PRINT 


22 


39 

4ù 

5è 

63 

7à 

84 

92 

149 
lid 
120 
130 
149 
15ù 
169 
170 
182 
199 
209 
2ie 
220 
230 
2489 
245 
258 
269 
279 
284 
298 
300 
319 
320 
322 
324 
326 
328 
338 
349 
359 
360 
379 
384 
399 
420 
41 
420 
438 
44ù 
45è 
469 
478 
48è 
499 
Sud 
Sid 
528 
530 
549 
558 
sé 
579 
584 
599 
6ùu 
6id 
628 
630 
648 
658 
664 
678 
684 
692 
7èù 
7id 
728 
738 
74ù 
758 
768 
778 
78ÿ 
799 
808 
892 
884 
8iv 
828 
834 
848 
85û 
868 
879 
88% 
899 
Ju 
918 
915 
929 
93à 
948 
958 
968 
978 
984 
993 


PRINT TAB (15) ;"CREATIVE COMPUTING MORRISTONN, NEW JERSEY" 
PRINT : PRINT : PRINT 
REM 
REM PROGRAMME DE VINCENT ERIKSON 
REM INITIALEMENT DANS H.P. BASIC 
REM CONVERTI AU MICROSOFT BASIC PAR S.N. 
REM 
REM NOTEZ CE QUI SUIT AU SUJET DES CONVERSIONS: 
REM ji) RESTORE <NUMERO LIGNE> SIGNIFIE AMENER LE POINTEUR 
REM DE DONNÉE À LA LIGNE SPECIFIEE. CELUI-CI N'EST 
REM PRESENT QU'AU NIVEAU TRS-89 II ET CP/M BASIC.POUR LES 
REM AUTRES SYSTEMES, IMPROVISEZ EN UTILISANT UN RESTORE,ET 
REM FOR...NEXT AVEC DES INSTRUCTIONS READ POUR SAUTER 
REM LES DONNEES QUI DOIVENT ETRE IGNORÉES. 
REM 
REM 2) DES EXPRESSIONS LOGIQUES SONT SOUVENT UTILISEES.UNE 
REM EXPRESSION VRAIE EST NOTEE (-i) E UNE EXPRESSION FAUSSE 
REM EST NOTEE (4). AINSI SI LE PROGRAMME DIT: 
REM X = (D<58) 
REM CELA SIGNIFIE, FAIRE X=0 SI D>=58, ET FAIRE X=-1 SI D<5u. 
REM A NOUVEAU, IMPROVISEZ SI VOTRE BASIC NE POSSEDE PAS CELA 
REM (MAIS TOUS LES MICROSOFT BASICS L'ONT.) 
REM 
REM LE VERITABLE NOM DU PROGRAMME EST, "LANCER DE TARTE SOUS L'EAU" 
REM ##* LE PROGRAMME SUIT *#* 
REM ** 
DIM A(20,20) ,D(9) 
PRINT "QUEL EST VOTRE NOM"; 
INPUT NS 
PRINT 
REM *#** MISE EN PLACE DE LA ZONE *#** 
FOR I=1 TO 24 
FOR J=1 TO 24 
A(L,J)=0 
NEXT J 
NEXT 1 
REM *## ILE ##* 
RESTORE 6300 
FOR X=7 TO 13 
FOR Y=7 TO i2 
READ A(X,Y) 
NEXT Y 
NEXT X 
REM #*#*#* SOUS-MARIN *#* 
Si=id: S2=i0 
A(Si,52)=2 
REM #*##* BATEAUX ENNEMIS *##* 
S=INT (RND(1)*16)+15 
RESTORE 6090 
FOR X=i TO (INT(RND(1)*4)+1)#*2-i 
READ DB ,D9 
NEXT X 
FOR X=i TO S 
X1=INT (RND (1) *20)+i 
X2=INT (RND (1) #28)+i 
IF A(Xi,X2) C0 THEN Sûd 
A(X1,X2)=3 
NEXT X 
PRINT "VOUS DEVEZ DETRUIRE";S;"BATEAUX ENNEMIS POUR GAGNER, ";NS;"." 
REM #*#** NAVIRE AMIRAL ##**# 
S3=INT (RND (1) *29)+1 
S4=INT (RND (1) *28)+i 
IF A(S3,S4) ©>à THEN 579 
A(S3,54)=4 
REM #*##* MINES SOUS-MARINES #*#*#* 
FOR X=1 TO INT(RND(i)*8)+8 
X1=INT (RND (1) *20)+1 
X2=INT (RND(i)*20)+1 
IF A(Xi,X2) ©ù THEN 639 
AUX1,X2)=5 
NEXT X 
REM *#*#* MONSTRES MARINS ##* 
FOR X=i TO 4 
X1=INT (RND (1) *18) +2 
X2=INT (RND (1) *18) +2 
IF A(Xi,X2) C0 THEN 708 
A(X1,X2)=6 
RESTORE 6993 
FOR Y=i TO INT(RND(i)#8)+i 
READ Mi,M2 
NEXT Y 
NEXT X 
REM #*#*#*VALEURS DEPART*## 
FOR I=i TO 9 
D(I1)=ù 
NEXT I 
C=38 
P=6000 
F=2508 
T=id 
M33 
D=i 
D2=2 
REM *#*#* SECTION COMMANDE *## 
PRINT: PRINT “QUELS SONT VOS ORDRES, ";N$; 
INPUT O 
ON INT(O+1) GOTO 1248,1682,2228,2680,3250,3410,3700,3880, 4400, 4664 
PRINT 
PRINT "LES COMMANDES SONT:" 
PRINT * #9: NAVIGATION" 
PRINT * #i: SONAR" 
PRINT * #2: CONTROLE TORPILLE" 
PRINT * #3: CONTROLE MISSILE POLARIS" 
“ 
. 
. 





MANEUVRES* 
#5: RAPPORT ETAT/DOMMAGE®* 
#6: NAVIRE AMIRAL" 


1ÿ0ÿ PRINT #7: SABOTAGE" 

1919 PRINT * #8: CONVERSION PUISSANCE* 
1228 PRINT * #9: SE RENDRE" 

iv32 GOTO 889 

1949 REM *#** 49: NAVIGATION *#** 
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1959 IF D(i) >= 2 THEN 1489 2159 PRINT * “;X,X3, 











1962 PRINT "MOTEURS EN REPARATION, ";NS;"." 2168 FOR X4=i TO X3 

1979 GOTO 889 2178 PRINT B(X4); 

1989 IF C>8 THEN ilid 2i89 NEXT X4 

1294 PRINT "PAS ASSEZ D'HOMMES POUR S'OCCUPER DES MOTEURS, ";N$;"." 2198 PRINT 

iidd GOTO 889 2289 NEXT X 

iiid Di=i-((.23+RND(1)/18)*(-(D <= 58))) 22id GOTO 1988 

1122 GOSUB 684 2228 REM *** #2: CONTROLE TORPILLE #*#** 

1130 PRINT "PUISSANCE DISPONIBLE=" ;P;CHRS (8) ;". PUISSANCE À UTILISER"; 2238 IF D(3) >= à THEN 2260 

1149 INPUT Pi 2248 PRINT "LES TUBES LANCE TORPILLES EN REPARATION, ";N$;"." 
1159 IF Pi< OR Pi>P THEN 1139 2253 GOTO 884 

1164 IF P1 <= lg THEN 1210 2268 IF C >= lg THEN 2290 

1174 IF RND(1)<.43 THEN 1218 2278 PRINT “PAS ASSEZ D'HOMMES POUR LANCER LES TORPILLES, ";NS$;"." 
1189 PRINT “LA PILE ATOMIQUE : ETAT CRITIQUE, ";NS;"111 NAVIRE AMIRAL"* 2288 GOTO 888 

1198 PRINT "AVERTIRA TOUS LES SOUS-MARINS DE SE TENIR ELOIGNE DE LA ZONE RADIOAC 2298 IF T THEN 2328 

TLVEI LI" 2388 PRINT “PLUS DE TORPILLES, ";N$;"." 

1209 GOTO 6184 2318 GOTO 884 

1218 X=Si 2328 IF D<2800 THEN 2360 

1220 Y=S2 2339 IF RND(1)>.5 THEN 2360 

1238 Qi=1 2348 PRINT "LA PRESSION À FAIT EXPLOSER LE SOUS-MARIN LORS DU LANCEMENT. .." 
1249 FOR X2=1 TO INT(INT(P1/190+.5) *D1+.5) 2345 PRINT “VOUS ETES ECRASEI 1" 

1259 IF X+X1>9 AND X+X1<2i AND Y+Y1>0 AND Y+Y1<2i THEN 1289 2358 GOTO 6189 

1269 PRINT “VOUS NE POUVEZ QUITTER LA ZONE, ";N$;"11" 2360 GOSUB 6088 

1279 GOTO 1349 2378 X=Si 

1288 ON A(X+X1,Y+Y1)+1 GOTO 1299,1330,1630,1399,1449,1478,1498 2389 Y=S2 

1299 X=X+Xi 2399 FOR X2=1 TO INT(7+5* (—(D>58) )-RND(1) *4+.5) 

1309 Y=Yy+#vi 2409 IF X+X1>9 AND X+Xi<21 AND Y+Y1>8 AND Y+Y1<21 THEN 2468 
1319 P=P-109 249 PRINT "TORPILLE DISPARUE DE L'ECRAN....INEFFICACE, ";NS;"." 
1320 GOTO 1520 2428 T=T-1 

1339 PRINT “VOUS VOUS ETES PRESQUE ECHOUE, ";N$;"11" 2438 P=P-150 

1340 A(X,Y)=2 2448 IF P>d THEN 4699 

1350 A(S1,S2)=0 2459 GOTO 1668 

1362 Six 2468 ON A(X+Xi,Y+Y1)+1 GOTO 2479,2518,2658,2548,2580,2610,2638 
1370 S2=Y 2478 X=X+X1 

1389 GOTO 4694 2489 Y=Y+Yi 

1399 IF D>54 THEN 1294 2499 PRINT "..1.."; 

1409 PRINT “VOUS AVEZ EPERONNE UN BATEAUI11 VOUS AVEZ COULE TOUS DEUX, ";NS; 25ûÿ GOTO 2658 

"pur 2519 PRINT “VOUS AVEZ TOUCHE UNE ILE, ";N$;"1" 

14i8 S=5-1 2520 A(X+X1,Y+Y1) = 

1428 IF S=0 THEN 6269 2533 GOTO 2428 

1438 GOTO 6180 2549 PRINT “OUCHII1 VOUS EN AVEZ EU UN, ";N$;"11" 

1449 IF D>S THEN 1298 2558 S=S-1 

1459 PRINT “VOUS AVEZ EPERONNE VOTRE NAVIRE AMIRALI! VOUS AVEZ COULE!!" 2568 IF S<>8 THEN 2528 

1468 GOTO 61889 2578 GOTO 6268 

1479 PRINT “VOUS AVEZ ETE SOUFFLE PAR UNE MINE, ";N$S;"11" 2589 PRINT “VOUS AVEZ SOUFFLE VOTRE NAVIRE AMIRAL, ";N$;"111* 
1489 GOTO 6189 2598 S3=9: S4=d: D2=Ù 

1499 IF RND(1)<.21 THEN 1630 2609 GOTO 2528 

i5id GOTO 6184 2619 PRINT "BLAMII TIR RATE À CAUSE D'UNE MINE, ";NS;"11" 

1529 REM *#** REGARDER SI PROXIMITE MONSTRES MARINS *## 2628 GOTO 2524 

1530 FOR X3=X-2 TO X+2 2634 PRINT “UN MONSTRE MARIN À EU UNE TORPILLE AU DINER, ";NS$;"11" 
1549 FOR Y3=Y-2 TO Y+2 2649 GOTO 2424 

1559 IF X3<i OR X3>29 OR Y3<i OR Y3>20 THEN 1619 2658 NEXT X2 

1560 IF A(X,Y)©>6 THEN 1619 2668 PRINT "INCAPABLE." 

1579 IF RND(1)<.25 THEN 1509 2678 GOTO 2420 

1580 IF Qi=0 THEN 1610 2688 REM *** #3: CONTROLE MISSILE POLARIS #*#*#* 

1599 PRINT "VOUS VENEZ D'ECHAPPER DE PEU A UN MONSTRE MARIN, ";NS$;"11" 2698 IF D(4) >= à THEN 2724 

1622 Qi=u 2780 PRINT "LES SILOS SONT EN REPARATION, ";NS;"." 

1619 NEXT Y3 2718 GOTO 889 

1628 NEXT X3 2728 IF C>23 THEN 2758 

1639 NEXT X2 2730 PRINT “PAS ASSEZ D'HOMMES POUR LANCER UN MISSILE, ";NS;"." 
1649 PRINT "NAVIGATION ACCOMPLIE. PUISSANCE DEPENSEE=" ; P;CHRS (8) ;"." 2749 GOTO 884 

1650 IF P>0 THEN 1340 2753 IF MC>8 THEN 2780 

1669 PRINT"LA PILE ATOMIQUE EST MORTEI11 LE SOUS-MARIN COULE,L'EQUIPAGE SUFFOQUE 2768 PRINT “PLUS DE MISSILES, ";NS;"." 

1" 2778 GOTO 884 

1679 GOTO 6184 2789 IF D>58 AND D<2008 THEN 2854 

1689 REM *** #1: SONAR *** 2792 PRINT "JE VOUS RECOMMANDE DE NE PAS FAIRE FEU À CETTE PROFONDEUR. . . POURSUI 
1699 IF D(2) >= à THEN 1720 VEZ"; 

1709 PRINT “SONAR EN REPARATION, ";NS;"." 2898 INPUT AS 

1719 GOTO 880 2819 IF LEFTS(AS,1)="N" THEN 889 

1720 IF C>5 THEN 1750 2828 IF RND(i)<.5 THEN 2850 

1739 PRINT “PAS ASSEZ D'HOMMES POUR FAIRE MARCHER LE SONAR, ";N$;"." 2839 PRINT "MISSILE EXPLOSE LORS DU TIR, ";N$;"11 VOUS ETES MORTI1" 
1740 GOTO 880 2843 GOTO 6189 

1758 PRINT “OPTION #"; 2852 GOSUB 6489 

1768 INPUT O 2869 PRINT "FUEL (LBS.)"; 

1779 ON INT(O+i) GOTO 1799,2818 2878 INPUT Fi 

1788 GOTO 1758 288% IF F1>8 AND Fi <= F THEN 2919 

1799 REM *#** IMPRESSION CARTE *#*#* 2898 PRINT “IL VOUS RESTE";F;"LBS. ";NS;"." 

1828 PRINT 2909 GOTO 2864 

1819 FOR X=1 TO 28 2918 F2=INT(Fi/75+.5) 

1828 FOR Y=1 TO 24 2920 IF Sl+Xi*F2>9 AND Sl+X1*F2<2i AND S2+Y1*F2>8 AND S2+Y1*F2<21 THEN 2988 
1839 DATA" ","###","(X)",S/","IHI"," $ ","-4-" 2939 PRINT “MISSILE SORTI DE L'ECRAN SONAR, ";N$;". MISSILE PERDU." 
1849 IF A(X,Y) 8 THEN 1888 2940 M=M-i 

1853 IF X<>1 AND X<>28 AND Y<>1 AND Y<>28 THEN 1889 2950 F=F-Fi 

1868 PRINT * . *; 2968 P=P-320 

1879 GOTO 1958 2978 GOTO 2448 

1889 RESTORE 1830 2988 D3=0: D4=: D5=1: D6=8 

1899 FOR Xi=1 TO A(X,Y)+1 2998 FOR X=S1+X1*F2-1 TO Si+X1*F2+1 

1999 READ A$ 3008 FOR Y=S2+Y1*F2-1 TO S2+Y1*F2+1 

1918 NEXT Xi 3019 IF X<i OR X>28 OR Y<i OR Y>20 THEN 3149 

1928 IF D<58 AND RND(1)<.23 AND A(X,Y)<>1 AND A(X,Y) ©>2 THEN 1868 3028 D3=D3-(A(X,Y) =3) 

1939 IF RND(i)<.15 AND A(X,Y)>2 THEN 1868 3038 D4=D4-(A(X,Y)=6) 

1948 PRINT AS; 3943 D5=D5-(A(X,Y)=5) 

1959 NEXT Y 3258 D6=D6-(A(X,Y)=1) 

1968 PRINT 3068 IF A(X,Y)©>4 THEN 3109 

1978 NEXT x 3972 PRINT "VOUS AVEZ DETRUIT VOTRE NAVIRE AMIRAL, ";NS$;"111" 
1988 P=P-59 3089 D3=0: S4=ÿ: D2=0 

1998 IF P>8 THEN 888 3098 GOTO 3138 

2888 GOTO 1668 3199 IF A(X,Y)©>2 THEN 3139 

2818 REM *#*#* INFORMATION DIRECTION *## 3113 PRINT "VOUS VOUS ETES SIMPLEMENT DETRUIT, ";N$;"111 IMBECILEII" 
2928 FOR I=l TS 3129 GOTO 6183 

2822 B(1)=8 3139 A(X,Y)=8 

2924 NEXT I 3149 NEXT Y 

2838 PRINT “DIRECTION  # DES BATEAUX DISTANCES" 3158 NEXT X 

2931 PRINT *: . 3169 IF D6=8 THEN 3189 

2849 RESTORE 6299 3179 PRINT "VOUS AVEZ SOUFFLE QUELQUE ILE, ";NS;"." 

2958 FOR X=i TO 8 3188 IF DS=8 THEN 3290 

2969 READ X1,Y1 3193 PRINT “VOUS AVEZ DETRUIT";D5;"MINES, ";N$;"." 

2879 X3=0 3208 IF D4=9 THEN 3220 

22888 FOR X4=1 TO 29 3219 PRINT “VOUS AVEZ EU" ;D4;"MONSTRES MARINS, ";NS;"111 BON TRAVAILII" 
2099 IF S1+X1#X4<1 OR S1+X1#X4>29 OR S2+Y1#X4<1 OR S2+Y1*X4>28 THEN 2149 3228 PRINT “VOUS AVEZ DETRUIT";D3; "BATEAUX ENNEMIS, ";N$;"111" 
2199 IF A(S1+X1*X4,S2+Y1#X4) ©3 THEN 2138 3230 S=S-D3 

2118 X3=X3+1 3249 GOTU 2948 

2128 B(X3)=X4 3250 REM *** MANEUVRES *#*#* 

2139 NEXT X4 3268 IF D(5) >= @ THEN 3290 

2148 IF X3=0 THEN 2200 3278 PRINT “CONTROLES BALLAST EN REPARATION, ";N$;"." 
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3289 GOTO 888 

3298 1F C>12 THEN 3320 

33233 PRINT "IL N'Y À PAS ASSEZ D'HOMMES POUR FAIRE FONCTIONNER LES CONTROLES, 
ENS; "." 

33183 GOTO 888 

3329 PRINT "NOUVELLE PROFONDEUR" ; 

3339 INPUT D1 

3348 IF D1 >= d AND D1<3999 THEN 3370 

3358 PRINT "COQUE ECRASEE PAR PRESSION, ";N$;"11* 

3369 GOTO 6188 

3378 P=P-INT (ABS ((D-D1)/2+.5)) 

3389 PRINT "MANEUVRES ACHEVEES. ENERGIE UTILISEE=" ; INT (ABS ( (D-D1)/2+.5)) 
3399 D=Di 

3498 GOTO 4699 

3419 REM *** #5: RAPPORT DES DOMMAGES *#** 

3429 IF D(6) >= 8 THEN 3450 

3439 PRINT "ON NE PEUT ETABLIR AUCUN RAPPORT, ";N$;°." 

3449 GOTO 882 

3453 IF C>3 THEN 3488 

3468 PRINT "IL NE RESTE PLUS PERSONNE POUR DONNER LE RAPPORT, *;N$;"." 
3479 GOTO 882 

3489 PRINT:PRINT:PRINT “# BATEAUX ENNEMIS RESTANTS... “;:PRINT USING DD$;S 
3499 PRINT "# UNITES D'ENERGIE RESTANTES.";:PRINT USING "##4,#88";P 
3529 PRINT "# TORPILLES RESTANTES. ...oee :PRINT USING DD$;T 
3519 PRINT "# MISSILES RESTANTS. :PRINT USING DDS;M 
3529 PRINT "“# HOMMES RESTANTS.. ";:PRINT USING DD$S;C 
3538 PRINT "LBS. DE FUEL RESTANT. “;:PRINT USING “##4,848";F 
3549 PRINT 

3552 PRINT "VOULEZ-VOUS UN RAPPORT DES DOMMAGES" ; 

3569 INPUT A$ 

3578 IF LEFTS(A$,1)="N" THEN 3679 

3575 PRINT:PRINT 
3589 PRINT " OBJET 
3599 PRINT" —— 
3699 DATA "MOTEURS", "SONAR" , "TORPILLES" , "MISSILES" , "MANEUVRES * 

3619 DATA "ETAT", "NAVIRE AMIRAL", *SABOTAGE" , "TRANSFO* 

3629 RESTORE 3609 

3638 FOR X=1 TO 9 

3649 READ A$ 

3652 PRINT A$,:PRINT USING “###.####";D(X) 

3668 NEXT X 

3665 PRINT 

3679 PRINT "VOUS ETES LOCALISE EN (";S1;",";S2;")." 

3689 PRINT 

369% GOTO 884 

3799 REM *** #6: NAVIRE AMIRAL *** 

3719 IF D(7) >=9 THEN 3749 

3728 PRINT "LE NAVIRE AMIRAL EST ENDOMMAGE. INCAPABLE D'AIDER, ";NS;"." 
373 GOTO 889 

3749 IF D2<>0 THEN 3779 

3758 PRINT "LE NAVIRE AMIRAL EST DESERTE, ";N$;"." 

3768 GOTO 888 

3770 1F SOR((Si-S3)"2+(52-54)"2) <= 2 AND D<51 THEN 3808 

3788 PRINT "IMPOSSIBLE DE SUIVRE LES ORDRES D'ARRIMAGE, ";N$;"." 
37993 GOTO 88 

3899 PRINT "A DIVERSES REPRISES AU NAVIRE AMIRAL ON A EMPORTE DE L'AIDE ET DES 
HOMMES . * 

3818 P=4098 

3828 T=8 

3839 M=2 

3849 F=1504 

3859 C=25 

3869 D2=D2-1 

3872 GOTO 469% 

3889 REM *#** #7: SABOTAGE ***# 

3899 IF D(8)>=4 THEN 3928 

3999 PRINT "ECOUTILLES INACCESSIBLES, ";N$;". SABOTAGES IMPOSSIBLES.* 
391 GOTO 884 

3929 IF C>id THEN 3958 

3939 PRINT "PAS ASSEZ D'HOMMES POUR PARTIR EN MISSION, ";N$;"." 

3949 GOTO 884 

3952 D3=2: D4=0 

3968 FOR X=Si-2 TO Si+2 

3978 FOR Y=S2-2 TO S2+2 

3989 IF X<i OR X>29 OR Y<i OR Y>24 THEN 4wid 

3999 D3=D3-(A(X,Y)=3) 

4090 D4=D4-(A(X,Y)=6) 

4d19 NEXT Y 

4928 NEXT X 

4930 IF D3<>2 THEN 4960 

4949 PRINT "PAS DE BATEAUX À PORTÉE, ";NS;"." 

4252 GOTO 889 

4969 PRINT “IL Y A";D3;"BATEAUX A PORTÉE, ";NS;"." 

4978 PRINT "COMBIEN D'HOMME S'EMBARQUENT, ";N$; 

4989 INPUT Qi 

4999 IF C—Qi >= 19 THEN 4129 

4129 PRINT "VOUS DEVEZ LAISSER AU MOINS 19 HOMMES À BORD, ";NS;"." 
4ilg GOTO 4978 

4129 DS=INT(D3/Qi+.5) 

4i39 D6=8 

4i43 FOR X=Si-2 TO S1+2 

4159 FOR Y=S2-2 TO S2+2 

4169 IF D3/Q1>i-RND(i) AND RND(i)+D3/Q1<.9 THEN 4228 

4179 IF A(X,Y)<©>3 THEN 4229 

4i89 D6=D6+1 

4199 A(X,Y)=0 

4290 S=S-1 

4219 IF S=9 THEN 6269 

4228 NEXT Y 

4238 NEXT X 

4248 PRINT D6;"NAVIRES FURENT DETRUITS, ";N$;"." 

4258 D6=U: D7=ÿ 

4269 FOR X=1 TO Qi 

4270 D7=D7-(RND(1)>.6) 

4288 NEXT X 

4299 FOR X=i TO Qi-D7 

4389 D6=D6-(RND(1)<.15) 

4319 NEXT X 

4329 IF D4=8 THEN 4360 

4334 PRINT “UN MONSTRE MARIN SENT LES HOMMES SUR LE CHEMIN DU RETOUR! !* 
4349 PRINT D7;"HOMMES FURENT MANGES, ";N$;"11" 

4358 C=C-D7 

4368 PRINT D6;"HOMMES FURENT PERDUS LORS D'ACCIDENTS, ";NS;"." 

4379 C=C-D6 

4389 P=P-INT(18*Q1+RND(1i)*19) 
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4399 GOTO 4698 

4498 REM *** #8: TRANSFO D'ENERGIE *** 

4419 IF D(9) >= 9 THEN 444% 

4428 PRINT “LE TRANSFORMATEUR EST ENDOMMAGE, “;N$;"." 

4433 GOTO 884 

4449 IF C>5 THEN 4478 

4459 PRINT “PAS ASSEZ D'HOMMES POUR FAIRE MARCHER LE TRANSFO, ";NS$;"." 
4469 GOTO 88y 

4479 PRINT "OPTION? (i=FUEL EN ENERGIE, 2=ENERGIE EN FUEL)"; 
4489 INPUT O 

4493 ON O GOTO 451i9,4589 

4523 GOTO 4478 

4519 REM *** CONVERSION FUEL EN ENERGIE *** 

4523 PRINT “FUEL DISPONIBLE=" ;F;CHRS (8) ;". CONVERTI"; 

4532 INPUT Ci 

4549 IF Ci>F OR C1<ÿ THEN 4528 

4550 F=F-Ci 

4568 P=P+INT(C1/3) 

4579 GOTO 464% 

4589 REM *** CONVERSION ENERGIE EN FUEL *** 

4599 PRINT “ENERGIE DISPONIBLE=" ; P-1;CHR$ (8) ;". CONVERTIE"; 

4699 INPUT C1 

4619 IF Ci>P-i OR Ci<g THEN 4599 

4628 P=P-Ci 

4639 F=F+INT(Ci#3) 

4642 PRINT "CONVERSION ACHEVEE. ENERGIE=" ;P;CHRS (8) ;". FUEL=";F;CHR$ (8) ;"." 
4653 GOTO 469% 

4669 REM *** #9: SE RENDRE *** 

4673 PRINT "COUARD!! VOUS N'ETES PAS TRES PATRIOTIQUE, ";NS;"111* 
4689 GOTO 6188 

46983 REM *** SECTION REVANCHE #*#* 

4789 Q=8 

4719 FOR X=Si-4 TO Si+4 

4729 FOR Y=S2-4 TO S2+4 

4738 IF X<i OR X>29 OR Y<i OR Y>29 THEN 4760 

4749 IF A(X,Y)<>3 THEN 4760 

4758 Q=0+(RND(i)/SQR((Si-x)"2+(S2-Y)°2)) 

4769 NEXT Y 

4779 NEXT X 

4789 IF Q THEN 4819 

4799 “rRE "PAS DE NAVIRES À PORTÉE POUR VOUS ENVOYER DES CHARGES DE PROFONDEUR 
4 "ENS;"l" 

4899 GOTO 5219 

4819 PRINT “CHARGES DE PROFONDEUR, RATE"; 

4828 IF RND(i)>.5 THEN 4858 

4839 PRINT "BABORD, ";NS;"111" 

4849 GOTO 4869 

4858 PRINT “TRIBORD, ";N$;"111" 

4869 IF Q>.13 OR RND(i)>.92 THEN 4899 

4879 PRINT "PAS DE REELS DOMMAGES SUBI S, ";N$;"." 

4889 GOTO 52iÿ 

4899 IF Q>.36 OR RND(1)>.96 THEN 494% 

4992 PRINT “DOMMAGES LEGERS ET SUPERFICIELS, ";N$;"." 

4919 P=P-50 

4929 D(INT(RND(1)#9)+i)=-RND(1) #2 

4938 GOTO 52iÿ 

4949 IF Q>.6 OR RND(1)>.975 THEN 5829 

4959 PRINT “DOMMAGES MODERES. REPARATIONS NECESSAIRES. * 

4968 P=P-75+INT (RND(1) *34) 

4978 FOR Y=i TO 2 

4989 X=INT(RND(i)*9)+1i 

4999 D(X)=D(X)-RND(1) *8 

Sd NEXT Y 

Sÿid GOTO 5218 

5928 IF Q>.9 OR RND(i)>.983 THEN 5190 

5938 PRINT “DOMMAGES LOURDS! ! REPARATIONS IMMEDIATES, ";N$;"111" 
5349 P=P-(290+INT (RND(1)*76)) 

5858 FOR X=1 TO 4+INT(RND(1)*2) 

5269 Y=INT(RND(1)*9)+i 

5278 D(Y)=D(Y)-RND(i)*ii 

5288 NEXT X 

5292 GOTO 5218 

5199 PRINT “DOMMAGES CRITIQUES!11!1 NOUS AVONS BESOIN D'AIDE!!!" 
Si29 X=INT(RND(i)*16)+i 

5139 PRINT "ENVOYEZ "AIDE' EN CODE. VOICI LE CODE:";MIDS (A$,X,4) ; 
5132 KEM TEMPS DE DELAIS PUIS EFFACER LE CODE 

5134 FOR 1=i TO 3ÿg: NEXT I 

5136 PRINT CHRS (13) ;TAB(38) ; "XXXX" ;CHR$ (13) ;TAB(38) ;"*###" 

5149 INPUT "ENTREZ LE CODE" ;B$ 

Si58 PRINT 

5169 IF B$C>MIDS(A$,X,4) THEN 5199 

5i74 PRINT "TRAVAIL RAPIDE, Y;,N$;"11! L'AIDE EST ARRIVEE A TEMPS POUR VOUS SA 
UVER! 11" 

5188 GOTO 504% 

5199 PRINT "MESSAGE TRONQUE, ";N$;"...AUCUNE AIDE N'ARRIVE!!!" 
S2#ÿ GOTO 6189 

S219 REM *#** DEPLACEMENT NAVIRES / MONSTRES MARINS *** 

5228 IF D(i) >= 9 OR D(3) >= 9 OR D(4) >= 9 OR D(5) >= 9 OR D(7) >= à THEN 5269 
5239 IF D(8) >= 9 OR D(9) >= à THEN 526 

5249 PRINT "DOMMAGES TROP IMPORTANTS, ";N$;"111 VOUS AVEZ COULE!!" 
5258 GOTO 6188 

5268 REM *** DEPLACEMENT NAVIRES / MONSTRES MARINS *** 

5278 PRINT: PRINT: PRINT “——#*##* RESULTAT DE LA DERNIERE MANEUVRE ADVERSE ***— 


5283 FOR X=i TO 24 

5293 FOR Y=1 TO 24 

5309 IF A(X,Y)<>3 THEN 5692 

S3id REM *** DEPLACEMENT D'UN BATEAU ##*# 
5320 W=D8 

5330 V=D9 

5349 IF X#W>8 AND X#W<21 AND Y+V>2 AND Y+V<21 THEN 5429 
5352 FOR Xÿ=19 TO i STEP -1 

5369 IF A(X-W*X9,Y-V#*X2) C9 THEN 5408 
5378 A(X-W*X2,Y-V*X2) =3 

5388 A(X,Y)=0 

5399 GOTO 6889 

S4ÿ NEXT Xÿ 

5419 STOP 

5428 ON A(X#W,Y+V)+1 GOTO 5430,5460,5539,5460,55608,5600,5658 
5432 A(X#W,Y+V)=3 

5443 A(X,Y)=0 

5453 GOTO 6009 

5469 REM *** CHANGEMENT DIRECTION *** 
5479 RESTORE 6999 

5483 FOR Xÿ=1 TO INT(RND(i) *8)+i 
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5493 READ W,V 5919 S3=0: S4=ÿ: D2=0 


S5ûû NEXT Xÿ 592 GOTO 5738 

5519 IF X#W<i OR X#W>20 OR Y+V<i OR Y+V>22 THEN 5474 5938 IF RND(1)<.75 THEN 5760 

5522 GOTO 5428 5949 PRINT "*##* UN MONSTRE MARIN SE BAT, ";NS;"IIt ; 
5532 1F D>S8 THEN 5469 5958 IF RND(1)<.8 THEN 5989 

5549 PRINT “#*#*#* VOUS AVEZ ETE EPERONNE PAR UN NAVIRE, ";N$;"111" 5968 PRINT "ET IL Y EN À UN QUI EST MORTI I" 

5558 GUIO 6188 5979 GOTO 5739 

5569 IF RND(1)<.15 THEN 5464 5988 PRINT “ MATCH NUL! 1" 

5579 PRINT "#*#** VOTRE NAVIRE AMIRAL À ETE EPERONNE, ";N$;"111" 5993 GOTO 5760 

5589 S3=0: S4=d: D2=0: A(XHW,Y+V) =0 6298 NEXT Y 

5592 GOTO 562 6919 NEXT X 

5698 IF RND(1)<.7 THEN 5460 6929 REM *#** REPARATIONS *#*#* 

5619 PRINT “#**#* NAVIRE DETRUIT PAR UNE MINE, “;N$;"!11" 6038 FOR Y=i TO 9 

5628 S=S-1 6342 X=INT (RND(i)*9)+i 

5630 IF S<>0 THEN 5449 6358 D(X)=D(X)+(RND(1)*(2+RND(1)#2))*(1+(-(D<51) OR -(D>2298)))*(-(D(X) <3)) 
5649 GOTO 6260 6462 NEXT Y 

5658 IF RAD(1)<.8 THEN 5468 6879 GOTO 880 

5662 PRINT "##* NAVIRE MANGE PAR UN MONSTRE MARIN, ";NS;"11" 6089 REM *** GOSUB POUR CIRCUIT / DIRECTION **#* 

5679 S=S-1 6899 DATA -1,8,-1,1,8,1,11elo@o lolo Bodo 

5682 GOTO 5639 6idg PRINT “CIRCUIT (i-8)"; 

5699 REM *** DEPLACEMENT D'UN MONSTRE MARIN *#*# 61ig INPUT Ci 


5729 IF A(X,Y) ©6 THEN 6900 
5719 IF X#M1<i OR X#M1>29 OR Y+M2<1 OR Y+M2>29 THEN 5768 


5720 ON A(XHM1,Y#M2)+1 GOTO 5734,5760,5838, 5859, 5909, 5738, 5939 id FOR X9=1 TO INT(CI+.5) 
5738 A(XHM1 ,Y+M2) =6 


6158 READ X1,Y1 
5748 A(X,Y)=0 , 


5758 GOTO 6008 6169 NEXT X9 


6179 RETURN 
RE nn ne D ne 6189 REM *#** DETRUIT ? *#** 


: 6199 PRINT “IL RESTE";S; "BATEAUX ENNEMIS, ";N$;"." 
5788 FOR Xÿ=1 TO INT (RND(1) #8)+1 6288 PRINT “VOUS SEREZ DEGRADE AU NIVEAU DE FROTTEUR DE PONTONI 11" 
5798 READ Mi,M2 6213 PRINT “VOULEZ-VOUS UN AUTRE TOUR"; 


6129 IF Ci<1 OR C1>8 THEN 6189 
6139 RESTORE 6099 


S8èÿ NEXT x* 6228 INPUT AS 

2619 IF X#M1<i1 OR X#M1229 OR Y#M2Ci OR Y+M2>29 THEN 5760 6230 IF LEFTS(AS,1)<>"O" THEN 6258 

5828 GOTO 5728 6248 GOTO 318 

5839 PRINT “#*#* VOUS AVEZ ETE MANGE PAR UN MONSTRE MARIN, ";NS;"11" 6258 END 

5842 GOTO 6184 6268 PRINT “BON TRAVAIL, ";N$;"111 VOUS LES AVEZ TOUS EUSI11" 
5852 IF RND(1)>.2 THEN 5760 6278 PRINT "PROMOTION ET LOUANGES VOUS SERONT DONNEES IMMEDIATEMENTI 11° 
5862 PRINT “#*#* NAVIRE DEVORE PAR UN MONSTRE MARIN, ";NS;"11" 6282 GOTO 6219 

5879 S=S-1 6293 REM *** DATA ILE #*#** 

5889 IF S<>8 THEN 5738 6388 DATA 8,1,1,1,8,9,8,1,1,1,1,9,1,1,1,8,1/1/1917878091 

5899 GOTO 6269 6319 DATA 1,1,8,8,1,1,9,1,1,9,1,8,0,0,1,0,0,8 

5929 PRINT “*#*#* UN MONSTRE MARIN À DEVORE NAVIRE AMIRAL, ";NS;"11" 6328 END 
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Seawar (Guerre des mers) 


Vous êtes le commandant d'une flotte 
naviguant en eaux ennemies. Votre flotte 
se compose de neuf bateaux, celle de 
l'ennemi aussi. Le premier qui a coulé 
tous les bateaux de son adversaire a 
gagné la bataille. 

En tant que commandant, vous indi- 
quez l'angle avec lequel seront lancées 
les bombes, en négligeant la résistance 
de l’air. Vos instruments vous indiquent la 
position de la cible, et la vitesse initiale est 
fixée à 675 mètres par seconde. 

« Guerre des Mers » vous apporte des 
connaissances sur les trajectoires des 
projectiles et les conséquences d'une 
variation de l'angle de tir. 

1. Premièrement, comment envisagez- 
vous la course d'un projectile ? Faites 
un croquis (Si vous n'êtes pas sûr de 
vous, documentez-vous en bibliothè- 
que cela vous aidera à gagner la 
bataille, commandant !) 

a. Quel angle d'élévation donne à 

votre avis la portée maximum ? 

b. Qu'arrivera-t-il si vous faites feu 

avec un angle de 0 degré ? 

c. Qu'arrivera:t-il au projectile si vous 

le lancez verticalement ? 

2. Lorsque vous deviendrez compétent 
pour gagner la bataille, changez la 
vitesse initiale du projectile. En quoi 
cela changet-il la portée ? 


Le programme initial autorisait seule- 
ment (grâce à une fonction horloge) sept 
secondes entre chaque tir. Si votre ordina- 
teur permet cette addition, elle serait bien 
venue. 

L'origine de ce programme reste 
inconnue. David S. Paxton l’a revu et nous 
l'a soumis. Mary T. Dobbs, Mathematics 
et Science Center, Glen Allen, Virginie, l'a 
revu et a préparé le commentaire ci- 
dessus. Ce programme parut pour la 
première fois dans Creative Computing, 
mai-juin 1975. 





RUN 


GUERMER 
CREATIVE COMPUTING 
MORRISTOWN, NEW JERSEY 


VOUS COMMANDEZ UNE FLOTTE DE NAVIRES OPERANT DANS 
LE TERRITOIRE ENNEMIIII 


VOULEZ-VOUS DE L'AIDE? OUI 


VOUS DONNEZ AUX SERVANTS DES BATTERIES L'ANGLE DES CANONS. 
L'ANGLE EST EN DEGRES DE O À 360. 


VOTRE FORCE DE FRAPPE EST CONSTITUEE DE 3 DESTROYERS, 2 CROISEURS, 
2 CUIRASSES, ET 2 PORTE-AVIONS LOURDS. 
L'ENNEMI POSSEDE 9 NAVIRES POUR SE DEFENDRE. 


SI VOUS REUSSISSEZ À COULER TOUS SES BATEAUX AVANT QU'IL NE 
VOUS COULE,VOUS AUREZ GAGNE. MAIS S'IL REUSSI À COULER TOUS VOS 
NAVIRES AVANT QUE VOUS NE L'AYEZ BATTU, VOUS AUREZ PERDUI I 


COMMENCONSI 11 


VOTRENAVIRE AMIRAL À DETECTE UN U-BOAT APPROCHANT À 5 BRASSES. 
VOTRE EQUIPEMENT DE DETECTION SOUS-MARIN LIT LA DISTANCE 
DE LA CIBLE: 
34251 METRES. 
LE U-BOAT À COMMENCE À TIRER DES TORPILLES SUR VOS NAVIRES. 
EN FAIT,IL À JUSTE COULE UN DE VOS DESTROYERSI 1 
QUEL ANGLE ** ? 38 


==> FEUIII 


LA CHARGE DE PROFONDEUR À EXPLOSE 10867 METRES À L'ARRIERE DE LA CIBLE. 


LE U-BOAT ENNEMI À COULE VOTRE CROISEUR LOURDI | 
QUEL ANGLE ** ? 32.4 


= FEUIII 


LA CHARGE DE PROFONDEUR À EXPLOSE 7822 METRES À L'ARRIERE DE LA CIBLE. 


LA TORPILLE ENNEMIE À EXPLOSE 235 METRES 
DEVANT VOTRE NAVIRE. 
QUEL ANGLE ** ? 29.9 


2 FEUIII 


LA CHARGE DE PROFONDEUR À EXPLOSE 5937 METRES A L'ARRIERE DE LA CIBLE. 


LE U-BOAT ENNEMI À COULE UN AUTRE DE VOS DESTROYERSI | 
QUEL ANGLE ** ? 28 


= FEUIII 


LA CHARGE DE PROFONDEUR À EXPLOSE 4298 METRES A L'ARRIERE DE LA CIBLE. 


LA TORPILLE ENNEMIE A EXPLOSE 104 METRES 
DEVANT VOTRE NAVIRE. 
QUEL ANGLE ** ? 25 


=== FEUIII 


LA CHARGE DE PROFONDEUR À EXPLOSE 1369 METRES À L'ARRIERE DE LA CIBLE. 


LA TORPILLE ENNEMIE À EXPLOSE 136 METRES 
DEVANT VOTRE NAVIRE. 

MAUVAIS TIR, LA CIBLE A BOUGEII 
RECOMMENCONSI 11 


VOTRENAVIRE AMIRAL À DETECTE UN U-BOAT APPROCHANT À 5 BRASSES. 
VOTRE EQUIPEMENT DE DETECTION SOUS-MARIN LIT LA DISTANCE 

DE LA CIBLE: 

26298 METRES. 

LE U-BOAT À COMMENCE À TIRER DES TORPILLES SUR VOS NAVIRES. 
SA PREMIERE TORPILLE À EXPLOSE 217 MEFRES DERRIERE VOTRE NAVIRE. 
QUEL ANGLE ** ? 23 
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= FEUIII 

LA CHARGE DE PROFONDEUR À EXPLOSE 7150 METRES À L'ARRIERE DE LA CIBLE. 
LA TORPILLE ENNEMIE À EXPLOSE 62 METRES 

DEVANT VOTRE NAVIRE. 

QUEL ANGLE ** ? 21 


-----FEUII I! 

LA CHARGE DE PROFONDEUR À EXPLOSE 4815 METRES À L'ARRIERE DE LA CIBLE. 
LA TORPILLE ENNEMIE À EXPLOSE 56 METRES 

DEVANT VOTRE NAVIRE. 

QUEL ANGLE ** ? 19 


= FEUIII 

LA CHARGE DE PROFONDEUR À EXPLOSE 2329 METRES À L'ARRIERE DE LA CIBLE. 
LE U-BOAT ENNEMI À COULE UN DE VOS CUIRASSESII 

QUEL ANGLE ** ? 10 


-----FEUIII 

LA CHARGE DE PROFONDEUR À EXPLOSE 10395 METRES À DESSUS DE LA CIBLE. 
LA TORPILLE ENNEMIE À EXPLOSE 75 METRES 

DEVANT VOTRE NAVIRE. 

QUEL ANGLE ** ? 15 


….— FEUIII 

LA CHARGE DE PROFONDEUR À EXPLOSE 3049 METRES À DESSUS DE LA CIBLE. 
LE U-BOAT ENNEMI À COULE VOTRE DERNIER DESTROYERI! 

MAUVAIS TIR, LA CIBLE A BOUGEI! 

RECOMMENCONSII1 


VOTRENAVIRE AMIRAL A DETECTE UN U-BOAT APPROCHANT À 5 BRASSES. 
VOTRE EQUIPEMENT DE DETECTION SOUS-MARIN LIT LA DISTANCE 

DE LA CIBLE: 

23821 METRES. 

LE U-BOAT A COMMENCE A TIRER DES TORPILLES SUR VOS NAVIRES. 

SA PREMIERE TORPILLE À EXPLOSE 393 METRES DERRIERE VOTRE NAVIRE. 
QUEL ANGLE ** ? 30 


_—— FEUIII 

LA CHARGE DE PROFONDEUR À EXPLOSE 16448 METRES À L'ARRIERE DE LA CIBLE. 
LA TORPILLE ENNEMIE À EXPLOSE 216 METRES 

DEVANT VOTRE NAVIRE. 

QUEL ANGLE ** ? 25 


__——— FEUIII 

LA CHARGE DE PROFONDEUR À EXPLOSE 11799 METRES A L'ARRIERE DE LA CIBLE. 
LE U-BOAT ENNEMI À COULE VOTRE PORTE-AVIONI! 

QUEL ANGLE ** ? 19 


== FEUIII 

LA CHARGE DE PROFONDEUR À EXPLOSE 4806 METRES À L'ARRIERE DE LA CIBLE. 
LE U-BOAT ENNEMI À COULE VOTRE CROISEUR LEGERI! 

QUEL ANGLE ** ? 15 


=. FEUIII 

LA CHARGE DE PROFONDEUR À EXPLOSE 572 METRES À DESSUS DE LA CIBLE. 
LE U-BOAT ENNEMI À COULE VOTRE DERNIER PORTE-AVIONI 1! 

QUEL ANGLE ** ? 14 


.—— FEUIII 

LA CHARGE DE PROFONDEUR À EXPLOSE 1992 METRES A DESSUS DE LA CIBLE. 
LA TORPILLE ENNEMIE À EXPLOSE 97 METRES 

DEVANT VOTRE NAVIRE. 

MAUVAIS TIR, LA CIBLE À BOUGEII 

RECOMMENCONS! 1 


VOTRENAVIRE AMIRAL À DETECTE UN U-BOAT APPROCHANT À 5 BRASSES. 
VOTRE EQUIPEMENT DE DETECTION SOUS-MARIN LIT LA DISTANCE 

DE LA CIBLE: 

13076 METRES. 

LE U-BOAT À COMMENCE À TIRER DES TORPILLES SUR VOS NAVIRES. 

SA PREMIERE TORPILLE À EXPLOSE 353 METRES DERRIERE VOTRE NAVIRE. 
QUEL ANGLE ** ? 15 


_————— FEUIII 

LA CHARGE DE PROFONDEUR À EXPLOSE 10173 METRES À L'ARRIERE DE LA CIBLE. 
LA TORPILLE ENNEMIE À EXPLOSE 128 METRES 

DEVANT VOTRE NAVIRE. 

QUEL ANGLE ** ? 20 


See FEUIII 
LA CHARGE DE PROFONDEUR A EXPLOSE 16812 METRES À L'ARRIERE DE LA CIBLE. 


LE U-BOAT ENNEMI À COULE VOTRE DERNIER CUIRASSEI! 
RRRARRRX PAIX AREA EE 


VOUS AVEZ TIRE 15 
20 FOIS. 

TOUS VOS NAVIRES ONT ETE COULES. 
LA BATAILLE EST FINIE..... 
Ok 


FOIS. L'ENNEMI À TIRE 


DESOLE. 
--.L'ENNEMI GAGNE! 
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4 PRINT CHRS (26) 
S PRINT TAB (26) ; "GUERMER" 


6 PRINT TAB (28) 





7 PRINT TAB(1i8) "MORRISTOWN, NEW JERSEY" 
9 PRINT:PRINT 


id 
is 
16 
28 
4ù 
Sa 
6ù 
79 


PRINT “VOUS COMMANDEZ UNE FLOTTE DE NAVIRES OPERANT DANS* 
PRINT “LE TERRITOIRE ENNEMI! 11* 

PRINT 

PRINT “VOULEZ-VOUS DE L'AIDE"; 

INPUT QS 

IF LEFTS(%,i)="O" THEN 99 

IF LEFTS(9$,1)="N" THEN 170 

PRINT “REPONDEZ "OUI" OÙ "NON'" 


88 GOTO 44 
9 PRINT:PRINT"VOUS DONNEZ AUX SERVANTS DES BATTERIES L'ANGLE DES CANONS." 


109 
did 
1i9 
120 
130 
135 
149 
154 
169 
165 
179 
2iv 
220 
230 
249 
250 
268 
270 
280 
292 
308 
3i0 
328 
338 
349 
352 
360 
399 
405 
aid 
42è 
430 
44 
458 
469 
480 
499 
Sud 
Sid 
528 
525 
532 
54ÿ 
550 
S5i 
579 
599 
6ug 
628 


64ù 
658 
662 
678 
684 
699 
78 
705 
71% 
720 
730 
758 
762 
77è 
782 
798 
822 
838 
849 
878 
894 
980 
9ig 
928 
932 
948 
958 
969 
978 
982 
990 
lu 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT "COMMENCONS! !1* 

PRINT "* 

READ Z$ 

A=A+i 

GOTO 328 

RESTORE 

IF O=9 OR A=9 THEN 849 

FOR X=i TO À 

READ Z2$ 

NEXT X 

READ Z$ 

A=A+i 

1F Z$="PORTE-AVIONS" THEN 394 

IF Z$="U-BOAT" THEN 24909 

IF Z$="BATEAU LANCE-TORPILLE* THEN 369 

P=i 

GOTO 495 

RESTORE 

PRINT:PRINT"VOTRE NAVIRE AMIRAL SIGNALE LA VUE D'UN ";Z$;" ENNEMI." 
T=430981-39999*RND(1)+(RND(i)*1d)*.987654+102 

1F T<ivugÿ THEN 4id 

S=9:P2=ù 

T=INT(T) 

IF 2$="*U-BOAT" THEN 2939 

PRINT "VOS INSTRUMENTS EVALUENT LA DISTANCE DE LA CIBLE A";T; "MÈTRES." 
1F P=i THEN 1489 

IF S>4 THEN 5iy 

GOTO 549 

PRINT "MAUVAIS TIR, LA CIBLE A BOUGE!!" 

PRINT "RECOMMENCONS! 1 1" 

Si=Si+S 

GOTO 329 

PRINT "QUEL ANGLE #*# *; 

INPUT B 

PRINT 

PRINT "* 

PRINT * 
S=S+i 
IF B»>369 THEN i4id 

IF B<ÿ THEN 758 

1F B=9 THEN 770 

IF B=94 THEN 980 

1F B»>339 THEN 770 

IF B>189 THEN 1370 

IF B>i5 THEN 1309 

1F B>9ù THEN 1829 

Vi=675.285 

E=INT(T-(V1"2/9.8%665*SIN(2*B/57.3))) 

IF ABS(E) <= id THEN 1050 

1F E>10u THEN i2ud 

1F E<-199 THEN 1258 

PRINT “LE CANON À TIRE EN ARRIERE, TUANT DES HOMMES! * 

GOTO 828 

PRINT "QU'ESSAYEZ-VOUS DE FAIRE? DE TUER DES POISSONS? L'OBUS* 
PRINT “A EXPLOSE SOUS L'EAU À 58 METRES DE VOTRE BATEAU! 11" 
GOTO 1594 

PRINT * 

GOTO 159% 

PRINT * 
PRINT : PRINT : PRINT 
PRINT "VOUS AVEZ TIRE",S1,"FOIS. L'ENNEMI À TIRE",S2,"FOIS." 

IF O=9 THEN 928 

1F A=9 THEN 950 

PRINT "TOUS VOS NAVIRES ONT ETE COULES. DESOLE."* 

PRINT “LA BATAILLE EST FINIE.......L'ENNEMI GAGNE!* 

GOTO 2228 

PRINT "VOUS AVEZ DECIME L'ENNEMI. ..C'EST BIEN." 

PRINT “LA BATAILLE EST FINIE.......VOUS GAGNEZ!II!11" 

GOTO 2224 

PRINT “IDIOT!! VOUS AVEZ TIRE EN L'AIR,ET L'OBUS" 

PRINT “EST RETOMBE SUR VOTRE PROPRE POSITION DE TIR,LA DETRUISANT! 11" 
à GOTO 159% 


"L'ANGLE EST EN DEGRES DE 9 A 3649." 


"VOTRE FORCE DE FRAPPE EST CONSTITUEE DE 3 DESTROYERS, 2 CROISEURS," 
"2 CUIRASSES, ET 2 PORTE-AVIONS LOURDS. * 
"L'ENNEMI POSSEDE 9 NAVIRES POUR SE DEFENDRE." 


"SI VOUS REUSSISSEZ À COULER TOUS SES BATEAUX AVANT QU'IL NE" 
"VOUS COULE, VOUS AUREZ GAGNE. MAIS S'IL REUSSI À COULER TOUS VOS" 
"NAVIRES AVANT QUE VOUS NE L'AYEZ BATTU, VOUS AUREZ PERDU! !"* 





FEU! 11" 


AMIRAL SVP 1111" 


CELL LELLLELE D 


PAIX 





1229 PRINT "HE IMBECILE, VOUS TIREZ SUR VOS PROPRES NAVIRES! 11" 


193 
195 
196 
197 


à GOTO 159% 

à IF Z$="U-BOAT" THEN 1978 

à GOTO 1999 

8 PRINT "UNE CHARGE DE PROFONDEUR À EXPLOSE AU DESSUS DE CE BEBE! 1!" 


1989 
1999 
1199 
ilig 
1120 
1139 
1142 
1159 
1164 
1199 
1200 
1210 
1238 
1254 
12649 
1280 
13i9 
1329 
1330 
1348 
1359 
1360 
1379 
1389 
1385 
1386 
1399 
1499 
1410 
1429 
1439 
1449 
1458 
1489 
1499 
150 
1518 
1529 
1530 
1549 
1560 
1579 
1590 
1600 
16ig 
1620 
1630 
1640 
1650 
16649 
1679 
1700 


GOTO 1104 
PRINT * 
PRINT "* 
M$="CIBLE DETRUITE!!! Lrè 

NS$=" ##* TOURS EPUISES." 

PRINT M$;S;NS 

PRINT "VOUS AVEZ PERDU" ;0;"NAVIRES, ET L'ENNEMI EN À PERDU" ;A;CHRS (8) ;"." 
S1i=Si+S 

PI=9 

GOTO 254 

IF Z$="U-BOAT" THEN 2139 

PRINT "LE TIR EST TOMBE ";ABS (E) ; "METRES AVANT LA CIBLE." 

GOTO 1599 

IF Z$="U-BOAT" THEN 2169 

PRINT “L'OBUS À DEPASSE LA CIBLE DE" ;ABS (E) ; "METRES. * 

GOTO 159% 

PRINT "VOUS AVEZ ENVOYE UN PROJECTILE EN L'AIR," 

PRINT " IL EST TOMBE À L'EAU, VOUS NE SAVEZ PAS OU..." 

PRINT "MAIS MOI SI, IDIOT, VOUS AVEZ COULE VOTRE PROPRE BATEAU-CITERNE! 1 * 
Si=Si+i 

IF P=1 THEN 159 

GOTO 492 

PRINT "QU'ESSAYEZ VOUS DE FAIRE?? DE FORER UNE NOUVELLE ECOUTILLE??" 
PRINT "L'OBUS A EXPLOSE DANS VOTRE BATEAU,LE DETRUISANTI11* 

O=0+i 

IF O=9 THEN 849 

IF P=1 THEN 1599 

GOTO 829 

PRINT "OU AVEZ-VOUS APPRIS À TAPER? ";B;"DEGRES DEPASSENT 369 DE" 
PRINT B-369;"DEGRES." 

S1i=Si+i 

IF P=i THEN 1599 

GOTO 4949 

PRINT "LE “;Z$;* ENNEMI TIRE SUR VOS NAVIRES!" 
P4=1234*RND(RND(1))+(RND(i)*ig) 

IF P4>5dg THEN 1499 

IF P2=i THEN 1600 

IF INT(P4)<i99 THEN 1899 

IF Z$="U-BOAT* THEN 2100 

PRINT "SON PREMIER TIRE EST TOMBE" ; INT (P4) ;"METRES TROP COURT." 
S2=S2+i 

GOTO 499 

1F P2=1 THEN 1499 

Pi=125S49#*RND (RND(i))+(RND(1i)*10) 

IF Pi>P4 THEN 1604 

1F P1<(P4-490) THEN 1609 

IF Pi<iv9 THEN i7id 

P4=Pi 

S2=S2+i 

IF Z$="U-BOAT" THEN 2190 

PRINT "LE TIR ENNEMI EST TOMBE"; INT (P1) ;"METRES TROP COURT." 

GOTO 499 


#** BOUM *#" 


1719 
1729 
1739 
1759 
1769 
1779 
1788 
1799 
1848 
18i 
1829 
1830 
1848 
1859 
1868 
1879 
1889 
1898 
1929 
1930 
1943 
1959 
1969 
1979 
1975 
1989 
1999 
2900 
2995 
2919 
2928 
2838 
2931 
2949 
2850 
2969 
2989 
2299 
2ivy 
2iv5 
2120 
2139 
LE." 
2158 
2169 


CIBLE 


2188 
2198 
2281 
2219 
2228 





S2=S2+1 

P2=1 

GOSUB 1859 

PRINT "LE “;Z$;" ENNEMI À COULE ";D$ 
O=0+1 

1F O=9 THEN 84ÿ 

IF D$="VOTRE DERNIER CUIRASSE!!" THEN 848 
GOTO 499 

R2=i 

GOSUB 1852 

PRINT "EN FAIT,IL À JUSTE COULE ";D$ 


FOR C=i TO (9+0) 

READ DS 

NEXT C 

READ D$ 

DATA "U-BOAT", "CANON DE 219 MM*,"CROISEUR DE 79.999 TONNES" 

DATA "“CUIRASSE" , "BATEAU LANCE-TORPILLE" ,"FREGATE LOURDE * 

DATA "DESTROYER TYPE-E","NAVIRE LANCE-MISSILE” , *PORTE-AVION" 

DATA “UN DE VOS DESTROYERS! 1","VOTRE CROISEUR LOURDI 1" 

DATA “UN AUTRE DE VOS DESTROYERS! !","UN DE VOS CUIRASSES! 1" 

DATA “VOTRE DERNIER DESTROYERI !", "VOTRE PORTE-AVION! 1" 

DATA “VOTRE CROISEUR LEGER! 1","VOTRE DERNIER PORTE-AVIONI !* 

DATA "VOTRE DERNIER CUIRASSE! 1" 

RETURN 

PRINT:PRINT"VOTRENAVIRE AMIRAL À DETECTE UN U-BOAT APPROCHANT À 5 *; 
PRINT “BRASSES,. * 

P=1 

GOTO 41% 

PRINT "VOTRE EQUIPEMENT DE DETECTION SOUS-MARIN LIT LA DISTANCE"* 
PRINT * DE LA CIBLE:"* 

T=INT(T-150%) 

IF T<g THEN 419 

PRINT T;"METRES.* 

PRINT "LE U-BOAT À COMMENCE À TIRER DES TORPILLES SUR VOS NAVIRES. * 
GOTO 1499 

PRINT “SA PREMIERE TORPILLE À EXPLOSE" ; (INT (P4)-58) ; "METRES DERRIERE”" ; 
PRINT * VOTRE NAVIRE." 

GOTO 1568 

PRINT “LA CHARGE DE PROFONDEUR À EXPLOSE" ; ABS (E) ; "METRES À DESSUS DE LA CIB 


GOTO 159% 
PRINT “LA CHARGE DE PROFONDEUR À EXPLOSE" ; ABS (E) ; "METRES À L'ARRIERE DE LA 


GOTO 1594 

PRINT “LA TORPILLE ENNEMIE A EXPLOSE" ; (INT (P1)-58) ; "METRES* 
PRINT “DEVANT VOTRE NAVIRE." 

GOTO 49% 

END 


Shoot (Tir de missiles) 





La scène se passe dans un futur 
proche. Vous et un individu, de l'autre 
côté de la planète, êtes les seuls survi- 
vants d'une guerre atomique totale. (Oui, 
je sais, ce n’est pas original.) Cette guerre 
s'est entièrement déroulée avec des 
missiles atomiques sol-sol. Vous et votre 
ennemi avez tous deux découvert la 
dernière base de missiles qui reste de 
chaque côté. Par chance (pour moi en tout 
cas), ces grilles de missiles sont faites et 
fonctionnent de la même façon. 

Chaque joueur se déplace sur une 
matrice de missiles restreinte à 10 sur 10. 
Chaque coordonnée sur la grille corres- 
pond à une base de mini-missiles. Sur 
chaque base se trouve un terminal relié à 
l'ordinateur central du scanner qui se 
trouve en sécurité à des kilomètres. De 
chaque terminal, le joueur obtient des 
informations sur la situation. Un espace 
d'où a décollé un missile est exposé à de 
fortes doses de radiations (à cause de la 
façon dont sont construits les missiles) et 
ne peut plus être occupé par des êtres 
vivanté. La même chose est vraie pour un 
endroit où un missile s'est écrasé; il 
devient mortel et personne ne peut plus y 
entrer. 

Comme vous êtes les seuls survivants, 
toutes les machines doivent être action- 
nées à la main. Cela signifie que les 
joueurs doivent donner les coordonnées 
des cibles de leurs missiles et allumer les 
fusées pour les lancer. Ils doivent ensuite 
fuir l'endroit grâce à de petites voitures 
navettes équipées de capteurs pour éviter 
les endroits dangereux. Mais à cause des 
limitations en carburant, elles ne peuvent 
aller qu'à une distance de deux unités, 
verticalement, horizontalement ou en 
diagonale, ni plus ni moins. Le danger est 
que, pendant sa fuite, le joueur est loin 
d’un terminal de l'ordinateur du scanner et 
ne sait pas où va tomber le missile 
ennemi. 


Le temps du déplacement vers la nou- 
velle base, le missile sera à l'apogée de 
son vol au-dessus de la terre. L'ordinateur 
vous dira là si vous touchez votre adver- 
saire, ou s'il vous touche. Si le missile 
vient droit sur le joueur, il ne peut fuir. Le 
temps nécessaire pour faire le plein de la 


navette est supérieur au temps mis par le 
missile pour retomber sur le sol. Si un 
joueur a la malchance d’être coincé par 
les radiations, elles le tueront. 

Il s’agit donc tout à fait de tuer ou d'être 
tué. Mais il est faux de penser qu'il s'agit 
simplement d’un jeu de hasard, de nom- 
breuses stratégies pouvant être appli- 
quées pour détruire l'ennemi. 


Explication ligne par ligne. 

Lignes 440-490. J'assemble des 
expressions souvent utilisées pour l'im- 
pression. Par exemple S$ devient une 
suite de quatorze espaces. 

Lignes 500-530. On dimensionne ici les 
quatre matrices. Les matrices «|» et 
«H» représentent les aires de jeu du 
joueur et de son ennemi, la matrice « T » 
est une liste utilisée par l'ennemi et fait 
partie de mon « brillant » algorithme. Elle 
est chargée à chaque tour avec les 
endroits où il peut aller, ou avec les 
endroits où le joueur pourrait aller. La 
matrice « P» est remplie par les huit 
coordonnées possibles pouvant être 
atteintes. Je pourrais dire ici comment le 
jeu peut être modifié pour obtenir des 
parties plus longues et plus intéressantes 
en modifiant les données de la ligne 530. 
Remplacez les deux par des uns et les 
joueurs ne pourront plus se déplacer que 
d'une unité au lieu de deux. 

Lignes 540-730. J'établis un nombre 
aléatoire pour savoir à quelles coordon- 
nées l'ennemi commence. Je calcule 
ensuite ces coordonnées dans les lignes 
550 à 570. Puis j'initialise mes matrices à 
zéro. Les lignes 640-680 éliminent les 
données inutilisées et indésirables, ne 
gardant que le premier chiffre de la 
dernière paire de coordonnées. La 
donnée restante est ensuite mise dans 
« P », 

Lignes 740-820. Elles signalent que 
l'ennemi a été détecté. On établit et on 
donne ensuite les coordonnées de départ 
du joueur. A partir de là, la donnée qui 
valide la boucle du programme (Z) est 
établie, une carte est imprimée, et le 
programme principal est lancé. 

Lignes 830-920. Les coordonnées du 
missile et du point d'arrivée du joueur sont 
demandées ici, et on vérifie leur validité. 
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Lignes 930-1080. L'ennemi décide où le 
joueur a pu aller et dirige son missile dans 
cette direction. 

Lignes 1090-1280. L'ennemi cherche 
où aller. S'il s'est enfermé, il l'annonce, se 
prépare pour sa mort, et fait comme s'il 
n'avait pas lancé de missile. Sinon il 
choisit de nouvelles coordonnées où aller 
se reposer. 

Lignes 1290-1480. lci, les deux adver- 
saires se déplacent (où ils peuvent), et on 
commence à chercher, si nécessaire, qui 
a tué l’autre. Ensuite, de 1430 à 1480 on 
recherche si le joueur a un endroit où aller 
ou non. S'il ne peut aller nulle part, on 
imprime un message et le joueur va 
mourir tranquillement. 

Lignes 1490-1780. On imprime ici les 
deux matrices. On teste si un nombre est 
à zéro où à un pour choisir le bon symbole 
à imprimer. Quand l'impression est 
terminée, « Z » est analysée pour savoir si 
quelqu'un est mort pendant la phase de 
jeu. Si ce n’est pas le cas, on refait un tour 
du programme, sinon on en termine 
l'exécution. 


J'ai passé beaucoup de temps à cor- 
riger ce programme. Quand il a marché, je 
me suis rendu compte qu'il agissait un 
peu comme une drogue. La tension monte 
quand le jeu atteint les derniers mouve- 
ments possibles. J'ai découvert deux 
stratégies qui peuvent s'appliquer à ce 
jeu. 

Celle que je préfère consiste à 
construire une barrière autour de l'ennemi 
avec des tirs de missiles. L'idée est 
d'essayer de l'empêcher de se déplacer. 
L'autre méthode est celle que l'ennemi 
utilise. || tire à chaque fois où il pense que 
l'adversaire peut se trouver. Le jeu se 
termine assez souvent rapidement, les 
chances d'être touché augmentant assez 
rapidement. 

Quelle que soit la méthode que vous 
employez, et même si vous en inventez 
une autre, vous passerez de nombreuses 
heures à vous amuser. Bonne chance ! 


Le programme et sa description ont été 
écrits par David Spencer. 


RUN 


TIR DE MISSILES 
CREATIVE COMPUTING 
MORRISTOWN, NEW JERSEY 


VOULEZ VOUS LES INSTRUCTIONS? OUI 


VOICI VENUE LA DERNIERE HEURE DE L'HUMANITE.VOUS ETES 

ENTRE EN GUERRE AVEC UNE NATION GUERRIERE. IL NE RESTE SUR 
TERRE QUE VOUS ET VOS ENNEMIS.VOUS AVEZ TOUS DEUX DECOUVERT LES 
SILOS ATOMIQUES RESTANT SUR TERRE CREES PAR DES SUPER PUISSANCES 
AUJOURD'HUI DISPARUES. LUI COMME VOUS,NE VOULEZ PAS MOURIR 

MAIS VIVRE EN PAIX. 


MAIS IL EST DEVENU EVIDENT QU'IL SENT QUE SA PAIX EST 
MENACEE ET QU'IL PREPARE UNE ATTAQUE. LUI ET VOUS AVEZ TOUS 

DEUX DES SCANNERS QUI VOUS AVERTISSENT DE SES MOUVEMENTS ET 
DETECTENT SES MISSILES ATOMIQUES, BIEN QU'ILS FONCTIONNENT LENTEMENT. 
L'ENNEMI À ,COMME VOUS, UNE GRILLE DE MISSILES À PEU PRES 
IDENTIQUE EN STRUCURE ET POSSIBILITE. COMME VOUS ETES LES 
DERNIERS SURVIVANTS, VOUS DEVREZ METTRE À FEU TOUS VOS MISSILES 
A LA MAIN.DES QUE CELA EST FAIT, VOUS DEVREZ FUIR CET ENDROIT 

ET ALLER À UNE DISTANCE DE DEUX UNITES. VOUS NE POURREZ JAMAIS 
REVENIR À CET ENDROIT,OU À UN ENDROIT OU UN MISSILE S'EST ECRASE; 
LES RADIATIONS SONT TROP INTENSES ET VOUS TUERAIENT 
INSTANTANEMENT. 


ENTRER ‘RETURN' POUR CONTINUER. 


LE DECOR EST ETABLI. VOTRE ENNEMI TIRERA 
À CHAQUE FOIS QUE VOUS TIREREZ, ET AINSI DE SUITE JUSQU'A LA MORT 
DE L'UN DE VOUS. 


APRES CHAQUE ECHANGE DE MISSILES,LES SCANNERS VOUS 

DONNERONT L'ETAT DE VOTRE TERRITOIRE ET DE CELUI DE VOTRE ENNEMI 
ILS VOUS MONTRERONT TOUT LES POINTS DE DEPART OU DE 

CHUTE D'UN MISSILE.A PARTIR DE CES CARTES 

TOUJOURS PERIMEES, VOUS DEVEZ ETRE CAPABLE DE DECOUVRIR 

VOTRE ADVERSAIRE PAR UN RAISONNEMENT OÙ DE LE PIEGER.ATTENTION, 
IL ESSAYERA DFE FAIRE DE MEME AVEC VOUS. 


ORDINATEUR DU SCANNER: ACTIVITES ENNEMIES SUR LA GRILLE EN 1 , 1 


VOS COORDONNEES DE DEPART? 3,3 





VOTRE TERRITOIRE TERRITOIRE ENNEMI 
5 PRINT CHR$(26) 
12345678910 12345678910 10 PRINT TAB(26);"TIR DE MISSILES" 
1 ï 1 * : 20 PRINT TAB(20);"CREATIVE COMPUTING" 
2 2 30 PRTNT TAB(18);"MORRISTOWN, NEW JERSEY" 
3 3 40 PRINT:PRINT:PRINT 
4 4 110 INPUT "VOULEZ VOUS LES INSTRUCTIONS";A$ 
5 5 120 IF LEFT$(A$,1)<>"O" GOTO 440 
6 6 130 PRINT 
7 7 140 PRINT "VOICI VENUE LA DERNIERE HEURE DE L'HUMANITE.VOUS ETES" 
8 8 150 PRINT "ENTRE EN GUERRE AVEC UNE NATION GUERRIERE. IL NE RESTE SUR" 
9 9 160 PRINT “TERRE QUE VOUS ET VOS ENNEMIS.VOUS AVEZ TOUS DEUX DECOUVERT LES " 
10 : 10 170 PRINT "SILOS ATOMIQUES RESTANT SUR TERRE CREES PAR DES SUPER PUISSANCES" 
180 PRINT “AUJOURD'HUI DISPARUES. LUI COMME VOUS,NE VOULEZ PAS MOURIR" 
COORDONNEES DU MISSILE? 3,1 190 PRINT “MAIS VIVRE EN PAIX." 
VOUS ALLEZ EN? 3,1 195: PRINT 
200 PRINT “ MAIS IL EST DEVENU EVIDENT QU'IL SENT QUE SA PAIX EST" 
ORDINATEUR DU SCANNER: EHl VOUS L'AVEZ EUII 210 PRINT "MENACEE ET QU'IL PREPARE UNE ATTAQUE. LUI ET VOUS AVEZ TOUS" 
VOTRE TERRITOIRE TERRITOIRE ENNEMI 220 PRINT "DEUX DES SCANNERS QUI VOUS AVERTISSENT DE SES MOUVEMENTS ET" 
: PRINT “DETECTENT SES MISSILES ATOMIQUES, BIEN QU'ILS FONCTIONNENT LENTEMENT. 


230 


240 





12345678910 12345678910 
: * 











320 
340 
350 
355 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 


1 3 3 1 

2 2 250 
3 3 260 
4 4 270 
5 5 280 
6 6 290 
7 7 300 
8 8 310 
9 9 315 
0 0 





em 
em 


O 
F 


PRINT "L'ENNEMI À ,COMME VOUS, UNE GRILLE DE MISSILES À PEU PRES" 

PRINT “IDENTIQUE EN STRUCURE ET POSSIBILITE. COMME VOUS ETES LES" 

PRINT "DERNIERS SURVIVANTS, VOUS DEVREZ METTRE À FEU TOUS VOS MISSILES" 
PRINT "A LA MAIN.DES QUE CELA EST FAIT, VOUS DEVREZ FUIR CET ENDROIT" 
PRINT "ET ALLER À UNE DISTANCE DE DEUX UNITES. VOUS NE POURREZ JAMAIS" 
PRINT "REVENIR À CET ENDROIT,OU À UN ENDROIT OÙ UN MISSILE S'EST ECRASE;" 
PRINT "LES RADIATIONS SONT TROP INTENSES ET VOUS TUERAIENT " 

PRINT “INSTANTANEMENT." 

PRINT:LINE INPUT "ENTRER 'RETURN' POUR CONTINUER. ";XXS$:PRINT CHR$(26) 
PRINT " LE DECOR EST ETABLI. VOTRE ENNEMI TIRERA" 

PRINT “A CHAQUE FOIS QUE VOUS TIREREZ, ET AINSI DE SUITE JUSQU'A LA MORT" 
PRINT "DE L'UN DE VOUS." 

PRINT 

PRINT “ APRES CHAQUE ECHANGE DE MISSILES,LES SCANNERS VOUS" 

PRINT "DONNERONT L'ETAT DE VOTRE TERRITOIRE ET DE CELUI DE VOTRE ENNEMI" 
PRINT "ILS VOUS MONTRERONT TOUT LES POINTS DE DEPART OU DE" 

PRINT "CHUTE D'UN MISSILE.A PARTIR DE CES CARTES " 

PRINT "TOUJOURS PERIMEES, VOUS DEVEZ ETRE CAPABLE DE DECOUVRIR" 

PRINT "VOTRE ADVERSAIRE PAR UN RAISONNEMENT OU DE LE PIEGER.ATTENTION, " 
PRINT "IL ESSAYERA DE FAIRE DE MEME AVEC VOUS." 


12345678910" 
RDINATEUR DU SCANNER: " 





S$="" 
FOR X=1 TO 14 
S$=s$+" " 
NEXT X 
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510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 


DIM 1(10,10),H(10,10),T(8,2),P(8,2) 
DATA 10,10 , 1,1 , 10,1 , 1,10 , 10,9 , 9,10 , 1,2 , 2,1 
DATA -2,-2 , O0,-2, 2,-2, 2,0 , 2,2 , O,2 ,-2,2 ,-2,0 


R=INT(RND(1)*8+1) 

FOR X=1 TO R 

READ AÀ,B 

NEXT X 

FOR X=1 TO 10 

FOR Y=1 TO 10 

1(X,Y)=0 

H(X,Y)=0 LG 

NEXT Y 

NEXT X 

IF A=2 GOTO 690 

FOR X=1 TO 8 

READ C,D 

IF C=2 GOTO 690 

NEXT X 

FOR X=1 TO 8 

FOR Y=1 TO 2 

READ P(X,Y) 

NEXT Y 

NEXT X 

PRINT CS;"ACTIVITES ENNEMIES SUR LA GRILLE EN";A;",";B 
PRINT 

INPUT "VOS COORDONNEES DE DEPART";E,F 
IF E<l OR E>10 OR F<l OR F>10 GOTO 760 
Z=1 

I(E,F)=1 

H(A,B)=1 

PRINT 

GOTO 1490 

INPUT "COORDONNEES DU MISSILE";M,N 

IF M<l OR M>10 OR N<l OR N>10 GOTO 830 
INPUT "VOUS ALLEZ EN";S,T 

IF S<l OR S>10 OR T<l OR T>10 GOTO 850 
IF 1(S,T)=1 GOTO 850 

FOR X=1 TO 8 

IF P(X,1)+E=S AND P(X,2)+F=T GOTO 920 
NEXT X 

GOTO 850 

PRINT 

L=1 

FOR X=1 TO 8 

IF P(X,1)+E>10 OR P(X,1)+E<1 OR P(X,2)+F>10 OR P(X,2)+F<1 GOTO 1000 
IF I(P(X,1)+E,P(X,2)+F)=1 GOTO 1000 
T(L,1)=P(X,1)+E 
T(L,2)=P( ,2)+F 

L=L+1 

NEXT X 

L=L-1 

IF L<>l GOTO 1060 

C=T(L,1) 

D=T(L,2) 

GOTO 1090 

G=INT(RND(1)*L+1) 

C=T(G,1) 

D=T(G,2) 

L=1 

FOR X=1 TO 8 

IF P(X,1)+A>10 OR P(X,1)+A<1 OR P(X,2)+B>10 OR P(X,2)+B<1 GOTO 1160 
IF H(P(X,1)+A,P(X,2)+B)=1 GOTO 1160 
T(L,1)=P(X,1)+A 

T(L,2)=P(X,2)+B 

L=L+l 


1160 
1170 
1180 
1190 
1200 
1204 
1207 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
Ok 
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NEXT X 

L=L-1 

IF L<>O GOTO 1220 

PRINT C$;"L'ENNEMI S'EST ENFERME LUI-MEME 
Z=0 

C=C 

D=F 

GOTO 1290 

IF L<>l GOTO 1260 

J=T(1,1) 

K=T(1,2) 

GoTo 1290 

G=INT(RND(1)*L+1) 

J=T(G,1) 

K=T(G,2) 

I(E,F)=1 

H(A,B)=1 

I1(C,D)=1 

H(M,N)=1 

IF M<>J OR D<>T GOTO 1390 

PRINT C$;"EHI VOUS L'AVEZ EU!!" 
2=0 

IF C<>S OR D<>T GOTO 1390 

PRINT C$;"VOUS VOUS ETES MIS JUSTE SOUS SON MISSILEI!" 
Z=0 

E=S 

F=T 

A=J 

B=K 

FOR X=1 TO 8 

IF P(X,1)+E>10 OR P(X,1)+E<1 OR P(X,2)+F>10 OR P(X,2)+F<1 GOTO 
IF I(P(X,1)+E,P(X,2) 7)=0 GOTO 1490 


ju" 


NEXT X 

PRINT C$:"IDIOTI VOUS VOUS ETES ENFERME VOUS-MEMEI 1" 
Z=0 

PRINT "VOTRE TERRITOIRE ", "TERRITOIRE ENNEMI" 

PRINT 

PRINT G$S:S$:G$ 


FOR X=1 TO 10 

IF X=10 GOTO 1560 
PRINT X: 

GOTO 1570 

PRINT “10 "; 

FOR Y=1 TO 10 

IF I(X,Y)=1 GOTO 1610 
PRINT ; 
GOTO 1620 
PRINT "“*"; 

NEXT Y 

PRINT “ ":S$: 

IF X=10 GOTO 1670 
PRINT X;: 

GOTO 1680 

PRINT "10 "; 

FOR Y=1 TO 10 

1F H(X,Y)=1 GOTO 1720 
PRINT ":"; 

GOTO 1730 

PRINT "*"; 

NEXT Y 

PRINT 

NEXT X 

PRINT 

IF Z=1 GOTO 830 

END 
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Smash 























: VOULEZ-VOI J ? OUI 
Ce jeu est une course de « tacots » sur VS: REIOUER 
un seul tour de circuit. || pose un gros TEMPS (SEC) MILES A FAIRE M.P.H. POSITION DEPLACEMENT 
K : 0 13 0 1 21 
problème : vous ne connaissez pas la 30 12.7762 D 3 75 
ñ i i i i ñ 60 12.3688 48.65 4 22 
forme du circuit, ni la vitesse limite avec se 12:3688 es ; 72 
laquelle vous devez aborder les virages. 120 10.9521 85.2287 6 2 6 
; 150 10.3235 75.442] 6 72 
Par conséquent, il y a de fortes chances 130 1188 dires de Le 
que vous vous écrasiez relativement 2 ee ere ; 7 : 
souvent, ou bien que vous alliez si 270 6.14713 169.549 3 23 
; 300 &.93168 145.855 n 27 
lentement que vous ne serez pas bien 520 Pret MT ei 
placé par rapport aux autres concurrents. 390 277708 159.611 3 25 
< : : 1.63575 136.96 à 27 
Cependant, après quatre ou cinq essais, 420 .737833 107.75 2 2 
i 435.387 0 172.625 7 
« N 
vous commencerez à vous faire la C'EST LA FIN DE LA COURSE. VOUS AVEZ PLACE 2 
main » et vous pourrez vous mouvoir avec VOTRE VITESSE MOYENNE FUT DE 107.491 M.P.H. 
, A , . . : VOULEZ-VOUS REJOUER? NON 
habileté sur le circuit. Les instructions sont 
détaillées dans le programme. Amusez- 
vous bien ! 
Smash a été écrit par Scott Byron. 
S PRINT CHRS (26) 
19 PRINT TAB (26) ;"SMASH" 
20 PRINT TAB (28) ; "CREATIVE COMPUTING" 
33 PRINT TAB (18) ;"MORRISTOWN, NEN JERSEY" 
4è PRINT:PRINT 
RS SÙ DIM A{7),J (6) 
CREATIVE COMPUTING Hs He Pi Dies DES INSTRUCTIONS" ; 
MORRISTOWN, NEW JERSEY CS PRtNr 
122 FOR X=i TO 7:READ A(X):NEXT X 
VOULEZ-VOUS DES INSTRUCTIONS? OUI 195 FOR X=1 TO 6:READ J(X):NEXT X 
129 IF LEFTS(Z$,i)="N" THEN 360 
VOICI SMASH -- LE JEU QUI SIMULE UNE COURSE DE VOITURES. 139 PRINT VOICI SMASH — LE JEU QUI, SIMULE UNE COURSE DE VOITURES. * : PRINT 
VOUS REPONDREZ AU MOYEN D'UNE DES YNSTRUCTIONS SUIVANTES 149 PRINT"VOUS REPONDREZ AU MOYEN D'UNE DES INSTRUCTIONS SUIVANTES * 
LORSQU'UN ‘?' SERA IMPRIME. LES NUMEROS DE POSITION FONT ReFEKENCE 158 PRINT*LORSQU'UN '?' SERA IMPRIME. LES NUMEROS DE POSITION FONT REFERENCE" 
AU POINT DE LA PISTE SUR LEQUEL VOUS ETES- ILS SONT COMME SUIT: + PRNRAU POINT DE LA PISTE SUR LEQUEL VOUS ETES - ILS SONT COMME SUIT:" 
1 
j = LA LIGNE DE DEPART 189 PRINT “ 1 - LA LIGNE DE DEPART" 
[ 199 PRINT “ 2 - MOITIE DE LA LIGNE DROITE" 
Re du 24 PRINT © 3 2 EME DO VIRAGE À GAUCHE" 
| « : se 
à-= MOTTIE. DU VIRAGE À GAUCHE 219 PRINT " 4 — MOITIE DU VIRAGE À GAUCHE 
5 - ENTREE DU VIRACE À DROITE 220 PRINT " 5 — ENTREE DU VIRAGE À DROITE" 
6 - MOITIE DU VIRAGE À DROITE 230 PRINT “ 6 - MOITIE DU VIRAGE À DROITE" 
22 LACLTÔNE. D'ABRIVEE 240 PRINT " 7 — LA LIGNE D'ARRIVÉE" 
- 258 PRINT:PRINT:LINE INPUT "ENTREZ ‘RETURN' POUR CONTINUER." ;XXS:PRINT CHRS (26) 
266 PRINT" INSTRUCTIONS" 
INSTRUCTIONS 261 PRINT" " 
INSTRUCTIONS 270 PRINT® à -— AU PLANCHER" 
1 = AU PLANCHER 289 PRINT" 2 - ACCELERER (MODEREMENT) * 
2 - ACCELERER (MODEREMENT) 299 PRINT" 3 - FKEINER LEGEREMENT" 
3 - FREINER LEGEREMENT 309 PRINT" 4 — FREINER À FOND" 
& - FREINER A FOND 319 PRINT" 5 — VIRAGE DROIT À LA CORDE" 
5 - VIRAGE DROIT À LA CORDE 320 PRINT" © - VIRAGE DROIT MODERE" 
6 - VIRAGE DROIT MODERE 333 PRINT" 7 — VIRAGE GAUCHE À LA CORDE" 
7 - VIRAGE GAUCHE A LA CORDE 348 PRINT" 8 -— VIRAGE GAUCHE MODERE" 
8 - VIRAGE GAUCHE MODERE 352 PRINT:PRINT:LINE INPUT "ENTREZ 'RETURN' POUR COMMENCER LA COURSE. ";XXS 
368 PRINT CHRS (26) :PRINT"TEMPS (SEC)","MILES À FAIRE" ,"M.P.H.", "POSITION" , "DEPLAC 
TEMPS(SEC) MILES A FAIRE M.P.H POSITION DEPLACEMENT EMENT" 
0 10 0 1 21 361 PRINT" ue n/a " ci dE k 
30 9.77167 27.4 4 22 379 LET A=INT(19+RND (1) *5) :Y=A 
60 9.32917 53.1 3 ?2 389 LET B=0:T=0 
90 8.55292 93.15 4 23 390 LET C=i 
120 7.9012 78.2062 2 21 408 GOTO 420 
SMASH -- VOUS ETES ALLE DROIT DANS LE MUR! 419 LET C=(INT(2#RND(i)*5)) 
VOULEZ-VOUS REJOUER? OUI 420 PRINT USING " #44 ARTE a. # "; 
T,A,B,C; 
TEMPS (SEC) MILES A FAIRE M.P.H. POSITION DEPLACEMENT 439 INPUT D 
0 11 0 1 ?1 449 IF DC>INT(D) THEN 479 
30 10.8217 21.4 2 21 450 IF D>B THEN 470 
60 10. 1008 86.5 2 21 469 IF D>=1 THEN 499 
SMASH -- VOUS ETES ALLE DROIT DANS LE MUR! 479 PRINT"DE UN À HUIT SEULEMENT." 
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489 GOTO 424 748 IF D=7 THEN 968 


499 IF D<>i THEN 519 759 IF D=5 THEN 969 
508 LET B=3#B+20+INT (LO+RND(1) *91)/18 769 IF C=3 THEN 780 
Sid IF DK>2 THEN 534 770 1F C<>4 THEN 809 
520 LET B=3*B/2+7+INT (18+RND(1)*61)/10 780 IF D=5 THEN 964 
530 IF D<>3 THEN 554 799 IF D=6 THEN 969 
544 LET B=7#*B/8-6+INT (14+RND(1)#*41)/19 809 IF C=6 THEN 824 
554 1F D<>4 THEN 579 8id IF C<>5 THEN 848 
S69 LET B=4*B/7-26+INT (19+RND(1)*81)/1d 829 IF D=7 THEN 969 
570 IF D=7 THEN 594 830 IF D=8 THEN 960 
582 IF D<>5 THEN 609 84 IF B>J(C) THEN 970 
599 LET B=9*B/10* (.7+RND(1) *.6) 850 1F INT(1+RND(Y)*77) <>49 THEN 880 
600 IF D=8 THEN 620 869 PRINT "SMASH — VOUS AVEZ ETE TOUCHE PAR UNE AUTRE VOITURE! 1" 
619 IF DX>6 THEN 630 878 GOTO 989 
620 LET B=13*B/14%* (.7+RND(1) *.6) 889 LET T=T+30 
630 1F B>0 THEN 650 899 LET A=A-B/129 
640 LET B=0 Qu IF C=1 THEN 414 
658 1F A-B/120>9 THEN 730 919 IF C=4 THEN 410 
668 LET T=-T+A*3600/B 928 1F C=2 THEN 4iv 
674 PRINT USING " #44 ##.#44 ht # : 934 IF C=6 THEN 4id 
T,0,B,7 948 LET C=C+l 
689 PRINT:PRINT"C'EST LA FIN DE LA COURSE. VOUS AVEZ PLACE #"INT(T/(20*Y)+.5 950 GOTO 424 
);CHRS (8) ;".": 968 PRINT"MAUVAIS DEPLACEMENT ! " 
PRINT 972 PRINT “SMASH — VOUS ETES ALLE DROIT DANS LE MURI* 
699 PRINT"VUTRE VITESSE MOYENNE FUT DE"Y*3609/T"M.P.H" 989 PRINT:PRINT"VOULEZ-VOUS REJOUER* ; 
700 IF INT(T/(20*Y)+.5)©>i THEN 984 999 INPUT ZS 
7id PRINT"CE FUT UNE COURSE PARFAITE, VOUS ETES UN AS!" 1800 IF LEFTS(Z$,1)="O" THEN 360 
720 GOTO 984 1929 DATA 2,3,5,2,3,5,2,200,240,180,170,180, 170 
730 IF C<>2 THEN 760 1938 END 
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Strike 9 (Enlevez-en 9) 





Ce jeu simple utilise les chiffres 1 à 9 et 
une paire de dés. L'ordinateur commence 
par donner un nombre au hasard à la 
place des dés. Ensuite, vous devez sous- 
traire ce nombre à l’ensemble des chiffres 
du tableau 1-9. Pour gagner, il vous faut 
supprimer tous les chiffres du tableau. A 
chaque « lancer de dés », vous enlevez 
du tableau des chiffres au choix, tels que 
leur somme soit la valeur du lancer. Sinon, 
vous perdez. 

Une ruse consiste à ôter, après chaque 
lancer de dés, le maximum de chiffres 
possibles, ou bien les chiffres les plus 
grands possibles. Par exemple, avec un 
lancer de 10, vous pouvez enlever les 
chiffres 1, 2, 3 et 4, ou bien 1 et 9. 

Vous pouvez tenter votre chance avec 
d’autres joueurs. Chacun d'entre vous 
prend son tour alternativement après 
chaque lancer. Le joueur qui ne peut plus 
déplacer de chiffres à partir de son lancer 
a perdu. 

Bruce Grembowski a conçu ce pro- 
gramme qui parut pour la première fois 
dans Creative Computing en janv.-févr. 
1977. 


RUN 
ENLEVEZ EN 9 
CREATIVE COMPUTING 
MORRISTOWN NEW JERSEY 
VOULEZ-VOUS DES INSTRUCTIONS? OUI 


"ENLEVEZ EN 9' SE JOUE AVEC UNE PAIRE DE DES ET UN 


TABLEAU DE 9 NOMBRES: 1 2 3 4 5 6 7 8 9.ON VOUS DONNE UN 


JET DE DES ET VOUS POUVEZ EFFACER JUSQU'A 4 NOMBRES. 


SI VOUS ENTREZ QUE VOUS VOULEZ RETIRER 5 NOMBRES, ON VOUS 


DONNERA LA SUITE DES NOMBRES QU'IL VOUS RESTE À EFFACER 
PUIS VOUS ENTREZ COMBIEN DE NOMBRES VOUS VOULEZ RETIRER 


ENFIN VOUS RENTREZ QUELS SONT LES NOMBRES QUE VOUS VOULEZ 


EFFACER,UN À LA FOIS. LES NOMBRES QUE VOUS RETIREZ 
DOIVENT AVOIR UNE SOMME EGALE AU JET. VOUS GAGNEZ EN 
EFFACANT TOUS LES NOMBRES DU TABLEAU. VOUS PERDEZ SINON 


VOICI LE TABLEAU: 17.22; [3 -4.05:-:6: «7 «85 9 


VOICI VOTRE JET 4. 
# NOMBRES À EFFACER? 1 
QUEL EST LE NOMBRE? 4 


VOICI VOTRE JET 6. 
# NOMBRES À EFFACER? 1 
QUEL EST LE NOMBRE? 6 


VOICI VOTRE JET 6. 

# NOMBRES À EFFACER? 2 
QUELS SONT LES NOMBRES? 1 
? 5 


VOICI VOTRE JET 6. 

DESOLE, VOUS AVEZ PERDU CETTE FOIS. 

IL RESTE 5 NOMBRES SUR LE TABLEAU: 2 3 7 8 9 
VOUS VOULEZ REJOUER (OUI OU NON)? OUI 

VOULEZ-VOUS DES INSTRUCTIONS? NON 


VOICI LE TABLEAU: E-2:-3-4 5.:6, 7. :8::9 


VOICI VOTRE JET 12. 

# NOMBRES À EFFACER? 2 
QUELS SONT LES NOMBRES? 5 
27 


VOICI VOTRE JET 6. 
# NOMBRES À EFFACER? 1 
QUEL EST LE NOMBRE? 6 


VOICI VOTRE JET 7. 

# NOMBRES A EFFACER? 2 
QUELS SONT LES NOMBRES? 3 
? 4 


VOICI VOTRE JET 7. 
DESOLE, VOUS AVEZ PERDU CETTE FOIS. 


IL RESTE 4 NOMBRES SUR LE TABLEAU: 1 2 8 9 
VOUS VOULEZ REJOUER (OUI OU NON)? NON 
Ok 


S PRINT CHRS (26) 

1 PRINT TAB(25) ;"ENLEVEZ EN 9" 

23 PRINT TAB (19) ; "CREATIVE COMPUTING* 

39 PRINT TAB(18) ;"MORRISTOWN NEW JERSEY" 

92 DIM A(9),D(4) 

119 PRINT:PRINT 

179 PRINT "VOULEZ-VOUS DES INSTRUCTIONS" ; 

188 INPUT R$ 

199 IF LEFTS(R$,1)="N" THEN 349 

208 IF LEFTS(R$,1) <> “O" THEN 178 

219 PRINT:PRINT"'ENLEVEZ EN 9° SE JOUE AVEC UNE PAIRE DE DES ET UN" 
228 PRINT "TABLEAU DE 9 NOMBRES: 1 2 3 4 5 6 7 8 9.ON VOUS DONNE UN" 
23 PRINT "JET DE DES ET VOUS POUVEZ EFFACER JUSQU'A 4 NOMBRES." 


248 PRINT "SI VOUS ENTREZ QUE VOUS VOULEZ RETIRER 5 NOMBRES, ON VOUS" 


258 PRINT “DONNERA LA SUITE DES NOMBRES QU'IL VOUS RESTE À EFFACER" 
263 PRINT "PUIS VOUS ENTREZ COMBIEN DE NOMBRES VOUS VOULEZ RETIRER" 
270 PRINT “ENFIN VOUS RENTREZ QUELS SONT LES NOMBRES QUE VOUS VOULEZ" 
280 PRINT "EFFACER,UN À LA FOIS. LES NOMBRES QUE VOUS RETIREZ"* 

293 PRINT “DOIVENT AVOIR UNE SOMME EGALE AU JET. VOUS GAGNEZ EN * 
304 PRINT “EFFACANT TOUS LES NOMBRES DU TABLEAU. VOUS PERDEZ SINON* 
329 PRINT 

343 PRINT 

355 PRINT "VOICI LE TABLEAU: *; 

360 REM MIS EN PAGE DU TABLEAU 

378 FOR B=1 TO 9 

389 PRINT B; 

390 A(B)=B 

40 NEXT B 

495 PRINT 

419 C=INT (RND(i) *6+1)+INT (RND(1) *6+i) 

429 PRANTEPRINT “VOICI VOTRE JET *;C;CHRS (8) ;"." 


442 FOR X=1 TO 9 

452 T=T+A (X) 

460 NEXT X 

465 REM VERIFIER SI MANQUE 
478 IF C > T THEN 950 

482 IF C=T THEN 1120 

499 FOR K=1 TO 9 

SUÿ FOR L=i TO 9 

Sid FOR M=i TO 9 

528 FOR N=1 TO 9 

539 IF N=K THEN 639 

S4ù IF N=L THEN 630 

554 IF N=M THEN 630 

S60 IF M=K THEN 640 

578 IF M=L THEN 640 

S89 IF L=K THEN 650 

59 IF C-A(K)=9 THEN 680 
60 IF C-A(K)=A(N) THEN 685 
619 IF C-A(K)-A(L)=A(N) THEN 689 
629 1F C-A(K)-A(M)=A(N) THEN 689 
639 NEXT N 

642 NEXT M 

65ù NEXT L 

662 NEXT K 

679 GOTO 95 

68y FOR X=1 TO 4 

693 D(X)=ù 

708 NEXT X 


719 PRINT “# NOMBRES À EFFACER"; 949 GUTO 7iv 


728 INPUT E 952 PRINT "DESULE, VOUS AVEZ PERDU CETTE FOIS." 
738 IF INT(E) <> E THEN 760 963 T=u 

740 IF E < i THEN 760 979 FOK B=1 TO 9 

750 IF E>4 THEN 884 989 IF A(B)=9 THEN 1009 

755 GUTO 774 999 T=T+i 

769 PRINT “REPONDRE 1, 2, 3 OU 4 (5 POUR LE TABLEAU) ." idÿd NEXT B 

765 GOTO 714 1919 PRINT “IL RESTE" ;T; "NOMBRES SUR LE TABLEAU:  "; 
770 1F E=i THEN PRINT "QUEL EST LE NOMBRE"; ELSE PRINT "QUELS SONT LES NOMBRES"; 1929 FOR X=1 TO 9 - 

780 FOR F=i TO E 1930 IF A(X)=0 THEN 1058 

794 1NPUT D(F) 1948 PRINT A(X); 

800 IF A(D(F)) <> à THEN 825 1958 NEXT X 

814 PRINT “VOUS L'AVEZ DEJA RETIRE, RECOMMENCEZ ." 1969 PRINT 

820 GOTO 7id 1278 PRINT "VOUS VOULEZ REJOUER (OUI OÙ NON)"; 
825 NEXT F 1989 INPUT GS 

830 IF C <> D(i)+D(2)+D(3)+D(4) THEN 879 1999 1F LEFTS(G$,1)="0" THEN 179 

835 FOR F=i TO E Livg IF LEFTS(G$,1) <> "N" THEN 1078 

844 A(D(F))=d iilé END 

85 NEXT F 1129 PRINT "#* # # FELICITATIONS * * *" 

864 GUTO 414 113U PRINT "# VOUS AVEZ GAGNE *" 

870 PRINT "CES NOMBRES N'ONT PAS UNE SOMME EGALE AU JET,RECOMMENCEZ . " 1149 PRINT 

875 GOTO 7i 1154 PRINT 

889 PRINT "LES NOMBRES QU'IL VOUS RESTE À RETIRER SONT: "; 1160 PRINT "VOUS VOULEZ REJOUER (OUI OÙ NON)"; 
899 FOR B=1 TO 9 - ii7d INPUT HS 

9ùw IF A(B)=8 THEN 920 1184 IF LEFTS(H$,1)="O" THEN 179 

910 PRINT A(B); 1199 IF LEFTS(H$,1) <> "N" THEN 1160 

92ù NEXT B 1i20ÿ END 

936 PRINT 
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Tennis 





Comme son nom l'indique, ce jeu est un 
match de tennis. Vous avez plusieurs 
possibilités de jeu comme la position sur 
le court, la destination de la balle que vous 
essayez de placer, la vitesse et le type du 
coup. Comme dans le tennis habituel, 
vous ne faites pas toujours le coup que 
vous auriez voulu. Le programme vous 
laisse jouer, plus ou moins à un niveau 
intermédiaire. Si vous pensez que cela 
vous permet de jouer trop bien ou pas 
assez, vous pouvez toujours changer au 
hasard certains des facteurs qui détermi- 
nent la fréquence d'apparition d'un coup 
raté. 

Tennis a été écrit par Victor Nahigian et 
David Ahl 


RUN 
MATCH DE TENNIS 


CREATIVE COMPUTING, MORRISTOWN, NEW JERSEY 


PLUSIETRS OPTIONS VOUS SONT PERMISES COMME VOTRE 
POSITION,LE BUT DU COUP ,ET SA VITESSE(SON TYPE).LES CLEFS A 
UTILISER SONT... 


POSITION (PLACEMENT ,AUSSI):FOND DE COURT.G (1);FOND 
DE COURT.D (2):VOLEE.G (3);VOLEE.D (4). 


VITESSE (TYPE)DU COUP: RAPIDE-DIRECT (S);LENT-LOB (L). 


LES COUPS DROITS ET LES REVERS SE FERONT SUIVANT 
L'ENDROIT PU COURT OÙ VOUS VOUS TROUVEZ. 

POUR LES SERVICES VOUS N'AVEZ PAS LE CHOIX DE LA 
POSITION,MAIS VOUS POUVEZ CHANGER SA VITESSE.EN PLUS, VOUS 
POUVEZ SERVIR PENDANT CHAQUE JEU. 


ETES VOUS PRET?... ON Y VAIII 


SERVICE! VITESSE(TYPE)? S 
LE SERVICE À ETE RETOURNE... 


QUELLE EST VOTRE POSITION? 1 
QUEL TYPE DE COUP ALLEZ-VOUS UTILISER? S 
QUELLE PARTIE DU COURT VISEZ-VOUS? 3 

VOTRE RETOUR EST MAUVAIS! 

LE RETOUR DE L'ORDINATEUR EST BON! 


QUELLE EST VOTRE POSITION? 2 
QUEL TYPE DE COUP ALLEZ-VOUS UTILISER? 3 
QUELLE PARTIE DU COURT VISEZ-VOUS? 2 
VOTRE RETOUR EST MAUVAIS... 
BALLE EN DEHORS DU COURT. 


SCORE: ZERO - 15 


SERVICE! VITESSE(TYPE)? S 
LE SERVICE EST MAUVAIS. 


SERVEZ À NOUVEAUII VITESSE(TYPE)? S 
SERVICE LET... UNE BALLE. 
SERVEZ À NOUVEAUII VITESSE(TYPE)? S 


LE SERVICE EST MAUVAIS...DOUBLE FAUTE! 


SCORE: ZERO - 30 


SERVICE! VITESSE(TYPE)? S 
SERVICE LET...DEUX BALLES. 

SERVICE! VITESSE(TYPE)? S 
LE SERVICE EST MAUVAIS. 
SERVEZ À NOUVEAUII VITESSE(TYPE)? S 
SERVICE LET... UNE BALLE. 
SERVEZ A NOUVEAUII VITESSE(TYPE)? S 
LE SERVICE EST MAUVAIS...DOUBLE FAUTEI 


SCORE: ZERO - 40 


SERVICE! VITESSE(TYPE)? S 
LE SERVICE EST MAUVAIS. 
SERVEZ A NOUVEAUI!I VITESSE(TYPE)? S 
LE SERVICE EST MAUVAIS...DOUBLE FAUTE! 





SCORE: JEU 
- FIN DU JEU -- 
SCORE DES JEUX: VOUS. ..MOI 


(o] 1 


SERVICE! VITESSE(TYPE)? S 


LE SERVICE EST MAUVAIS. 
SERVEZ A NOUVEAUII VITESSE(TYPE)? S 
LE SERVICE EST MAUVAIS...DOUBLE FAUTEI 


SCORE: ZERO -— 30 


SERVICE! VITESSE(TYPE)? S 
LE SERVICE À ETE RETOURNE... 


QUELLE EST VOTRE POSITION? 1 
BEL ESSAI-VOUS ETIEZ INCAPABLE DE REUSSIR CE COUP-COURT # 4. 


SCORE: ZERO -.40 


SERVICE! VITESSE(TYPE)? S 
SERVICE LET...DEUX BALLES. 
SERVICEI VITESSE(TYPE)? S 
LE SERVICE EST MAUVAIS. 
SERVEZ A NOUVEAUI!I VITESSE(TYPE)? S 
LE SERVICE EST MAUVAIS...DOUBLE FAUTEI 


SCORE: JEU 





SCORE DES JEUX: VOUS. ..MOI 
[o] 2 


SERVICE! VITESSE(TYPE)? S 
LE SERVICE A ETE RETOURNE... 


QUELLE EST VOTRE POSITION? 1 
QUEL TYPE DE COUP ALLEZ-VOUS UTILISER? L 
QUELLE PARTIE DU COURT VISEZ-VOUS? 3 
VOTRE RETOUR EST MAUVAISI 
LE RETOUR DE L'ORDINATEUR EST MAUVAIS. 
BALLE DANS LE FILET. 


SCORE: 15 - ZERO 


SERVICE VITESSE(TYPE)? S 
LE SERVICE EST BON...ACEIII 


SCORE: 30 - ZERO 


SERVICEI VITESSE(TYPE)? S 
LE SERVICE EST MAUVAIS. 
SERVEZ À NOUVEAUII VITESSE(TYPE)? S 
LE SERVICE EST MAUVAIS...DOUBLE FAUTEI 


SCORE: 30 - 15 


SERVICEI VITESSE(TYPE)? S 
LE SERVICE À ETE RETOURNE... 


QUELLE EST VOTRE POSITION? 1 
QUEL TYPE DE COUP ALLEZ-VOUS UTILISER? S 
QUELLE PARTIE DU COURT VISEZ-VOUS? 2 
VOTRE RETOUR EST MAUVAISI 
LE RETOUR DE L'ORDINATEUR EST MAUVAIS. 
BALLE DANS LE FILET. 


SCORE: 40 - 15 


SERVICEI  VITESSE(TYPE)? S 
SERVICE LET...DEUX BALLES. 
SERVICEI VITESSE(TYPE)? S 
LE SERVICE EST MAUVAIS. 
SERVEZ À NOUVEAUII VITESSE(TYPE)? S 
SERVICE LET... UNE BALLE. 
SERVEZ À NOUVEAUII VITESSE(TYPE)? S 
SERVICE LET... UNE BALLE. 
SERVEZ À NOUVEAUII VITESSE(TYPE)? S 
LE SERVICE EST BON...JE NE PEUX LE RETOURNERI! 





SCORE: JEU 
- FIN DU JEU -- 
SCORE DES JEUX: VOUS...MOI 


1 2 
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N=76 

GUTO 78 

PRINT TAB(10);"LE SERVICE A ETE RETOURNE..." 
PRINT 

U=INT (4#RND(1))+1 

PRINT TAB(20):"QUELLE EST VOTRE POSITION"; 
INPUT Q 

IF 0+Q=5 THEN 124 

PRINT TAB(20);"QUEL TYPE DE COUP ALLEZ-VOUS UTILISER"; 
INPUT C$ 

PRINT TAB(2U); "QUELLE PARTIE DU COURT VISEZ-VOUS"; 
INPUT R 

S=100#RND(1) 

IF C$="L" THEN 99 

IF S<B1 THEN 107 

UOTO 100 

IF S<91 THEN 107 

U=4*RND(1) 

PRINT TAB(30);"VOTRE RETOUR EST MAUVAIS..." 
IF U<2 THEN 105 

PRINT TAB(33);"BALLE EN DEHURS DU COURT." 
GUTU 130 

PRINT TAB(33);"BALLE DANS LE FILET." 

GUTO 130 

PRINT TAB(30);"VOTRE RETOUR EST MAUVAIS!" 
Al=INT(4#RND(1)) 

IF R+A1=5 THEN 127 

W=100*RND(1) 














1 PRINT CHR$(26); TAB(2B)"MATCH DE TENNIS":PRINT 111 IF C$="L" THEN 112 

2 PRINT TAB(15)"CREATIVE COMPUTING, MURRISTOWN, NEW JERSEY" 112 IF W<84 THEN 122 

10 PRINT:PRINT 113 GOTO 115 

21 PRINT TAB(3);"IL Y A PLUSIEURS OPTIONS QUI VOUS SONT PERMISES COMME VOTRE" 114 IF W<84 THEN 122 

22 PRINT 'POSITION,LE BUT DU COUP ,ET SA VITESSE(SON TYPE).LES CLEFS À " 115 C1=4#*RND(1) 

23 PRINT "UTILISCR SONT. ..":PRINT 116 PRINT TAB(30);"LE RETOUR DE L'ORDINATEUR EST MAUVAIS." 
24 PRINT TAB(5)"POSITION (PLACEMENT ,AUSSI):FOND DE COURT.G (1);); FOND" 117 IF B<2 THEN 120 

25 PRINT TAB(5);" DE COURT.D (2); VOLEE.G (3); VOLEE.D (4).":PRINT 118 PRINT TAB(33);"BALLE EN DEHORS DU COURT." 

26 PRINT TAB(5)"VITESSE (TYPE )DU COUP: RAPIDE-DIRECT (S);LENT-LOB (L).":PRINT 119 GOTO 128 

27 PRINT TAB(3)"LES COUPS DROITS ET LES REVERS SE FERONT SUIVANT" 120 PRINT TAB(33);"BALLE DANS LE FILET." 

28 PRINT "L'ENDRUIT DU COURT UU VOUS VOUS TROUVEZ." 121 GUTO 128 

29 PRINT TAB(3) "POUR LES SERVICES VOUS N'AVEZ PAS LE CHOIX DE LA " 122 PRINT TAB(30);"LE RETOUR DE L'ORDINATEUR EST BON!" 

3U PRINT "POSITION,MAIS VOUS POUVEZ CHANGER LA VITESSE.EN PLUS, VOUS" 123 GOTO 86 

31 PRINT "POUVEZ SERVIR PENDANT CHAQUE JEU.":PRINT 124 PRINT"BEL ESSAI-VOUS ETIEZ INCAPABLE DE REUSSIR CE CUUP-COURT £"D;CHR$(8);" 
32 PRINT TAB(10):ETES VOUS PRET?... ON Y VAI!" 125 GOT0 130 

35 Y=0 127 PRINT "  JULI COUP - L'ORDINATEUR N'A PU LE RENVOYER." 
36 2=0 128 Y=Y+1 

38 PRINT 129 GOTU 131 

39 PRINT 130 Z=2+1 

40 PRINT " SERVICE!  VITESSE(TYPE )"; 131 PRINT:GOSUB 2U0Ù 

41 INPUT Aÿ: IF AÿC>"L" AND A$<>"S" THEN PRINT "'L' UR 'S'.": GUTO 40 132 PRINT TAB(15) ;"SCURE : "s$ 

42 A=1UU*RND (1) 134 IF Y>=4 AND Y>Z+1 THEN 137 

43 IF Aÿ="L" THEN 92 135 IF Z>=4 AND 22Y+1 THEN 139 

44 C=6 136 GUTO 38 

45 D=51 137 YIz=Yl+l 

46 IF A<C THEN 50 138 GUTO 140 

47 IF ACD THEN 70 139 Z1=214+1 

48 PRINT TAB(10);"LE SERVICE EST MAUVAIS." 140 PRINT: PRINT" FIN DU JEU = "PRINT 
49 GOTO 55 141 PRINT TAB(13);"SCURE DES JEUX: VOUS. . MOI" 

SU PRINT TAB(10); "SERVICE LET...DEUX BALLES." 142 PRINT TAB(32);v1;" "321 

21 GOTO 4Ù 143 IF Y12=6 AND Y12Z1+1 THEN 146 

52 C= läë IF 21226 AND Z12Yl+1 THEN 149 

53 U=66 145 GOTO 35 

54 GOTO 46 146 PRINT 

55 PRINT TAB(10);"SERVEZ A NOUVEAU!!  VITESSE(TYPE)"; 147 PRINT "##### FÉLICITATIONS ...VOUS AVEZ GAGNE*####" 

56 INPUT B$: IF B$<>"L" AND B$C>"S" THEN PRINT "'L' OR 'S'.": GOTO 55 : 148 GOTO 151 

57 L=100*RND(1) 149 PRINT 

58 1F G$="L" THEN 67 150 PRINT "#####COMME PRÉVU, L'ORDINATEUR EST ENCORE TRIOMPHIANT I#####1 
59 G=5 151 PRINT 

60 H=41 152 PRINT" JE SERAISRAVI DE REJUUER AVEC VOUS UNE AUTRE FUIS,MAIS " 
61 IF E<G THEN 65 153 PRINT "MAINTENANT JE LOIS M'ARRETER ....... AU REVOIR! II" 
62 IF ECH THEN 70 154 PRINT 

63 PRINT TAB(10);"LE SERVICE EST MAUVAIS...DOUBLE FAUTE!" 155 END 

64 GOTO 130 


200 IF Y>=2 AND 2322 THEN 300 
65 PRINT TAB(10);"SERVICE LET... UNE BALLE." Z1u 1F Ysà OR Z=4 TNEN S$="JEU": GOTO 400 
66 GOTO 55 








220 IF Y=0 THEN Y$="ZERO - " 
67 G=5 230 IF Y=1 
68 H=76 240 IF Y=2 
69 GOTO 61 245 IF Y=3 
70 1=100 * RND(1) 250 IF Z=0 
71 IF 126 THEN 74 255 IF Z=1 
72 PRINT TAB(10);LE SERVICE EST BON...ACEI 11" 260 IF Z2=2 
73 GOTU 128 265 IF Z=3 THEN Z$="40" 
74 K=1O0*RND (1) 270 S$=Y$+Z$:GUTU 400 
75 1F A$="L" THEN 81 3UU IF Y=Z 1HEN S$="EGALIIE":GUIU 4UU 
76 1F B$="L" THEN 81 310 IF Y=Z+1 THEN S$="AVANTAGE DEDANS ": GUTO 400 
77 N=61 320 IF Y=Z-1 THEN S$="AVANTAGE DEHORS": GUTU 400 
78 IF K<N THEN 85 330 IF Y=Z+2 UR Z=Y+2 THEN S$="JEU" 
79 PRINT TAB(10);"LE SERVICE EST BON...JE NE PEUX LE RETOURNER! !" 400 RETURN 
80 GOTO 128 500 END 
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Ticker tape 
(Télé-imprimeur) 





5 PRINT CHR$ (26) ; TAB (24) ; "TAPETICKER"" 

6 PRINT TAB (24) ; "CREATIVE COMPUTING" 

7 PRINT TAB(18) ;"MORRISTOWN, NEW JERSEY" 

9 PRINT:PRINT:PRINT 

18 INPUT A$S:GOSUB 80 

28 FOR N=1 TO LEN(A$) 

25 B=ASC(MIDS(AS$,N,1)) 

30 IF B>99 THEN 47 

33 IF B<65 THEN 40 

35 B=B-64 

37 GOTO 50 

49 IF B»>57 OR B<48 THEN 47 

43 B=B-29 

45 GOTO 58 

47 B=27 

52 FOR S=Q TO (B-1)*5:READ A:NEXT S 

60 FOR S=1 TO 5:READ A:PRINT CHRS (A) ;:NEXT S 

65 PRINT CHR$ (D) ; :RESTORE 

78 NEXT N 

75 GOSUB 89:END 

80 FOR N=1 TO 30:PRINT CHR$ (ÿ) ;:NEXT N 

90 RETURN 

119 DATA U,254,9,9,9,254,255,137,137,137,118,126,129,129,129,129 
129 DATA 255,129,129,129,126,255,137,137,137,137,255,9,9,9,1 

139 DATA 126,129,129,145,243,255,8,8,8,255,129,129,255,129,129 
149 DATA 96,128,129,127,1,255,8,20,34,193,255,128,128,128,128 
158 DATA 255,2,12,2,255,255,2,60,64,255,126,129,129,129,126 

168 DATA 255,9,9,9,6,126,129,161,65,190 

170 DATA 255,25,41,73,134,134,137,137,137,113,1,1,255,1,1 

189 DATA 127,128,128,128,127,63,96,192,96,63,127,128,112,128,127 
215 DATA 195,36,24,36,195,3,4,248,4,3,193,161,145,137,135 

226 DATA 8,0,0,0,0,126,161,137,133,126,132,130,255,128,128,194,161,145 
230 DATA 137,134,66,137,137,137,118,12,19,137,255,136,199,137,137,137 
249 DATA 248,126,137,137,137,114,1,1,249,5,2,118,137,137,137,118 
258 DATA 70,137,137,137,126 





Ce programme entre une ligne de 
caractères provenant d'un Télétype, et 
dessine sur papier la forme de chaque 
lettre à l’aide de poinçons. Il manipule 
toutes les lettres, les nombres, et le 
« blanc ». Mais vous pouvez le modifier 
pour qu'il puisse manipuler des symboles 
divers. 

Le déroulement de ce programme ne 
présente aucune difficulté. Une fois tous 
les caractères convertis en un nombre 
équivalent à leur place dans l'alphabet, 
(A=1, B=2, Z=26, blanc=27), un simple 
tableau est exécuté pour trouver le 
nombre à enregistrer. Ces nombres sont 
stockés dans les énoncés DATA. 

Le programme original a été conçu pour 
PDP:-8, ici on utilise le Basic Microsoft. 
Cependant, vous pouvez sans difficulté 
modifier le programme pour n'importe 
quel ordinateur utilisant le Basic. 

Ecrit par Bill Gardner et Jim Larus, ce 
programme parut pour la première fois 
dans Creative Computing, mai-juin 1977. 








TV Plot (Télé-intrigues) 





Ce programme imagine des intrigues 
pour des émissions et des séries télé- 
visées, conçues pour attirer les masses et 
établir ainsi un record d'écoute. En substi- 
tuant les mots adéquats dans les diffé- 
rentes parties du programme, vous 
pouvez facilement le modifier pour l’uti- 
liser à des fins tout aussi utiles, telles que 
la recherche de noms pour de nouvelles 
céréales pour petit déjeuner, la prépara- 
tion d’une thèse de doctorat, ou la dénomi- 


nation d'agences gouvernementales et de Li 
leurs projets correspondants. A) 
Ce programme, écrit à l'origine en 20 PRINT TAB(20);"CREATIVE COMPUTING" 
FOCAL par Mary Cole, a été converti en TE NU 
BASIC par David Ahl. 55 PRINT “CE PROGRAMME CREF AUTOMATIQUEMENT DES PROGRAMMES DE TV" 
60 PRINT "QUI,C'EST GARANTI,CHARMERONT LES MASSES ET ATTEINDRONT" 





70 PRINT "DE HAUTES INDICES D'ECOUTE.":PRINT 
80 PRINT “VOICI LA PREMIERE INTRIGUE: 
100 PRINT:GOSUB 800 

110 ON X GOTO 120,130,140,150,160,120,130,140,150,160 
120 A$="CE PROGRAMME":GOTO 170 

130 A$="CE REPORTAGE OTO 170 

140 AS$S="CETTE EDITION SPECIALE":GOTO 170 

150 A$="CE FEUILLETON":GOTO 170 

160 A$="CE FILM" 

170 GOSUB 800 

180 ON X GOTO 190,200,210,220,230,240,250,260,270,280 





RUN 190 B$="D'UN FERMIER":GOTO 290 
200 B$="D'UN PETIT-GARCON":GOTO 290 
INTRIGUE-TV 210 B$="D'UN SCIENTIFIQUE":GOTO 290 
CREATIVE COMPUTING 220 B$="D'UN AVOCAT":GOTO 290 
MORRISTOWN, NEW JERSEY 230 B$="D'UN MAIRE":GOTO 290 


240 B$="D'UN DENTISTE":GOTO 290 
250 B$="D'UN CONDUCTEUR DE BUS":GOTO 290 
260 B$="D'UN HOMME DE LA JUNGLE":GOTO 290 





CE PROGRAMME CREE AUTOMATIQUEMENT DES PROGRAMMES DE TV 270 B$S="D'UN AGENT SECRET":GOTO 290 
QUI,C'EST GARANTI ,CHARMERONT LES MASSES ET ATTEINDRONT 280 B$="D'UN ECOSSAIS" 
DE HAUTES INDICES D'ECOUTE. 290 GOSUB 800 
300 ON X GOTO 310,320,330,340,350,360,370,380,390,400 
VOICI LA PREMIERE INTRIGUE: 310 C$="SPORTIF":GOTO 410 
320 C$="BRILLANT 
DANS CETTE EDITION SPECIALE IL EST QUESTION D'UN AVOCAT HILARE QUI EST 330 CS="SPONTANE 
UN FANATIQUE DE 340 C$="HILARE":GOTO 410 





LA RESOLUTION D'ENIGMES ET QUI ARRETE LES TRAINS. 350 C$="GAGA":GOTO 410 
360 C$="CULOTTE":GOTO 410 
370 C$="CONSACRE":GOTO 410 
UN AUTRE (OUI OU NON)? OUI 380 C$="SENSITIF":GOTO 410 
MEDITATIF"“:GOTO 410 
DANS CE FILM IL EST QUESTION D'UN AVOCAT PETILLANT QUI EST UN SPECIALISTE DE 400 C$="PETILLANT" 
LA PYROMANIE ET QUI DECOUVRE DES BIJOUX. 410 GOSUB 800 
420 ON X GOTO 430,440,450,460,470,430,440,450,460,470 
430 D$="UN FANATIQUE":GOTO 480 












UN AUTRE (OUI OU NON)? OUI 440 D$="UN OBSEDE":GOTO 480 

450 D$="UN CHAMPION":GOTO 440 
DANS CE FILM IL EST QUESTION D'UN FERMIER PETILLANT QUI EST UN FANATIQUE DE 460 D$="UN ADEPTES":GOTO 440 
LA TRAITE DES VACHES ET QUI DECOUVRE LE SECRET. 470 D$="UN SPECIALISTE" 


480 GOSUB 800 
490 ON X GOTO 500,510,520,530,540,550,560,570,580,590 
UN AUTRE (OUI OU NON)? OUI 500 E$="LA RESOLUTION D'ENIGMES":GOTO 600 
510 E$="LA CHASSE AUX ELEPHANTS":GOTO 600 
DANS CE PROGRAMME IL EST QUESTION D'UN AGENT SECRET PETILLANT QUI EST UN OBSEDE 520 ES="LA CUISINE AU BEURRE":GOTO 600 
DE 530 E$="LA PECHE AU THON":GOTO 600 
LA TRAITE DES VACHES ET QUI CONFESSE SES FAUTES. 540 E$="L'ECOLOGIE":GOTO 600 
550 E$="LA PROTECTION DE L'ENFANT":GOTO 600 
560 E$="LA PRODUCTION VINICOLE":GOTO 600 
UN AUTRE (OUI OU NON)? OUI 570 E$="LA PYROMANIE":GOTO 600 
580 E$="LA TRAITE DES VACHES":GOTO 600 
DANS CE PROGRAMME IL EST QUESTION D'UN MAIRE MEDITATIF QUI EST UN FANATIQUE DE 590 ES$="LA COURSE À PIED":GOTO 600 
LA PRODUCTION VINICOLE ET QUI ARRETE LES TRAINS. 600 GOSUB 800 
610 ON X GOTO 620,630,640,650,660,670,680,690,700,710 
620 ©$="DECOUVRE DES BIJOUX":GOTO 720 


UN AUTRE (OUI OU NON)? OUI 630 F$="MEURT À LA FIN":GOTO 720 
640 F$="SE RECONVERTIT DANS L'EPICERIE":GOTO 720 
DANS CETTE EDITION SPECIALE IL EST QUESTION D'UN HOMME DE LA JUNGLE BRILLANT 650 F#= ""TROUVE L'AMOUR" :GOTO 720 
QUI EST UN OBSEDE DE 660 F#= "SAUVE LES ANIMAUX" :GOTO 720 
LA CUISINE AU BEURRE ET QUI DETRUIT LA VILLE. 670 F#="CONFFSSF SES FAUTES":GOTO 720 


680 F$="DECOUVRE LE SECRET":GOTO 720 





690 F$="ARRETE LES TRAIN GOTO 720 
UN AUTRE (OUI OU NON)? OUI 700 F$="DETRUIT LA VILLE":GOTO 720 

710 F$="SE SACRIFIE" 
DANS CE FEUILLETON IL EST QUESTION D'UN DENTISTE HILARE QUI EST UN FANATIQUE DE 720 PRINT "DANS ":;A$:" IL EST QUESTION ":;BS$S:" ";C$:" QUI EST ";D$:" DE" 
LA TRAITE DES VACHES ET QUI ARRETE LES TRAINS. 730 PRINT ES$;" ET QUI ";F$".":PRINT:PRINT 


740 INPUT “UN AUTRE (OUI OU NON)";AS$ 
750 IF LEFT$(A$,1)="N" THEN 999 


UN AUTRE (OUI OU NON)? NON 760 GOTO 100 

800 X=INT(1O#*RND(1)+1) : RETURN 
O.K. J'ESPERE QUE VOUS QUEZ PASSE UN BON MOMENTII 999 PRINT:PRINT "O.K. J'ESPERE QUE VOUS QVEZ PASSE UN BON MOMENTI |": END 
Ok Ok 
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Twonky 





L'ordinateur bâtit un champ de jeu carré de 15 carreaux de 
côté dans lequel on vous dépose au hasard. De même à 
l'intérieur du carré se trouvent 1 carreau servant d'objectif, 
80 carreaux interdits (murs), 22 carreaux de relocalisation, 1 
carreau super-spécial et bien sûr, le Twonky (qui n’a rien à 
voir avec un gâteau plein de crème). 

Pour gagner, vous devez atteindre le carreau objectif, avant 
que Twonky ne vous attrape, en bougeant d’un carreau à la 
fois, en avant ou en arrière, à gauche ou à droite. 
Malheureusement, vous êtes retardé par un certain nombre 
de choses : 

RELOCALISATION : lorsque vous allez sur un de ces 
carreaux, vous êtes télétransporté n'importe où dans le 
labyrinthe. 

MURS : vous ne pouvez pas aller sur un de ces carreaux et 
perdez un tour lorsque vous en cognez un. 

SUPER-CARREAU DU LABYRINTHE : en fait une perte 
instantanée, car dès que vous le chevauchez, un labyrinthe 
totalement nouveau est installé. 

TWONKY : après chacun de vos coups, le Twonky bouge 
vers vous. (Il n’est pas gêné par les pièges ni les murs.) 
Lorsqu'il arrive trop près de vous (2 carreaux où moins) vous 
avez perdu. Mais vous êtes armé d’un désintégrateur. Vous 
avez la possibilité de l'employer mais vous ne pouvez pas 
bouger durant le même tour. Si vous touchez le Twonky, il se 
dématérialise et se rematérialise sur un autre carreau du 
labyrinthe pour recommencer sa recherche après vous. 
(ATTENTION : il peut être déposé là où vous êtes.) 

Après chaque mouvement de vous deux, (vous et le 
Twonky), la distance vous séparant est imprimée et celle vous 
séparant de l'objectif aussi. Il n'y a pas de tableau imprimé, 
vous jouez en aveugle. De toute façon, en utilisant les 
distances, vous pouvez approcher les positions du Twonky et 
celles de l'objectif. 

Vous ne pouvez tirer sur le Twonky que si la distance vous 
séparant est un nombre entier. Par exemple, si le Twonky se 
trouve à une distance de 2,23606 unités, vous n'avez pas de 
tir direct. S'il se trouve à 4 unités, vous avez un tir. Les 
exceptions à cette règle sont les distances 5, 10, 13 et 17 
(regardez le Théorème de Pythagore pour plus d'explica- 
tions). Donc si la distance est 5, 10 ou 13 (mais pas 17) vous 
pouvez où non avoir un tir direct. De même cet ensemble de 
règles est valable pour l'objectif. 

Si vous observez les distances avant et après chaque coup, 
vous pourrez dire où se trouve le Twonky par rapport à vous, 
soit devant à droite ou en arrière à gauche. Prenez la distance 
vous séparant du Twonky, prenez son carré, soit approximati- 
vement, 2,23606 * 2,23606 = 4,999998 = 5, puis trouvez 
deux entiers dont la somme des carrés soit la même (2 et 1). 
Si le Twonky est devant à droite, vous saurez qu'il est 2 en 
haut et 1 devant ou l'inverse. 

Ce qui rend le jeu de Twonky unique est le fait qu'il peut 
être joué à deux niveaux différents, un pour l'amusement, en 
bougeant au hasard, ou alors vous pouvez jouer en calculant 
les positions exactes, en calculant les coups en avance pour 
un jeu de compétition (tout aussi amusant). 

Twonky a été écrit par Mark Capella et est paru pour la 
première fois dans Creative Computing, mai-juin 1977. 
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RUN 


TWONKY 
CREATIVE COMPUTING 
MORRISTOWN NEW JERSEY 


VOULEZ-VOUS LES INSTRUCTIONS (O/N)? OUI 
CECI EST LE JEU DU TWONKY. 


VOUS AVEZ ATTERI SUR LA PLANETE DE TWINKY ET SON 

ROI (KING:LEUR ROI S'APPELLE KING) VOUS A 

CAPTURE.IL VOUS À MIS DANS UN LABYRINTHE DE 15 
CARREAUX DE COTE.VOUS ETES DANS LE NOIR ET N'Y VOYEZ 
RIEN...VOUS DEVEZ ATTEINDRE L'OBJECTIF ET SEREZ LIBERE 
DANS CE CAS. 


LE HASARD INTRODUIT: 

DES CARREAUX SUR LESQUELS VOUS NE POUVEZ ALLER (30). 

DES CARREAUX QUI VOUS TRANSPORTENT N'IMPORTE OÙ (22). 

UN CARREAU QUI RECONSTRUIT TOUT (1) 

UN MONSTRE APPELE TWONKY QUI VOUS CHASSE ET QUI VOUS 
AVALERA SI LA DISTANCE VOUS SEPARANT DESCEND EN DESSOUS 
DE DEUX UNITES. 


LE TWONKY N'EST,EN PLUS,PAS GENE PAR LES PIEGES ET MURS. 


RENTRER ‘RETURN' POUR CONTINUER. 
VOUS POUVEZ: 


BOUGER D'UN CARREAU À LA FOIS POUR TROUVER L'OBJECTIF 
OU POUR ECHAPPER AU TWONKY. 


TIRER SUR LE TWONKY DANS UNE DIRECTION À LA FOIS. 
SI VOUS LE TOUCHEZ,1IL SERA REPLACE SUR LE 
LABYRINTHE AU HASARD. 

SI LE TWONKY VOUS AVALE ...VOUS AVEZ PERDU. 

SI VOUS ATTEIGNER LE CARREAU OBJECTIF VOUS AVEZ GAGNE. 


BONNE CHANCEI 


LE TWONKY SE TROUVE A 
L'OBJECTIF EST A 


11.1803 UNITES. 
5 UNITES. 


MOUVEMENT OÙ TIR (M/T)? M 
DE QUEL COTE (AV:V/AR:R/D/G)? V 
MOUVEMENT POSSIBLE. 


LE TWONKY SE TROUVE A 10.7703 UNITES. 
L'OBJECTIF EST À 5.65686 UNITES. 


LE TWONKY BOUGE... 


TE TWONKY SE TROUVE A 
L'OBJECTIF EST À 


9.84886 UNITES. 
5.65686 UNITES. 


MOUVEMENT OÙ TIR (M/T)? M 
DE QUEL COTE (AV:V/AR:R/D/G)? R 
MOUVEMENT POSSIBLE. 


LE TWONKY SE TROUVE A 
L'OBJECTIF EST A 


10.2956 UNITES. 
5 UNITES. 


LE TWONKY BOUGE... 


LE TWONKY SE TROUVE A 
L'OBJECTIF EST A 


9.43398 UNITES. 
5 UNITES. 


MOUVEMENT OU TIR (M/T)? M 
DE QUEL COTE (AV:V/AR:R/D/G)? V 
MOUVEMENT POSSIBLE. 


LE TWONKY SE TROUVE A 8.94427 UNITES. 
L'OBJECTIF EST À 5.65686 UNITES. 


LE TWONKY BOUGE... 


LE TWONKY SE TROUVE A 
L'OBJECTIF EST A 


8.06226 UNITES. 
5.65686 UNITES. 


MOUVEMENT OU TIR (M/T)? M 
DE QUEL COTE (AV:V/AR:R/D/G)? R 
MOUVEMENT POSSIBLE. 


LE TWONKY SE TROUVE A 8.60233 UNITES. 
L'OBJECTIF EST À 5 UNITES. 


LE TWONKY BOUGE... LE TWONKY SE TROUVE À 3 UNITES. 
L'OBJECTIF EST À 3 UNITES. 

LE TWONKY SE TROUVE À  7.81025 UNITES. 

L'OBJECTIF EST À 5 UNITES. 
MOUVEMENT OU TIR (M/T)? M 
DE QUEL COTE (AV:V/AR:R/D/G)? G 


MOUVEMENT OÙ TIR (M/T)? M CE CARREAU EST BLOQUE. 
DE QUEL COTE (AV:V/AR:R/D/G)? R 
MOUVEMENT POSSIBLE. LE TWONKY SE TROUVE A 3 UNITES. 


L'OBJECTIF EST À 3 UNITES. 
LE TWONKY SE TROUVE A 8.48528 UNITES. 
L'OBJECTIF EST À 4.47214 UNITES. LE TWONKY BOUGE... 


LE TWONKY BOUGE... LE TWONKY SE TROUVE À 2 UNITES. 
L'OBJECTIF EST À 3 UNITES. 
LE TWONKY SE TROUVE À  7.81025 UNITES. 
47214 UNITES. 
MOUVEMENT OÙ TIR (M/T)? M 
DE QUEL COTE (AV:V/AR:R/D/G)? V 


(M/T)? M CE CARREAU EST BLOQUE. 
DE QUEL COTE (AV:V/AR:R/D/G)? R 
MOUVEMENT POSSIBLE. LE TWONKY SE TROUVE À 2 UNITES. 


L'OBJECTIF EST À 3 UNITES. 
LE TWONKY SE TROUVE A 8.60233 UNITES. 
L'OBJECTIF EST À 4.12311 UNITES. LE TWONKY BOUGE... 


LE TWONKY BOUGE... LE TWONKY SE TROUVE A 1 UNITES. 
L'OBJECTIF EST À 3 UNITES. 

LE TWONKY SE TROUVE A 8.06226 UNITES. 

L'OBJECTIF EST À 4.12311 UNITES. 
> > > SCHLOORP III < < «< 
LE TWONKY VOUS A AVALE II VOUS AVEZ PERDU. 


MOUVEMENT OU TIR (M/T)? T 

DE QUEL COTE (AV/AR/G/D)? V VOULEZ-VOUS REESSAYER (O/N)? N 
ok 

MOUVEMENT OÙ TIR (M/T)? M 

DE QUEL COTE (AV:V/AR:R/D/G)? R 

MOUVEMENT POSSIBLE. 


LE TWONKY SE TROUVE À 8.94427 UNITES. 
L'OBJECTIF EST À 4 UNITES. 
5 PRINT CHR$(26) 


LE TWONKY BOUGE... 10 PRINT TAB(24);"TWONKY" 
20 PRINT TAB(18);"CREATIVE COMPUT ING" 
LE TWONKY SE TROUVE À 8.544 30 PRINT TAB(16);"MORRISTOWN NEW JERSEY" 
40 PRINT:PRINT 
(M/T)7 M 140 GOSUB 2250 
DE QUEL COTE (AV:V/AR:R/D/G)? D 150 DIM A(15,15) 
MOUVEMENT POSSIBLE. 160 LET R9=0 
170 GUSUB 1830 
LE TWONKY SE TROUVE A 8.24621 UNITES. 180 PRINT "ss “ 
L'OBJECTIF EST À 5, UNITES. 190 PRINT 
200 GOSUB 1450 
LE TWONKY BOUGE... 210 PRINT 
220 PRINT "MOUVEMENT OU TIR (M/T)"; 
LE TWONKY SE TROUVE À  7.07107 UNITES. 230 INPUT Q8$ 
L'OBJECTIF EST À 3 UNITES. 240 IF LEF1$(Q8$,1)="M" THEN 270 
250 IF LEFT$(Q8$,1)="T" THEN 950 
LE TWONKY BOUGE... 260 GOTO 210 
270 PRINT "DE QUEL COTE (AV/AR/D/G)"; 
LE TWONKY SE TROUVE À 7 UNITES. 280 INPUT Q$ 
L'OBJECTIF EST À 3 UNITES. 290 IF LEFT$(Q$,1)="AV" THEN 340 


Ce 


300 IF LEFT$(Q$,1)="AR" THEN 370 








310 IF LEFI$(Q$,1)="G" THEN 400 

MOUVEMENT OÙ TIR (M/T)? M 320 IF LEFI$(Q$,1)="D" THEN 430 
DE QUEL COTE (AV:V/AR:R/D/G)? G 330 GUTO 210 
CE CARREAU EST BLOQUE. 340 LET X5=X 

350 LET Y5=Y-1 
LE TWONKY SE TROUVE À 7 UNITES. 360 GOTO 460 
L'OBJECTIF EST À 3 UNITES. 370 LET X92=X 

380 LET Y5=Y+1 
LE TWONKY BOUGE... 390 GOTO 460 

400 LET XS=X-1 
LE TWONKY SE TROUVE À 6 UNITES. 410 LET Y5=Y 
L'OBJECTIF EST À 3 UNITES. 420 GOTO 460 

430 LET X5=X+1 

440 LET Y5=Y 
MOUVEMENT OU TIR (M/T)? M 450 GOTO 460 
DE QUEL COTE (AV:V/AR:R/D/G)? R 460 IF X5<1 THEN S1U 
MOUVEMENT POSSIBLE. 470 IF X5215 THEN 510 

480 IF YS<1 THEN 510 
LE TWONKY SE TROUVE À 7 UNITES. 490 IF Y5>15 THEN 510 
L'OBJECTIF EST À 3.16228 UNITES. 500 GOTO 540 

S1U PRINT "CE MOUVEMENT VOUS FAIT SOUKTIR DU LABYRINTHE ." 
LE TWONKY BOUGE... 520 PRINT "HUUVEMENT INTERDIT." 

530 GOTO 1430 
LE TWONKY SE TROUVE À 6 UNITES. 540 ON (A(XS,Y5)+1) GOTO 55U,620,630,660, 760, 800,920 
L'OBJECTIF EST À 3.16228 UNITES. 550 REM *** ESPACE VIDE 


560 LET A(X,Y)=0 
570 LET A(X5,Y5)=1 


MOUVEMENT OU TIR (M/T)? M 580 LET X=X5 
DE QUEL COTE (AV:V/AR:R/D/G)? V 590 LET Y=Y5 
MOUVEMENT POSSIBLE. 600 PRINT "MOUVEMENT POSSIBLE ." 
610 GOTO 1430 
LE TWONKY SE TROUVE À 5 UNITES. 620 REM #*** IL EST IMPOSSIBLE D'ALLER LA. 
L'OBJECTIF EST À 3 UNITES. 630 REM *** SUUS-PROGRAMME DES CARREAUX BLOQUES 
640 PRINT "CE CARREAU EST BLOQUE ." 
LE TWONKY BOUGE... 650 GOTO 1430 
660 REM *** SOUS-PROGRAMME DE RELOCALISATIUN. 
LE TWONKY SE TROUVE À 4 UNITES. 670 PRINT "VOUS AVEZ ETE RELOCALISE NI! 
L'OBJECTIF EST À 3 UNITES. 680 GOSUB 2710 


690 IF A(Z,W)>2 THEN 540 
700 IF A(Z,W) <> O THEN 680 


MOUVEMENT OÙ TIR (M/T)? T 710 LET A(Z,W)=1 
DE QUEL COTE (AV/AR/G/D)? D 720 LET A(X,Y)=0 
ZA P --Z À P --2 À P --Z À P --BLAMI!II 730 LET X2Z 
VOUS AVEZ TOUCHE UN MUR. 740 LET Y=W 
TIR RATE. 750 GOTO 1430 
760 REM #*** CHANGEMENT COMPLET,CARREAU SUPER SPECIAL. 
LE TWONKY SE TROUVE À 4 UNITES. 770 PRINT “ VOUS AVEZ ATTEINT LE CARREAU SUPER-SPECIAL!! LE LABYRINTHE" 
L'OBJECTIF EST À 3 UNITES. 772 PRINT " EST TOTALEMENT RECONSTRUIT." 
780 GOSUB 1830 
LE TWONKY BOUGE... 790 GOTO 1430 
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800 REM *** IL A GAGNE! 1770 GOSUB 1450 












810 PRINT 1780 IF D >= 2 THEN 210 

820 PRINT "JE N'ARRIVE PAS À Y CROIRE MAIS VOUS AVEZ GAGNE !!" 1790 PRINT 

830 PRINT "VOUS AVEZ ATTEINT L'OBJECTIF AVANT" 1800 PRINT "> > > SCHLOORP LI1 < < <" 

840 PRINT " QUE LE TWONKY NE VOUS ATTRAPE 11" 1810 PRINT "LE TWONKY VOUS A AVALE !! VOUS AVEZ PERDU." 

850 PRINT 1820 GOT 850 

860 PRINT 1830 REM *** ETABLISSEMENT D'UN NOUVEAU LABYRINTHE 

870 PRINT "VOULEZ-VOUS REESSAYER (0/N)"; 184G REM #*** 1=JOUEUR, 2=2CARREAUX INTERDITS 

880 INPUT Q$ 1850 REM #*#*#* 32RELOCALISATIONS, 4=CARREAU SUPER-SPECIAL 

890 IF LEFT$(Q$,1 THEN 160 1860 REM BJECTIF, 6=IWONKY 

900 IF LEFT$(Q$,1)="N" THEN 2750 1870 REM *#** O=CARREAUX LIBRES 

910 GOTO 870 1880 REM *** REMISE A ZERO DU LABYRINTHE 

920 REM *** IL EST ALLE SUR LE TWONKY! 1883 FOR BO=1 T0 15 

930 PRINT "VOUS AVEZ ETE DROIT SUR LE TWONKY!" 1885 FOR B1=1 T0 15 

940 GOTO 1790 1890 LET A(BU,81)=0 

950 REM *** SOUS-PROGRAMME DE TIR 1893 NEXT B1 

960 PRINT "DE QUEL CUTE (AV/AR/G/D)"; 1895 NEXT BU 

970 INPUT Q$ 1910 FOR I=1 TO 30 

980 IF LEFT$(Q$,1)="AV" THEN 1030 1920 GOSUB 2710 

99 IF LEFT$(Q$,1)="AR" THEN 1060 1930 IF A(Z,W) <©> O THEN 1920 

1000 IF LEFT$(Q$,1)="D" THEN 1120 1940 LET A(Z,W)=2 

1010 IF LEFT$(Q$,1)="G" THEN 1U90 1950 NEXT I 

1020 GOTO 210 1960 REM **#* PLACEMENT DES RELOCALISATIONS 

1030 LET S1=0 1970 FOR I=1 T0 22 

1040 LET S2=-1 1980 GOSUB 2710 

1050 GOTO 1140 1990 IF A(Z,W) © O THEN 1980 

1U6U LET 51=0 2000 LET A(Z,W)=3 

1070 LET S2=1 2010 NEXT 1 

1080 GOTO 1140 2020 REM #** PLACEMENT DU CARREAU SUPER-SPECIAL 

1090 LET Sl=-1 2030 GUSUB 2710 

1100 LET 52=0 2040 IF A(Z,W) <> O THEN 2U30 

1110 GOTO 1140 2050 LET A(Z,W)=4 

1120 LET S1=1 2060 REM *** PLACEMENT DU JUUEUR 

1130 LET 52=0 2070 GOSUB 2710 

1140 LET R1=X 2080 IF A(Z,W) <> O THEN 2070 

1150 LET R2=Y 2090 LET A(Z,W)=1 

1160 LET R1=R1+51 2100 LET X2Z 

1170 LET R2=R2+52 2110 LET Y=W 

1180 PRINT "Z A P --"; 2120 REM *#** PLACEMENT DE L' OBJECTIF 

1190 IF R1 < 1 THEN 1240 2130 GOSUB 2710 

1200 IF R1 > 15 THEN 1240 2140 IF A(Z,W) © O THEN 2130 

1210 IF R2 € 1 THEN 1240 2150 LET A(Z,W)=5 

1220 IF R2 > 15 THEN 124Ù 2160 LET X2=2 

1230 GOTO 1280 2170 LET Y2=W 

1240 PRINT "TIUWW..." 2180 REM #*#** PLACEMENT DU TWONKY 

1250 PRINT "LE TIR A RATE LE LABYRINTHE." 2190 GOSUB 2710 

1260 PRINT "TIR RATE." 2200 IF A(Z,W) © O THEN 2190 

1270 GOTO 1430 2210 LET A(Z,W)=6 

1280 IF A(RI,R2) ©2 THEN 1330 2220 LET X1=7 

1290 PRINT "BLAMILI I" 2230 LET Y1=W 

1300 PRINT "VOUS AVEZ TOUCHE UN MUR." 2240 RETURN 

1310 PRINT "TIR RATE." 2250 REM 

1320 GOTO 1430 2310 PRINT "VOULEZ-VOUS LES INSTRUCTIONS (O/N)"; 

1330 IF A(RI,R2) © 6 THEN 1160 2320 INPUT Q$ 

1340 PRINT "OUCHI!" 2330 IF LEFT$(Q$,1)="N" THEN 2700 

1350 PRINT "LE TWONKY SE RETIRE." 2340 IF LEFI$(Q$,1) © "O" THEN 2310 

1360 LET A (R1,R2)=R9 2350 PRINT CHR$(26) 

1370 GOSUB 2710 2380 PRINT "CECI EST LE JEU DU TWONKY." 

1380 IF A(Z,W) <> O THEN 1370 2385 PRINT 

1390 LET A(Z,W)=6 2410 PRINT "VOUS AVEZ ATTERRISUR LA PLANETE DE TWINKY ET SON " 
1410 LET X1=Z 2420 PRINT "ROI (KING:LEUR ROI S'APPELLE KING) VOUS A " 

1420 LET YI=W 2430 PRINT "CAPTURE.IL VOUS A MIS DANS UN LABYRINTHE DE 15 " 
1430 GOSUB 1450 2440 PRINT "CARREAUX DE COTE.VOUS ETES DANS LE NOIR ET N'Y VOYEZ " 
1440 GOTO 1570 2450 PRINT MRIEN...VOUS DEVEZ ATTEINURE L'OBJECTIF ET SEREZ LIBERE" 
1450 REM **#* IMPRIMER LES DISTANCES TWONKY ET OBJECTIF 2460 PRINT "DANS CE CAS." 

1455 PRINT 2470 PRINT 

1460 PRINT "LE TWONKY SE TROUVE À "; 2480 PRINT " LE HASARD INTRODUIT:":PRINT 

1470 D=(SQR(ABS((X1-X)"2#(Y1-Y)°2))) 2490 PRINT "DES CARREAUX SUR LESQUELS VOUS NE POUVEZ ALLER (30)." 
1490 PRINT D; 2500 PRINT "DES CARREAUX QUI VOUS TRANSPORTENT N'IMPORTE OU (22)." 
1500 PRINT "UNITES." 2510 PRINT "UN CARREAU QUI RECONSTRUIT TOUT (1)" 

1510 PRINT "L'OBJECTIF EST À "; 2520 PRINT "UN MONSTRE APPELE TWONKY QUI VOUS CHASSE ET QUI VOUS" 
1520 D1=(SUR(ABS(X2-X)°2+(Y2-Y)°2)) 2530 PRINT "  AVALERA SI LA DISTANCE VOUS SEPARANT DESCEND EN DESSOUS" 
1530 PRINT DI; 2540 PRINT " DE DEUX UNITES." 

1540 PRINT "UNITES." 2550 PRINT:PRINT " LE TWONKY N'EST,EN PLUS,PAS GENE PAR LES PIEGES ET MURS." 
1550 PRINT 2570 PRINT:PRINT 

1560 RETURN 2580 LINE INPUT "RENTRER 'RETURN' POUR CONTINUER. ";XXS$:PRINT CHR$(26) 
1570 REM **#* LA LOGIQUE DU TWONKY 2590 PRINT "VOUS POUVEZ:":PRINT 

1580 IF D<2 THEN 1790 2600 PRINT "BOUGER D'UN CARREAU A LA FOIS POUR TROUVER L'OBJECTIF" 
1590 LET Z2=Y1 2610 PRINT “ OU POUR ECHAPPER AU TWONKY." 

1600 LET Z1z=X1 2615 PRINT 

1610 IF X < X1 THEN 1680 2620 PRINT "TIRER SUR LE TWONKY DANS UNE DIRECTION À LA FOIS." 
1620 IF X > X1 THEN 1700 2630 PRINT " SI VOUS LE TOUCHEZ,IL SERA REPLACE SUR LE " 

1630 IF Y < Y1 THEN 1660 2640 PRINT "  LABYRINTHE AU HASARD." 

1640 LET Z2=Y1+1 2645 PRINT 

1650 GOTO 1710 2650 PRINT "SI LE TWONKY VOUS AVALE ...VOUS AVEZ PERDU." 

1660 LET Z2=Y1-1 2655 PRINT 

1670 GOTO 1710 2660 PRINT "SI VOUS ATTEIGNEZ LE CARREAU OBJECTIF VOUS AVEZ GAGNE." 
1680 LET Z1=X1-1 2670 PRINT 

1690 GOTO 1710 2680 PRINT "BONNE CHANCE !" 

1700 LET Z1=X1+1 2690 PRINT 

1710 LET A(X1,Y1)=R9 2700 RETURN 

1720 LET R9=A(Z1,22) 2710 REM *#** SOUS-PROGRAMME PERMETTANT L'OBTENTION DE 2 NOMBRES AU HASARD 
1730 LET A(Z1,22)=6 2720 LET Z=INT(RND(1)*15+1) | 

1740 LET X1=71 2730 LET W=INT(RND(1)#15+1) 

1750 LET Y1=22 2740 RETURN 

1760 PRINT "LE TWONKY BOUGE..." 2750 END 
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Two-to-Ten (2 à 10) 





« 2 à 10 » est un jeu de hasard qui ne 
nécessite qu’une partie d’un jeu de cartes, 
celles comprises entre 2 et 10. Ce jeu 
ressemble au Blackjack en ce sens que 
vous tirez des cartes au hasard en 
essayant que le total de vos points se 
rapproche le plus possible, sans toutefois 
l'atteindre, d’un nombre déterminé arbi- 
trairement avant le début du jeu. Vous 
devez y arriver en un nombre limité de 
coups par « votre carte de chance ». Ce 
qui fait l'intérêt du jeu est que vous ne 
connaissez le nombre à atteindre qu'à 
15 % près. 

Pouvez-vous imaginer un moyen de 
rendre «2 à 10» plus passionnant ? 
Peut-être en jouant contre l'ordinateur ? 

« 2 à 10 » fut publié dans le numéro de 
nov.-déc. 1976 de Creative Computing. 


DEUX A DIX 
CREATIVE COMPUTING MORRISTOWN NEW JERSEY 


BIENVENUE AU JEU DU DEUX A DIX. CE NOM VIENT DU 'JEU' SPECIAL 
UTILISE. IL N'Y À PAS DE FIGURES - SEULEMENT LES CARTES DE 
2-10. CE JEU EST FACILE ET AMUSANT À JOUER SI VOUS 

COMPRENEZ CE QUE VOUS FAITES, DONC LISEZ LES INSTRUCTIONS 
ATTENTIVEMENT. 


AU DEBUT DU JEU,VOUS PARIEZ SUR VOTRE VICTOIRE. TAPEZ N' 
IMPORTE QUEL NOMBRE ENTRE O ET 200. PUIS JE TIRE UN NOMBRE 


AU HASARD QUE VOUS DEVEZ EGALER PAR LA SOMME TOTALE DES CARTES CHOISIES. 


DU FAIT DE LA CHANCE INFIME QUE VOUS AVEZ D'OBTENIR CE NOMBRE 
EXACTEMENT,ON VOUS DONNE UNE CARTE DE TOLERANCE. LE BUT DU 
JEU EST D'OBTENIR UN TOTAL DES CARTES LE PLUS PROCHE DU NOMBRE 
MYSTERIEUX,ET SANS ALLER AU DELA. 


ON VOUS DONNE UNE INDICATION DE LA VALEUR DU NOMBRE. CE N'EST 

PAS LE NOMBRE EXACT MAIS UN NOMBRE TRES PROCHE. TOUT CE QUE VOUS 
FAITES DANS CE JEU,C'EST DECIDER DE VOUS ARRETER. À CE MOMENT 
VOTRE TOTAL EST COMPARE AVEC LE NOMBRE ET VOS GAINS SONT CALCULES. 
VOUS AVEZ $ 200 A DEPENSER... FAITES VOS JEUX? 50 


VOTRE CARTE DE ‘FIN HEUREUSE' EST UN 2. 
VOUS DEVEZ APPROCHER 2 SANS LE DEPASSER POUR GAGNER. 


ALLONS-Y.... 


CARTE # 1 EST UN 9. VOUS ESSAYEZ DE VOUS APPROCHER 36. 
VOTRE TOTAL EST DE 9. VOULEZ-VOUS CONTINUER? OUI 


CARTE # 2 EST UN 6. VOUS ESSAYEZ DE VOUS APPROCHER 36. 
VOTRE TOTAL EST DE 15. VOULEZ-VOUS CONTINUER? OUI 


CARTE # 3 EST UN 5. VOUS ESSAYEZ DE VOUS APPROCHER 36. 
VOTRE TOTAL EST DE 20. VOULEZ-VOUS CONTINUER? OUI 


CARTE # 4 EST UN 10. VOUS ESSAYEZ DE VOUS APPROCHER 36. 
VOTRE TOTAL EST DE 30. VOULEZ-VOUS CONTINUER? OUI 


CARTE # 5 EST UN 10. VOUS ESSAYEZ DE VOUS APPROCHER 36. 
VOTRE TOTAL DEPASSE LE NOMBRE 35. VOUS PERDEZ AUTOMATIQUEMENTI 


VOUS AVEZ MAINTENANT $ 150 EN ESPECE POUR 

PARIER LORS DU PROCHAIN JEUI 

VOUDRIEZ VOUS REJOUER? OUI 

VOUS AVEZ $ 150 A DEPENSER... FAITES VOS JEUX? 50 


VOTRE CARTE DE ‘FIN HEUREUSE' EST UN 10. 
VOUS DEVEZ APPROCHER 10 SANS LE DEPASSER POUR GAGNER. 


ALLONS-Y.... 


CARTE # 1 EST UN 2. VOUS ESSAYEZ DE VOUS APPROCHER 27. 
VOTRE TOTAL EST DE 2. VOULEZ-VOUS CONTINUER? OUI 
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CARTE # 2 EST UN 10. VOUS ESSAYEZ DE VOUS APPROCHER 27. 
VOTRE TOTAL EST DE 12. VOULEZ-VOUS CONTINUER? OUI 


CARTE # 3 EST UN 7. VOUS ESSAYEZ DE VOUS APPROCHER 27. 
VOTRE TOTAL EST DE 19. VOULEZ-VOUS CONTINUER? OUI 


CARTE # 4 EST UN 6. VOUS ESSAYEZ DE VOUS APPROCHER 27. 
VOTRE TOTAL EST DE 25. VOULEZ-VOUS CONTINUER? NON 


VOUS GAGNEZI LE NOMBRE ETAIT 32. VOTRE TOTAL ETAIT DE 25, 
SANS VOTRE CARTE LIMITE. 


VOUS AVEZ MAINTENANT. $ 200 EN ESPECE POUR 
PARIER LORS DU PROCHAIN JEUI 

VOUDRIEZ VOUS REJOUER? NON 

J'ESPERE QUE VOUS VOUS ETES AMUSE. 

Ok 


19 PRINT CHRS (26) ; TAB (28) ; "DEUX À DIX" 

28 PRINT TAB(15) ; "CREATIVE COMPUTING MORRISTOWN NEW JERSEY" 

38 PRINT 

42 PRINT 

63 PRINT “BIENVENUE AU JEU DU DEUX À DIX. CE NOM VIENT DU ‘JEU' SPECIAL" 
73 PRINT "UTILISE. IL N'Y À PAS DE FIGURES — SEULEMENT LES CARTES DE" 

83 PRINT “ 2-19. CE JEU EST FACILE ET AMUSANT À JOUER SI VOUS * 

93 PRINT “COMPRENEZ CE QUE VOUS FAITES, DONC LISEZ LES INSTRUCTIONS" 

199 PRINT "ATTENTIVEMENT." 

125 PRINT 

119 PRINT "AU DEBUT DU JEU,VOU5 PARIEZ SUR VOTRE VICTOIRE. TAPEZ N' " 

123 PRINT "IMPORTE QUEL NOMCRE ENTRE 4 ET 289. PUIS JE TIRE UN NOMBRE" 
134 PRINT “AU HASARD QUE VOUS DEVEZ EGALER PAR LA SOMME TOTALE DES CARTES CHOISI 
Es." 

143 PRINT “DU FAIT DE LA CHANCE INFIME QUE VOUS AVEZ D'OBTENIR CE NOMBRE" 
158 PRINT “EXACTEMENT,ON VOUS DONNE UNE CARTE DE TOLERANCE. LE BUT DU" 
162 PRINT “JEU EST D'OBTENIR LE TOTAL DES CARTES SANS LE NOMBRE MYSTE-" 
179 PRINT “RIEUX,ET SANS ALLER AU DELA.® 

175 PRINT 

182 PRINT “ON VOUS DONNE UNE INDICATION DE LA VALEUR DU NOMBRE. CE N'EST" 
192 PRINT “PAS LE NOMBRE EXACT MAIS UN NOMBRE TRES PROCHE. TOUT CE QUE VOUS" 
209 PRINT "FAITES DANS CE JEU,C'EST DECIDER DE VOUS ARRETER. À CE MOMENT" 
214 PRINT “VOTRE TOTAL EST COMPARE AVEC LE NOMBRE ET VOS GAINS SONT CALCULES. " 
220 M=209 

223 D=9 

225 T=8 

227 O=INT(i*RND(1))+25 

229 N=INT (O#*RND(1) )+0 

239 R=(INT(15*RND(1))+1)/199 

258 S=INT(2*RND(1)+1) 

260 IF S <> 1 THEN 270 

262 E=INT(N-(N*R)) 

265 GOTO 289 

27 E=INT(N+(N#R)) 

288 A=INT(9*RND(11)+2) 

283 PRINT 

285 PRINT "VOUS AVEZ $";M;"A DEPENSER... FAITES VOS JEUX"; 

287 INPUT 8 

288 PRINT 

289 IF B < 4 THEN 297 

298 IF M >= B THEN 390 

293 PRINT "VOUS NE POUVEZ PARIER PLUS QUE VOUS N'AVEZI" 

295 GOTO 285 

297 PRINT “VOUS NE DEVEZ PAS PARIER CONTRE VOUS MEME." 

298 GOTO 285 

32 PRINT “VOTRE CARTE DE ‘FIN HEUREUSE’ EST UN";A;CHRS (8) ;"." 

314 PRINT “VOUS DEVEZ APPROCHER" ;A; "SANS LE DEPASSER POUR GAGNER." 

315 PRINT 

328 PRINT "ALLONS-Y. ..." 

322 PRINT 

324 PRINT 

349 D=D+i 

354 C=INT(9*RND(1)+2) 

368 PRINT "CARTE #";D; "EST UN" ;C;CHRS (8) ;". VOUS ESSAYEZ DE VOUS APPROCHER*;E;CH 
RS(8);"." 

365 T=T+C 

379 IF T <= N THEN 389 

375 PRINT “VOTRE TOTAL DEPASSE LE NOMBRE" ;N;CHR$ (8) ;". VOUS PERDEZ AUTOMATIQUEME 
NTI" 

377 GOTO 578 

389 PRINT “VOTRE TOTAL EST DE";T;CHRS (8) ;". VOULEZ=VOUS CONTINUER" ; 

385 INPUT Q$ 

387 PRINT 

398 IF LEFTS(Q@,1)="O" THEN 322 

419 IF T <N-A OR T > N THEN 55Ù 

Sd PRINT"VOUS GAGNEZ! LE NOMBRE ETAIT";N;CHRS (8) ;". VOTRE TOTAL ETAIT DE";T;CHR 
$(8);"," 

Sid PRINT “SANS VUTRE CARTE LIMITE." 

520 M8 

54 GOTO 6ù4 

552 PRINT “MANQUE! LE NOMBRE ETAIT";N;CHRS (8);", MANQUE DE"; 

568 PRINT (N-A)-T;CHRS (8) ;"." 

565 PRINT 

579 M=M-8 

608 PRINT:PRINT:PRINT “VOUS AVEZ MAINTENANT $";M;"EN ESPECE POUR" 

60i PRINT "PARIER LORS DU PROCHAIN JEU!" 

625 IF M <= d THEN 655 

6i9 PRINT "VOUDRIEZ VOUS REJOUER"; 

615 INPUT Q$ 

629 IF LEFT$(@S,1)="O" THEN 223 

632 PRINT “J'ESPERE QUE VOUS VOUS ETES AMUSE." 

64ù GOTO 999 

652 PRINT 

655 PRINT CHRS (7); 

669 PRINT "VOUS ETES LESSIVE! ! 
999 END 


VOUS NE POUVEZ PLUS JOUER! 1* 


UFO (OVNI) 





« OVNI » est un jeu de stratégie où 
vous menez contre l'ordinateur une lutte 
a mort pour conquérir la supériorité 


dans l'espace. Cette lutte a lieu après une a 

guerre de l'espace contre une autre CREATIVE COMPUTINS 

planète, où la terre et cette planète sont MORRISTONN NEW JERSEY 

toutes les deux détruites. Ces deux 

planètes, égales en force, structure VOULEZ VOUS DES INSTRUCTIONS? OUI 

sociale et évolution scientifique — après VOUS ALLEZ RECEVOIR UNE INFORMATION HAUTE SECURITE. 


. A Ris , A . A L'AVOIR LU. 
avoir réalisé qu'elles étaient condamnées ee 


— lancent un canot de sauvetage dans 


, c : C'EST L'AN 2000.... LA CIVILISATION COMME VOUS LE SAVEZ 
l'espace. Ces engins ont un pouvoir et un A ETE DETRUITE...LES NATIONS NE SONT PLUS QUE DECOMBRES 
armement équivalents DEPUIS UNE GIGANTESQUE GUERRE SPATIALE. 
i VOUS ETES À BORD D'UN VAISSEAU SPATIAL DONT LE SEUL BUT 

Cependant, le «canot » adversaire EST DE PRESERVER LA VIE DES 150 PERSONNES DU VAISSEAU. .. 
compte parmi ses occupants des tireurs LES SEULS SURVIVANTS..VOTRE MISSION: TROUVER UNE PLANETE 

’éli i i j PROPICE À LA COLONISATION...PROBLEME: LES ENNEMIS DE LA TERRE 
d'élite, qui atteignent leur cible en deux VIVENT TOUJOURS. D'ETRANGES CREATURES JAMAIS APERCUES PAR L'HOMME. 


coups (les points de l'ordinateur sont 
estimés lignes 880-890). En voici la 


LORSQUE VOUS LIREZ CECI, LA TERRE AURA CESSE D'EXISTER..... 





i . Anici i NNEES VITALES : 
raison : leS décisions du canot ennemi RS Me LE OS UN res ec r 
sont régies par le programme, l'ennemi se SI ELLES SONT EPUISEES,LES ENNEMIS VOUS DETRUISENT. 
repliera uniquement s'il sent que vous 
allez l’'éperonner, et s'approchera seule- ENTREZ RETURN‘ POUR CONTINUER 
ment si vous fuyez et/ou si son carburant ARMEMENT 
diminue (de petits combats consomment in 
moins de carburant). || utilisera l'option 6 TYPEDESCRIPTION CAPACITE PERTE ENERGIE 
(aucun mouvement mais économie de 771 CANON  LOURD 0 = 11,000 10 UNITES 
i Ô i 2 OGIV 10,000 - 100,000 100 UNITES 
carburant) seulement si son énergie tee 1610002220 000 © 1000 UNLTES 
passe sous une certaine valeur. Autre- 
ment dit, vous pensez, lui non. Vous avez CÉTORS 
l'avantage de la réflexion, aussi l'ennemi S'RPANONE 10, UNITÉS 
se voit attribuer l'avantage de l’habileté au 6 EN TAPANT 6 VOUS POUVEZ DISPARAITRE ET GAGNER 100 UNITES 
tir. (LES LABORATOIRES PRODUISENT DE L'ENERGIE) 
Le jeu se situe dans le futur : toute | | 
civilisation est détruite, il reste RTE FR en 
150 personnes sous vos ordres. L'ennemi ENNEML 
n'a jamais réellement été aperçu, comme L'ENNEMI À LES MEMES POSSIBILITES QUE VOUS. 
beaucoup d'ennemis; vous devez le À CHAQUE FOIS QU'UN VAISSEAU EST TOUCHE,SA PERTE D'ENERGIE EST EGALE 
détruire sous risque qu'il vous détruise. Le AU TOTAL DE L'ENERGIE DEPENSEE*10 (POUR LE LASER,ELLE EST EGALE 
: N . A CE TOTAL*3 UNITES). 
Jeu commence après que vous ayez pris 
connaissance de vos armes. AUX LES DEUX VAISSEAUX ONT LES MEMES MISSION ET DESTINATION, ET 


SONT SOUMIS AUX MEMES CONDITIONS. 
commandes de votre bateau, un bouton 


de contrôle vous interdit tout mouvement MALHEUREUSEMENT , VOUS DEVEZ VOUS ENTRETUER POUR GAGNER. 


illé ô jri VOTRE VITESSE MAXIMUM EST DE 50,000 UNITES ,QUOI QU'IL EN SOIT 
illégal. Ce contrôle attend que Fous tiriez LES VITESSES VARIENT ENTRE 10,000 ET 50,000. 
pour atteindre l'ennemi et que l'explosion LES OGIVES SE DEPLACENT À 35,000 PIEDS PAR SEC...LES OBUSA 1,000 PIEDS PAR SEC. 


rende compte des faits. Puis il donne un 


s CE MESSAGE À ETE ENREGISTRE. LA TERRE EST ANEANTIE...BONNE CHANCE... 
bilan des pertes des deux bateaux. Vous 


pouvez jouer jusqu'à ce que votre énergie ICI LE CONTROLE-ORDINATEUR. QUEL EST VOTRE NOM ? JACQUES G. 
devienne négative. Lorsque la valeur 0 est FREE BIENS. ACQUES" 6 

atteinte, votre équipage périt. (Le niveau DEPART DE L'ORBITE PLANETAIRE, JACQUES G..VAISSEAU APPROCHANT À 
d'énergie est la valeur de l'énergie néces- 49,024 MILLES. 

Saire pour contrer une attaque. Le bateau SE VES Nana ne note VIN GQUES 65,2; 2 

est détruit lorsque la valeur de l'énergie TIR DIRECT. .... L'ENERGIE DU VAISSEAU ENNEMI DECROIT. 

qui le frappe est supérieure à celle qu'il ÉTATIDULVALSS EAU ENNEUT 

peut repousser. Si ces deux valeurs sont a Los 

égales, le bateau a exactement la même LES CGXVES ENVEUTES RIREND 

valeur d'énergie que celle que l'attaque a PER QIRECT IS sPONER, DONNE 


perdue.) Si dans une bataille, vous vous e 
approchez trop près de votre ennemi pour a 


utiliser vos canons lourds sans l'« ef- DORE ue geo rs RPPORT. D'ENÉRGTE:* 182900 
frayer » (5000-11000), le jeu durera rela- ATTENTION À NE PAS VOUS DESAGREGER SOUS LA FORTE PRESSION. 
tivement longtemps. Théoriquement,_ il ATTENTION À NE PAS VOUS DESAGREGER SOUS LA FORTE PRESSION. 
sera sans fin s’il est joué logiquement. QUELS SONT VOS ORDRES, JACQUES G.? 2 

Ecrit par Raymond J.Kernay, OVNI PER DIREOTe à LIÉNRRCTE DU HR TSEEAU ENNEMI DECROIT. 


parut pour la première fois dans Creative ETAT DU VAISSEAU ENNEMI 
Computing, juill.-août 1977. Une version -------""" 


modifiée, appelée « Guerre des Etoiles », LES OGIVES ENMEMIES TIRENT. ee 
parut en sept.-oct. 1978. TIR DIRECTI...POWER DOWN. 
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POSITION DU VAISSEAU 
PORTEE = 49,024 APPORT D'ENERGIE = 
QUELS SONT VOS ORDRES, JACQUES G.? 2 
OGIVE LANCEE 
TIR DIRECT.....L'ENERGIE DU VAISSEAU ENNEMI DECROIT. 


7,800 


ETAT DU VAISSEAU ENNEMI 


PORTEE = 49,024 ENERGIE = 
L'ENNEMI TIRE AU LASER..., 
TIR DIRECT..... L'ENERGIE DECROIT 


6,800 


POSITION DU VAISSEAU 
PORTEE = 49,024 APPORT D'ENERGIE = 
QUELS SONT VOS ORDRES, JACQUES G.? 3 
ATTENTION À NE PAS VOUS DESAGREGER SOUS LA FORTE PRESSION. 
QUELS SONT VOS ORDRFS, JACQUES G.? 4 


4,700 


ETAT DU VAISSEAU ENNEMI 
PORTEE 15,667 ENERGIE = 
LES OGIVES ENNEMIES TIRENT. 
TIR DIRECTI!I...POWER DOWN. 








POSITION DU VAISSEAU 
PORTEE = 15,667 APPORT D'ENERGIE 
QUELS SONT VOS ORDRES, JACQUES G.? 
ATTENTION À NE PAS VOUS DESAGREGER SOUS LA FORTE PRESSION. 
QUELS SONT VOS ORDRES, JACQUES G.? 2 
OGIVE LANCEE 
TIR DIRECT..... L'ENERGIE DU VAISSEAU ENNEMI DECROIT. 


3,600 


mi 


ETAT DU VAISSEAU ENNEMI 
PORTEE = 15,667 ENERGIE = 
L'ENNEMI TIRE AU LASER.... 
TIR DIRECT..... L'ENERGIE DECROIT 


4,700 


POSITION DU VAISSEAU 


PORTEE = 15,667 APPORT D'ENERGIE = 500 

QUELS SONT VOS ORDRES, JACQUES G.? 2 

OGIVE LANCEE 

TIR DIRECT.....L'ENERGIE DU VAISSEAU ENNEMI DECROIT. 





ETAT DU VAISSEAU ENNEMI 
PORTEE = 15,667 ENERGIE = 
L'ENNEMI TIRE AU LASER..., 
TIR DIRECT..... L'ENERGIE DECROIT 






2,700 


POSITION DU VAISSEAU 


PORTEE = 15,667 APPORT D'ENERGIE = -2,600 


L'ENNEMI EST VICTORIEUX...LES RESSOURCES MANQUENT...L'EQUIPAGE MEURT... 


REJOUEZ? NON 
Ok 


5 PRINT CHRS (26) 

6 F6S="###, #44" 

7 FAS="#N#, 4H" 

19 PRINT TAB (26) ; "OVNI" 
22 PRINT TAB (19); "CREATIVE COMPUTING" 

39 PRINT TAB(18) ; "MORRISTOWN NEW JERSEY" 

42 PRINT:PRINT 

64 DIM P(1) 

8ù REM OVNI 

92 PRINT:PRINT "VOULEZ VOUS DES INSTRUCTIONS" ; 

129 INPUT AS 

192 IF LEFTS(AS$,1)="N" THEN 489 

104 IF LEFTS(A$,1)="O" THEN 119 

196 GOTO 99 

119 PRINT CHR$ (26); "VOUS ALLEZ RECEVOIR UNE INFORMATION HAUTE SECURITE." 

129 PRINT “SVP MANGEZ LE LISTING APRES L'AVOIR LU." 

139 PRINT:PRINT 

149 PRINT "C'EST L'AN 2999.... LA CIVILISATION COMME VOUS LE SAVEZ" 

158 PRINT "A ETE DETRUITE...LES NATIONS NE SONT PLUS QUE DECOMBRES" 

169 PRINT "DEPUIS UNE GIGANTESQUE GUERRE SPATIALE." : PRINT 

179 PRINT "VOUS ETES À BORD D'UN VAISSEAU SPATIAL DONT LE SEUL BUT" 

189 PRINT "EST DE PRESERVER LA VIE DES 159 PERSONNES DU VAISSEAU. . ." 

198 PRINT "LES SEULS SURVIVANTS..VOTRE MISSION: TROUVER UNE PLANETE" 

209 PRINT "PROPICE À LA COLONISATION. ..PROBLEME: LES ENNEMIS DE LA TERRE" 

219 PRINT “VIVENT TOUJOURS. D'ETRANGES CREATURES JAMAIS APERCUES PAR L'HOMME." 
215 PRINT 

229 PRINT “LORSQUE VOUS LIREZ CECI, LA TERRE AURA CESSE D'EXISTER....." 

225 PRINT 

239 PRINT "VOILA VOS DONNEES VITALES:" 

249 PRINT TAB(19) ;"VOUS POSSEDEZ 14.999 UNITES D'ENERGIE." 

250 PRINT TAB(1ÿ),"SI ELLES SONT EPUISEES,LES ENNEMIS VOUS DETRUISENT." 

255 PRINT:PRINT:GOSUB 19909 

260 PRINT TAB(25) ; "ARMEMENT":PRINT TAB (25) ;" *:PRINT 

279 PRINT "TYPE"; TAB (5) ; "DESCRIPTION" ; TAB (25) ; "CAPACITE" ; TAB (44) î 

275 PRINT "PERTE ENERGIE" 
277 PRINT "——";TAB(S) ;" 








";TAB(25);" * 3 TAB (40) 3° ———" 


289 PRINT “ l";TAB(S) ; "CANONS LOURDS" ;TAB (24) ; "3 — 11,902" ;TAB (48) ; 
285 PRINT "19 UNITES" 

299 PRINT " 2";TAB(5) ;"OGIVES";TAB(21) ;"14,409 - 109,090" ;TAB (40) ; 
295 PRINT "199 UNITES" 

329 PRINT “ 3";TAB(S) ;"LASER";TAB(22);"19,009 — 29,400" ;TAB (40) ; 


325 PRINT "1909 UNITES" 
310 PRINT:PRINT TAB(25) ;"OPTIONS":PRINT TAB (25) ;" 
329 PRINT “ 4*;TAB(5) ; "APPROCHE" ; TAB (25) ; "—— 





"TAB (40) ; 
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325 
327 
328 
339 


350 
355 
369 
378 
375 
389 
399 
4aù 
419 
428 
439 
448 
45ù 
460 
465 
47à 
489 
499 
Sud 
Slÿ 
, 

512 
515 
520 
53è 
S4ù 
560 
S7ÿ 
582 
599 
595 
6ug 
6ly 
624 
630 
64% 
65 
655 
66è 
670 
682 
699 
7èd 
725 
714 
714 
716 
728 
725 
73è 
744 
754 
76à 
778 
CJ 

78à 
798 
84 
841 


PRINT "199 UNITES" 
PRINT * 5";TAB(5) ; "RETRAITE" ; TAB (25) ; "————— 
PRINT “lg UNITES* 
PRINT “ 6";TAB(S);"EN TAPANT 6 VOUS POUVEZ DISPARAITRE ET GAGNER 199 UNITES 


":TAB (4) ; 


PRINT TAB(5);"(LES LABORATOIRES PRODUISENT DE L'ENERGIE)" 

PRINT:PRINT:GOSUB 14449 

PRINT TAB (25) ; "ENNEMI" :PRINT TAB (25) ;" == 

PRINT "L'ENNEMI À LES MEMES POSSIBILITES QUE VOUS." 

PRINT 

PRINT “A CHAQUE FOIS QU'UN VAISSEAU EST TOUCHE,SA PERTE D'ENERGIE EST EGALE" 
PRINT “AU TOTAL DE L'ENERGIE DEPENSEE*19 (POUR LE LASER,ELLE EST EGALE" 
PRINT “A CE TOTAL*3 UNITES) .":PRINT 

PRINT "LES DEUX VAISSEAUX ONT LES MEMES MISSION ET DESTINATION, ET" 

PRINT "SONT SOUMIS AUX MEMES CONDITIONS." : PRINT 

PRINT “MALHEUREUSEMENT , VOUS DEVEZ VOUS ENTRETUER POUR GAGNER." : PRINT 
PRINT "VOTRE VITESSE MAXIMUM EST DE 59,999 UNITES ,QUOI QU'IL EN SOIT ," 
PRINT "LES VITESSES VARIENT ENTRE 19,009 ET 59,098." 

PRINT "LES OGIVES SE DEPLACENT À 35,499 PIEDS PAR SEC...LES OBUS"; 

PRINT "A 1,909 PIEDS PAR SEC.":PRINT 

PRINT "CE MESSAGE À ETE ENREGISTRE. LA TERRE EST ANEANTIE...BONNE CHANCE. .." 
PRINT.PRINT.PRINT "ICI LE CONTROLE-ORDINATEUR. QUEL EST VOTRE NOM", 

INPUT AS:PRINT "TRES BIEN, ";A$;".":PRINT 
P=l1v009:P(1)=12299:A=RND(1) *290008! 

PRINT "DEPART DE L'ORBITE PLANETAIRE, ";A$;".";B$;C$;"VAISSEAU APPROCHANT A" 





PRINT 

PRINT USING F6$;A;:PRINT " MILLES." 

PRINT "QUELS SONT VOS ORDRES, ";A$;B$;C$;: INPUT C 

O=INT (RND(1) *2)+1 

ON C GOTO 57ÿ%,6548,710,750,784,829 

PRINT “ATTENTION À NE PAS VOUS DESAGREGER SOUS LA FORTE PRESSION.":GOTO 529 
IF A>11995 THEN 564 

P=P-19 

PRINT “LES CANONS TIRENT:" 

FOR X=1 TO A*2 STEP luuÿ 

NEXT X 

IF O=1 THEN 630 

PRINT “MANQUE. ...... TROP MAUVAIS!":GOTO 839 

PRINT “TIR DIRECT.......L'ENERGIE DU VAISSEAU ENNEMI DECROIT." 
P(1)=P(1)-199:GOT0 839 

IF À > l9990U! THEN 560 

IF À < lv THEN 564 

P=P-199:PRINT "OGIVE LANCEE":FOR X=1 TO A*2 STEP 35990! 

NEXT X 

IF O=1 THEN 69Y:PRINT "MANQUE. ........TROP MAUVAIS!":GOTO 839 


PRINT “TIR DIRECT.....L'ENERGIE DU VAISSEAU ENNEMI DECROIT." 
P(1)=P(1)-1009 

GOTO 830 

IF À < 109909! THEN 564 

P=P-l909 

PRINT “LE LASER TIRE:" 


IF O=1 THEN 734 

PRINT "MANQUE. . . « « « «TROP MAUVAIS! ":GOTO 839 

PRINT “TIR DIRECT.....L'ENERGIE DU VAISSEAU ENNEMI DECROIT." 
P(1)=P(1)-3%%9:GOT0 839 

B=RND(1) *4940V!+1490Y:A=A-B:P=P-199:1F A<1 THEN 779 

GOTO 834 

PRINT “### COLLISION #*#*#":PRINT "LES DEUX VAISSEAUX SONT DETRUITS!":GOTO 148 


B=RND (1) *499001+1900V:A=A+B:P=P-199:1F À > 299050! THEN 894 

GOTO 839 

PRINT A$;", VOTRE PORTEE EST DE"; :PRINT USING F6$;A 

PRINT “,MAIS NOUS NE POUVONS TIRER. LA PORTEE EST MAINTENANT DE"; 





895 PRINT "204,000." 

819 A=2000v0! :GOTO0 834 

822 P=P+l40 

839 PRINT:PRINT TAB(5);"ETAT DU VAISSEAU ENNEMI":PRINT TAB(5);" 

" 

831 PRINT “PORTÉE = “;:PRINT USING F6$;A;:PRINT “ ENERGIE = ";:PRINT USING F4$; 

P(1) 

849 IF P(1) < 1 THEN 1114 

858 IF P(1) < Sû0 THEN lu4d 

869 IF À < Sa9 THEN 1474 

879 R=INT(RND(1)#3)+1:O=INT(RND(1) *2+1) 

884 ON R GOTO 974,929 

885 IF R=2 THEN 

894 IF À < luvyy0: THEN 870 

892 P(1)=P(1)-lo48 

824 PRINT “L'ENNEMI TIRE AU LASER. ..." 

908 IF O=1 THEN 919: PRINT "MANQUE. ..BOUH!!":GOTO 1419 

912 PRINT “TIR DIRECT..... L'ENERGIE DECROIT": P=P-3ÿÿ9:GOTO 1919 

928 IF A > 1990! THEN 87%: IF À € 19000 THEN 879 

938 P(1)=P(1)-194: PRINT “LES OGIVES ENNEMIES TIRENT...." 

942 FOR D=1 TO À STEP 354441: NEXT D 

952 IF O=1 THEN 964: PRINT "MANQUE... BOUH!":GOTO0 1819 

968 P=P-190%0: PRINT "TIR DIRECT!...POWER DOWN.":GOTO 1819 

979 1F À > 1l9d9 THEN 879: (1)=P(1)-10:PRINT "L'ENNEMI TIRE AU CANCN...." 

98% FOR D=1 TO À STEP lygy: NEXT D 

992 IF O=1 THEN l42:PRINT "MANQUE. ..BOUH!":GOTO 1414 

1009 PRINT "TIR DIRECT .....L'ENERGIE DECROIT.":P=P-100 

1919 PRINT:PRINT:PRINT TAB (14) ; "POSITION DU VAISSEAU" : PRINT TAB (10) ; "= 

ne 

1229 PRINT "PORTÉE = ";:PRINT USING F6$;A;:PRINT “  APPORT D'ENERGIE = ";: 
PRINT USING F4$;P: IF P<l THEN 1139 

1938 GOTO 524 

1949 P(1)=P(1)+190: PRINT "LE VAISSEAU ENNEMI MAINTIENT SA POSITION.":GOTO 110 

1254 B=INT(RND(1) *44%40!+19499:A=A-B:PRINT “LE VAISSEAU ENNEMI S'APPROCHE, ";AS; 

B$; 

1955 PRINT CS;"." 

1969 GOTO lulu 

1978 B=RND(1) *42404!+12040:A=A+B:PRINT "LE VAISSEAU ENNEMI RECULE.":GOTO lu18 

1989 PRINT "C'ETAIT UNE BELLE SOTTISE À FAIRE, ";AS;BS;CS;"." 

129% PRINT "VOTRE MISSION EST DE PRUTEGER VOS PASSAGERS, NON DE LES DETRUIRE." 

11ÿ GOTO 1149 

1114 PRINT "L'ENERGIE DU VAISSEAU ENNEMI EST EPUISEE...PAS DE RESCAPE." 

1124 PRINT “MISSION ACCOMPLIE!":GOTO 1219 

1139 PRINT:PRINT "L'ENNEMI EST VICTORIEUX...LES RESSOURCES MANQUENT. . .L'EQUIPAGE 

MEURT. .." 

1149 REM 

1158 PRINT 

1169 PRINT 

1176 PRINT 

1188 PRINT "REJOUEZ"; 

1199 INPUT AS 

1209 IF LEFTS(AS,1)="Y" THEN 89 

1214 END 


19908 LINE INPUT "ENTER "RETURN' TO CONTINUE, ";XXS 
19812 PRINT CHRS (26) 


1002 


d RETURN 


Under and Over 





Plus ou moins) 





C'est un petit jeu de dés amusant où 
vous pariez sur le total qui apparaîtra sur 
les dés après leur lancer. Vous pouvez 
parier sur n'importe quel nombre compris 
entre deux et douze. Si votre choix 
correspond exactement au lancer, vous 
gagnez à quatre contre un. Si votre choix 
se pose sur un nombre inférieur à sept, et 
que le lancer donne lui aussi un total 
inférieur à sept, vous gagnez une somme 
d'argent, même chose si votre choix et le 
résultat du lancer sont tous les deux 
supérieurs à sept. Seul le pari sur le 
nombre sept permet de gagner à quatre 
contre un. Le programme continue jusqu'à 
ce que vous n'ayez plus d'argent ou que 
vous décidiez de l'interrompre. 





RUN 
PLUS OÙ MOINS 
CREATIVE COMPUTING 
MORRISTOWN, NEW JERSEY 


VOICI LE JEU DU PLUS OU MOINS.SI VOUS TIREZ PLUS OU MOINS 

DE SEPT,VOUS GAGNEREZ AUTANT D'ARGENT.SI VOUS TIREZ PAREIL,VOUS GAGNEREZ 
A UN TAUX DE QUATRE CONTRE UN.VOUS DEBUTEZ AVEC 100$. 

BONNE CHANCEIII 


QUEL NOMBRE VOULEZ VOUS JOUER ET COMBIEN 
VOULEZ-VOUS PARIER SUR LE NOMBRE? 4,10 


LES DES ONT MAINTENANT ETE LANCES.LES RESULTATS 

SONT LES SUIVANTS: 

DE #1 DE #2 SOMME VOTRE# TIRAGE 
2 2 4 4 SUP 


*##*AA*AUVOUS GAGNEZ À 4 CONTRE 1*######* 
LA SOMME QUE VOUS AVEZ MAINTENANT EST DE 140 


QUEL NOMBRE VOULEZ VOUS JOUER ET COMBIEN 
VOULEZ-VOUS PARIER SUR LE NOMBRE? 4,10 


LES DES ONT MAINTENANT ETE LANCES.LES RESULTATS 

SONT LES SUIVANTS: 

DE #1 DE #2 SOMME VOTRE# TIRAGE 
2 4 6 4 SUP 





####44#4VOUS GAGNEZ AUTANT D'ARGENT#*#*##*###4 
LA SOMME QUE VOUS AVEZ MAINTENANT EST DE 150 


170 


QUEL NOMBRE VOULEZ VOUS JOUER ET COMBIEN 
VOULEZ-VOUS PARIER SUR LE NOMBRE? 7,20 


LES DES ONT MAINTENANT ETE LANCES.LES RESULTATS 

SONT LES SUIVANTS: 

DE #1 DE #2 SOMME VOTRE# TIRAGE 
1 5 6 7 SUP 


{{LLIVOUS AVEZ PERDUIIIII 
LA SOMME QUE VOUS AVEZ MAINTENANT EST DE 130 


QUEL NOMRRE VOULEZ VOUS JOUER ET COMBIEN 
VOULEZ-VOUS PARIER SUR LE NOMBRE? 8,10 


LES DES ONT MAINTENANT ETE LANCES.LES RESULTATS 

SONT LES SUIVANTS: 

DE #1 DE #2 SOMME VOTRE# TIRAGE 
3 3 6 . 8 SUP 


{ILLIVOUS AVEZ PERDUIIIII 
LA SOMME QUE VOUS AVEZ MAINTENANT EST DE 120 


QUEL NOMBRE VOULEZ VOUS JOUER ET COMBIEN 
VOULEZ-VOUS PARIER SUR LE NOMBRE? 9,20 


LES DES ONT MAINTENANT ETE LANCES.LES RESULTATS 

SONT LES SUIVANTS: 

DE #1 DE #2 SOMME VOTRE# TIRAGE 
6 6 12 9 INF 


KXX#KXAAXUOUS GAGNEZ AUTANT D'ARGENT*#*#*### 4% 
LA SOMME QUE VOUS AVEZ MAINTENANT EST DE 140 


QUEL NOMBRE VOULEZ VOUS JOUER ET COMBIEN 
VOULEZ-VOUS PARIER SUR LE NOMBRE? 5,10 


LES DES ONT MAINTENANT ETE LANCES.LES RESULTATS 

SONT LES SUIVANTS: 

DE #1 DE #2 SOMME VOTRE# TIRAGE 
5 l 6 5 SUP 


*####*HHUOUS GAGNEZ AUTANT D'ARGENT####### 
LA SOMME QUE VOUS AVEZ MAINTENANT EST DE 150 


QUEL NOMBRE VOULEZ VOUS JOUER ET COMBIEN 
VOULEZ-VOUS PARIER SUR LE NOMBRE? 6,10 


LES DES ONT MAINTENANT ETE LANCES.LES RESULTATS 

SONT LES SUIVANTS : 

DE #1 DE #2 SOMME VOTRE# TIRAGE 
6 1 7 6 PAREIL 


1111IVOUS AVEZ PERDUIIIII 
LA SOMME QUE VOUS AVEZ MAINTENANT EST DE 150 


QUEL NOMBRE VOULEZ VOUS JOUER ET COMBIEN 
VOULEZ-VOUS PARIER SUR LE NOMBRE? 8,90 


LES DES ONT MAINTENANT ETE LANCES.LES RESULTATS 

SONT LES SUIVANTS: 

DE #1 DE #2 SOMME VOTRE# TIRAGE 
6 1 7 8 PAREIL 


ILILIVOUS AVEZ PERDUIIIII 
LA SOMME QUE VOUS AVEZ MAINTENANT EST DE 150 


QUEL NOMBRE VOULEZ VOUS JOUER ET COMBIEN 
VOULEZ-VOUS PARIER SUR LE NOMBRE? 7,100 


LES DES ONT MAINTENANT ETE LANCES.LES RESULTATS 

SONT LES SUIVANTS: 

DE #1 DE #2 SOMME VOTRE# TIRAGE 
6 4 10 7 INF 


{LILIVOUS AVEZ PERDUIIIII 
LA SOMME QUE VOUS AVEZ MAINTENANT EST DE 50 


QUEL NOMBRE VOULEZ VOUS JOUER ET COMBIEN 
VOULEZ-VOUS PARIER SUR LE NOMBRE? 4,20 


LES DES ONT MAINTENANT ETE LANCES.LES RESULTATS 

SONT LES SUIVANTS: 

DE #1 DE #2 SOMME VOTRE# TIRAGE 
4 5 9 4 INF 


{1LLIVOUS AVEZ PERDUIIIII 
LA SOMME QUE VOUS AVEZ MAINTENANT EST DE 30 


QUEL NOMBRE VOULEZ VOUS JOUER ET COMBIEN 
10 
, 


VOULEZ-VOUS PARIER SUR LE NOMBRE? 


LES DES ONT MAINTENANT ETE LANCES.LES RESULTATS 

SONT LES SUIVANTS : 

DE #1 DE #2 SOMME VOTRE# TIRAGE 
6 4 10 7 INF 


11LLIVOUS AVEZ PERDUIIIII 
LA SOMME QUE VOUS AVEZ MAINTENANT EST DE 10 


QUEL NOMBRE VOULEZ VOUS JOUER ET COMBIEN 
VOULEZ-VOUS PARIER SUR LE NOMBRE? 7,10 


LES DES ONT MAINTENANT ETE LANCES.LES RESULTATS 

SONT LES SUIVANTS: 

DE #1 DE #2 SOMME VOTRE# TIRAGE 
4 3 7 7 PARFIL 


#+##+#*AUOUS GAGNEZ À 4 CONTRE 1**#**###* 
LA SOMME QUE VOUS AVEZ MAINTENANT EST DE 50 


QUEL NOMBRE VOULEZ VOUS JOUER ET COMBIEN 
VOULEZ-VOUS PARIER SUR LE NOMBRE? 5,50 


LES DES ONT MAINTENANT ETE LANCES.LES RESULTATS 
SONT LES SUIVANTS: 


DE #1 DE #2 SOMME VOTRE# TIRAGE 
6 1 7 ) PAREIL 
{11LIVOUS AVEZ PERDUIIIII 


LA SOMME QUE VOUS AVEZ MAINTENANT EST DE 50 


QUEL NOMBRE VOULEZ VOUS JOUER ET COMBIEN 
VOULEZ-VOUS PARIER SUR LE NOMBRE? 5,50 


LES DES ONT MAINTENANT ETE LANCES.LES RESULTATS 

SONT LES SUIVANTS: 

DE #1 DE #2 SOMME VOTRE# TIRAGE 
4 5 9 5 INF 


1ILLIVOUS AVEZ PERDUIIIII 
LA SOMME QUE VOUS AVEZ MAINTENANT EST DE O 


LE JEU EST FINI,ET VOUS ETES SANS LE SOU. DESOLE CHARLIE. 
CELA PROUVE QU'IL N'EST PAS BON DE JOUER 

VOULEZ-VOUS REJOUER? NON 

Ok 


100 PRINT TAB(22); "PLUS UU HOINS" 

110 PHINT TAU(20) "CREATIVE CUMPUT ENG" 

121 PRINT TAB(1B);MURIISTOWN, NE JERSEY" 

130 PRINT:PRINT:PIINT 

140 PIINT"VUICT LE JEU LU PLUS OU MOINS.SI VOUS TIREZ PLUS UU MUINS" 


190 PRINT'DE SEPT, VOUS LAGNEBE 2 AUTANT D'ARGENT.SI VOUS TIREZ PAREIL, VOUS GAGNEN 


2" 

160 PRINT"A UN TAUX DL QUATRE CUNTRE UN: VOUS DEBUIEZ AVEC 1003." 
170 PIHINEMGUNNE CHANCE LE": PRINT:PRINT 

180 A=100 

190 KESTORE 

200 REM 

210 REA A$,0$,C$ 

220 DATA "SUP", "INF", "PAREIL" 

230 PRINT"QUEL NUMBRE VOULEZ VOUS JOUER CT CUMBIEN" 

240 PKINI"VOULEZ-VOUS PARIER SUi LE NOMBRE" ;: INPUT B,C 

290 PRINT:PRINI"LES DES ONT MAINTENANT ETC LANCES.LES RESULTATS" 
260 PRINT"SUNT LES SUIVANTS :" 

270 Q=INT(6#RAD(1)+1):R=INT(6*RND(1)+1) 

280 PRINT "DE 41","DE 12", "SOMME", "VOTRE", "TIRAGE" 

290 IF Q+K>7 THEN 310 

295 IF Q+i=7 THEN 320 

300 PRINT U,R,U+R,U,A$:PHKINT 

303 IF UzijeR THEN 350 

305 IF B<7 THEN 380 

307 GOI0 410 

310 PRINT U,R,Q+R,B,US$:PRINT 

313 IF U=Q+kK THEN 350 

315 IF B>7 IHEN 380 

317 GUTO 410 

320 PRINT Q,R,Q+R,U,C$:PRINT 

330 IF Uz=U+R THEN 350 

340 GOTO 420 

350 A=A+(4%C) 

360 PRINT TAB(20)"* ##eVOUS GAGNEZ À à CONTRE 1######## 

370 PRINTLA SUMME QUE VOUS AVEZ MAINTENANT EST DE" À :PRINT:GOTU 440 
380 A=A+C 

390 PRINT TAU(20)"########V0US GAGNEZ AUTANT D'ARGENT########" 
400 PRINT"LA SOMIÆ QUE VOUS AVEZ MAINTENANT EST DE" A :PRINT:GOTU 440 
410 A=A-C 

420 PRINT TAB(20)"!111IVOUS AVEZ PERDUIIIII" 

430 PKINI"LA SUMME QUE VOUS AVEZ MAINTENANT EST DE" A :PRINT 
440 IF A>0 THEN 190 

450 PRINT"LE JEU EST FINI,ET VOUS ETES SANS LE SOU. DESOLE CHARLIE." 
460 PRINT"CELA PROUVE QU'IL N'EST PAS BON DE JOUER" 

470 PRINT"VOULEZ-VOUS REJOUER";: INPUT W$ 

480 IF LEFI$(W$,1)="O" THEN 180 

490 END 
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Van Gam 





Van Gam est un jeu simple comprenant IE 


un ensemble intéressant de solutions. Les IL RESTE 9 10 
paires de séquences gagnantes sont D TDR Des 
constituées de certaines paires s'excluant 37. T1 PFSTE 6 10 
mutuellement, grâce à l’utilisation du VOTRE COUP?  3B 
nombre d'or, IYRESTESS 2 
1 + V5 HM.. JF FRANS Li Redes à ; 
2 VOTRE COUP? La 
IL RESTE 3 ? 
en tant que générateur irrationnel. Voir les Re 
explications, lignes 40 à 130. 2L IL RESTE 1 2 
VOTRE COUP? 1R 
: 1+V5 IL RESTE 1 1 
Si T G 1 # 2 HM.. JE PRENDS: 
1B IL RESTE O0 (o] 
et X = + + 1 Y = ep 1 DESOLE -JF GAGNE.NE SOYEZ PAS TRISTE -JE SUIS UN EXPERT. 


VOULEZ-VOUS REJOUER? OUI 
alors pour les entiers N les générateurs de 


séquences gagnantes sont TAILLE DESIREE DES PILES (NOMBRE,NOMBRE)? 26,16 
INT (N * X) 2 5 7 10 13 VOULEZ-VOUS COMMENCER? NON 
INT (N *Y) 1 3 4 6 8... GAUCHE DROITE 
Il est intéressant de remarquer que A 
l'union de ces deux ensembles forme ADR ne 
l'ensemble des entiers et que leur inter- | VOTRE COUPE, RÉ in ne Ce 
section est vide. C'est le cas, en fait, pour 
n'importe quel générateur _irrationnel, PR SAR REOURS Re Sn ia 
mais seul T permettra d'obtenir les paires ee de 
gagnantes du Van Gam. Le jeu n'est pas | IL RESTE 20 12 
très amusant car l'utilisateur normal ne ne. AT É BRENDSS 
sera jamais capable de battre l'ordinateur IL ILRESTE 19 12 
dans des cas non évidents, sauf si on lui a VOTRE COUP?  1B 
donné les séquences gagnantes. ŒLLRESTE. 16 “LL 
Ce programme de Alan Brown est HM.. JE PRENDS: : 
paru pour la première fois dans Crea- Pis (OUEST ET à 
tive Computing en janv.-févr. 1978. VOTRE COUP? 28 
IL RESTE 15 9 
HM.. JE PRENDS: 
1L IL RESTE 14 9 
RUN VOTRE COUP? 1B 
IL RESTE 13 8 
VANGAM 
CREATIVE COMPUTING HM.. JF PRENDS: 
MORRISTOWN, NEW.JERSEY 1L IL RESTE 12 8 
VOTRE COUP? 2B 
LE JEU DE VAN WYTHOFF:VOULEZ-VOUS LES INSTRUCTIONS? OUI IL RESTE 10 6 
VOUS DEVEZ CREER DEUX PILES D'ALLUMETTES,CHACUNE EN CONTENANT HM.. JE PRENDS: 
100 OU MOINS.VOUS JOUEZ EN ALTERNANCE AVEC MOI,ET NOS 1L IL RESTE 9 6 
COUPS CONSISTENT EN: 
VOTRE COUP? 2B 
(A) PRENDRE 1 OU PLUSIEURS ALLUMETTES D'UNE SEULE PILE,OU IL RESTE 7 4 
(B) PRENDRE LE MEME NOMBRE D'ALLUMETTES DE CHAQUE PILE. 
HM.. JE PRENDS: 
CELUI DES DEUX QUI OTE LA DERNIERE À GAGNE. 1L IL RESTE 6 4 
RENTREZ VOS COUPS DE LA MANIERE SUIVANTE: VOTRE COUP? 1B 
IL RESTE 5 3 
2L -PRENDRE DEUX DE LA PILE DE GAUCHE 
3R -PRENDRE TROIS DE LA PILE DE DROITE HM.. JE PRENDS: 
5B -PRENDRE CINQ DANS CHAQUE PILE 1L IL RESTE 4 3 
VOTRE COUP? 2B 
TAILLE DESIREE DES PILES (NOMBRE,NOMBRE)? 17,22 IL RESTE 2 1 
VOULEZ-VOUS COMMENCER? OUI HM.. JE PRENDS: 
1L IL RESTE 1 1 
GAUCHE DROITE 
Frr mme VOTRE COUP? 18 
17 22 IL RESTE O [e) 
VOTRE COUP? 3L HM.. 


IL RESTE 14 22 


VOUS AVEZ GAGNEII 
HM.. JE PRENDS: 


2B IL RESTE 12 20 FELICITATIONS. VOUS ETES UN JOUEUR DE VAN WYTHOFF 
TRES INTELLIGENT. 


VOTRE COUP? 3B 
IL RESTE 9 17 VOULEZ-VOUS REJOUER? NON 
HM.. JE PRENDS: O.K. AU REVOIR MAINTENANT. 
2R IL RESTE 9 15 Ok 
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à PRINT CHR$(26) 

5 PRINT TAB(26) ;"VANGAM" 

6 PRINT TAB(20);"CREATIVE COMPUT ING" 

7 PRINT TAB(18);"MORRISTOWN, NEW JERSEY" 

8 PRINT:PRINT 

10 DIM Q(200) 

15 X=(14SQR(5))/2:Y=1+1/X:X=14X 

16 FOR 1=0 T0 99 

17 QUI#2)=INT(I#X):Q(1#2+1)2INT(I#Y) 

18 NEXT I:1=0 

20 PRINT "LE JEU DE VAN WYTHOFF: VOULEZ-VOUS LES INSTRUCTIONS"; 

30 INPUT B$:1F LEFT$(B$,1)="N" THEN 130 

35 PRINT 

40 PRINT "VOUS DEVEZ CREER DEUX PILES D'ALLUMETTES,CHACUNE EN CONTENANT" 
50 PRINT "100 OU MOINS. VOUS JOUEZ EN ALTERNANCE AVEC MOI,ET NOS " 

60 PRINT "COUPS CONSISTENT EN:":PRINT 

65 PRINT TAB(10);"(A) PRENDRE 1 OU PLUSIEURS ALLUMETTES D'UNE SEULE"; 
67 PRINT " PILE, OU" 


70 PRINT TAB(10);"(B) PRENDRE LE MEME NOMBRE D'ALLUMETTES DE CHAQUE PILE." 


75 PRINT 

80 PRINT "CELUI DES DEUX QUI OTE LA DERNIERE À GAGNE." 

85 PRINT 

90 PRINT "RENTREZ VOS COUPS DE LA MANIERE SUIVANTE:" 

95 PRINT 

100 PRINT TAB(10);"2L -PRENDRE DEUX DE LA PILE DE GAUCHE" 
110 PRINT TAB(10) -PRENDRE TROIS DE LA PILE DE DROITE" 
120 PRINT TAB(10);"5B -PRENDRE CINQ DANS CHAQUE PILE" 

130 PRINT:PRINT 

200 INPUT "TAILLE DESIREE DES PILES (NOMBRE, NOMBRE )";S1,S2 
210 L=S1:R=S2 

220 IF L+4R>5 THEN 240 

230 PRINT "OH, VOUS ETES UN SPORTIF, VRAIMENT." 

240 PRINT.INPUT "VOULEZ-VOUS COMMENCER" ;B$ 

255 PRINT:PRINT TAB(24);"GAUCHE DROITE" 

256 PRINT TAB(24);"= " 

257 PRINT TAB(27);L;TAB(33);R 

260 P=L*2:1F LOR THEN 400 

270 P=R*2 

400 IF LEFT$(B$,1)="N" THEN 690 

405 IF L=R THEN PRINT "VOUS AIMEZ LA SYMETRIE, N'EST-CE PAS?" 
410 PRINT:LINE INPUT "VOTRE COUP?  ";8$ 

415 FOR X=1 TO LEN(B$) 

420 IF ASC(MID$(B$,X,1))<48 DR ASC(MID$(B$,X,1))>57 THEN 425 
423 NEXT X 

425 S3=VAL(MID$(B$,1,X-1)) 

427 IF S3=0 THEN 460 

430 IF MID$(B$,X,1)="L" THEN 550 

440 IF MID$(B$,X,1)="R" THEN 570 

450 IF MID$(B$,X,1)="B" THEN 590 

460 T=T+1:1F 1>2 THEN 1940 

470 PRINT:PRINT "MAUVAISE ENTREE, ARRETEZ DE FAIRE DES BETISES.":GOTO 410 
550 IF S3L THEN 460 

555 L=L-S3:G0T0 610 ; 

570 IF S3R THEN 460 

575 R=R-S3:G0T0 610 

590 IF S3L THEN 460 

600 L=L-S3:GOT0 570 

610 PRINT TAB(19);"IL RESTE"; TAB(27);L;TAB(33);R 

614 PRINT:PRINT "HM.. "; 

615 FOR 1=1 T0 500:A=A+#I:NEXT I 

620 IF L+R>0 THEN 690 

630 PRINT:PRINT:PRINT "VOUS AVEZ GAGNE!!":PRINT 

635 PRINT "FELICITATIONS. VOUS ETES UN JOUEUR DE VAN WYTHOFF" 





637 







890 M=R-Q(P):R=Q(P ):A 
895 M= 


PRINT "TRES INTELLIGENT." 
GOTO 1900 

1=0:M=0 

IF Q(I)=L THEN 760 

IF Q(I+1)=L THEN 780 

IF Q(I)=R THEN 800 

IF Q(I+1)=R THEN 820 
1=1+2:G0T0 700 
Li=l:L2=1:1F M=1 THEN 840 
GOTO 720 

:L2=0:IF M=1 THEN 840 
GOTO 720 

:R2=1:IF M=l THEN 840 
GOTO 740 

:R2=0:IF M=1 THEN 840 
M=1: GOTO 740 

IF L£R THEN 895 

1F RI=L1 THEN 1080 

IF LIDR1 THEN 900 

P=L1#2 

IF Q(P)DR THEN 940 
R":GOTO 1110 
OTO 1110 





L20:R20:A$="8 
P=R14R2 

IF Q(P)DL THEN 940 
M=L-Q(P):L=Q(P):A$="L":GO0TO 1110 
M=0:A$= 
P=Ll:1F RICLI THEN P=R1 








1000 
1010 
1020 
1030 
1040 
1045 
1050 IF Q(I)=R THEN 1110 


1055 
1060 
1065 
1070 
1075 
1077 
1080 
1090 
1100 
1110 
1113 
1114 
1115 
1120 
1130 
1900 
1910 
1920 
1950 
1935 
1940 
1945 
1970 
1980 
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FOR I=P TO O STEP -2 
IF Q(I)=L THEN 1040 
IF Q(I+1)=L THEN 1050 
IF Q(I)=R THEN 1060 
IF Q(I+1)=R THEN 1070 
NEXT 1:G0T0 965 
IF Q(I+1)=R THEN 1110 
GOTO 1075 


GOTO 1075 
IF Q(I+1)=L THEN 1110 
GOTO 1075 

IF Q(I)=L THEN 1110 
IF G=1 THEN 960 
G=1:GOT0 965 

IF LOR THEN 1100 









IF M>9 THEN 1930 
B$=CHR$(M+48) 

B$-8$ 
PRINT "JE PRENDS: ";TAB(14);B$;TAB(19);"IL RESTE";TAB(27);L;TAB(33);R 
IF L+R20 THEN 410 

PRINT:PRINT M"DESOLE -JE GAGNE.NE SOYEZ PAS TRISTE -JE SUIS UN EXPERT." 


PRINT:INPUT "VOULEZ-VOUS REJOUER";B$ 

IF LEFT$(B$,1)="0" THEN 130 

GOTO 1970 
BS$=CHR$(INT(M/10)+48):B$=B$+CHR$(M-INT (M/10)*10+48) 
GOTO 1114 

PRINT:PRINT "OH , VOUS VOUS FOUTEZ DE MOI.CHIAO." 
GOTO 1970 

PRINT:PRINT "O.K. AU REVOIR MAINTENANT." 

END 





arfish 





(Le poisson de la guerre) 


Dans ce jeu, vous êtes le commandant 
d'un sous-marin américain pendant la 
Seconde Guerre mondiale. Votre mission 
consiste à repérer et à détruire le plus de 
bateaux japonais possible. 

Vous pouvez sortir votre périscope pour 
chercher ces bateaux japonais. Vous 
lancez des torpilles, ou vous pouvez 
plonger pour éviter les attaques de ces 
bateaux. 

C'est en grande partie un jeu à 
caractère aléatoire. Pour lui donner plus 
d'intérêt, vous pouvez introduire un 
facteur d’habileté pour armer votre sous- 
marin, où pour évaluer la distance qui 
vous éloigne d’un navire ennemi, la taille 
du bateau ennemi, etc. 

« Le Poisson de la guerre » a été écrit 
par Randy Wit. 


RUN 
LE POISSON DE LA GUERRE 
CREATIVE COMPUTING 


MORRISTOWN, NEW JERSEY 


DESIREZ-VOUS LES REGLES DU JEU? OUI 


VOUS COMMANDEZ UN SOUS-MARIN AMERICAIN AYANT POUR MISSION D'ATTAQUER LES 


NAVIRES JAPONAIS.CE JEU SE DEROULE PENDANT LA SECONDE GUERRE MONDIALE. 


VOUS POUVEZ DONNER LES ORDRES SUIVANTS: 


PERISCOPE - RECHERCHER LES NAVIRES JAPONAIS. 
TORPILLE - LANCER LES TORPILLES CONTRE L'ENNEMI. 
DESCENTE-ECHAPPER À L'ATTAQUE DE L'ENNEMI. 


VOICI QUELQUES CELERRES SOUS-MARINS AMERICAINS: 


TAUTOG, SILVERSIDES, 
SWORDFISH, FLASHER, TROUT, ARCHER. 
CHOISISSEZ-EN UN DE CEUX-LA OÙ UN DE 


IMPRIMEZ LE NOM DE VOTRE SOUS-MARIN? TAUTOG 


À VOS ORDRES, 
AFFRFTEUR JAPONAIS 


COMMANDANT? P 
— 8100 TONNEAUX. 


A VOS ORDRES, COMMANDANT? T 
26 TORPILLES DANS L'ARSENAL. 
NOMBRE DE TORPILLES A TIRER? 1 
1 TORPILLES LANCEES - O ONT ATTEINT 


LEUR CIBLE 


À VOS ORDRES, COMMANDANT? T 
25 TORPILLES DANS L'ARSENAL. 
NOMBRE DE TORPILLES A TIRER? 1 
1 TORPILLES LANCEES - O ONT ATTEINT 


LEUR CIBLE 


À VOS ORDRES, COMMANDANT? T 
24 TORPILLES DANS L'ARSENAL. 
NOMBRE DE TORPILLES À TIRER? 1 
1 TORPILLES LANCEES - O ONT ATTEINT 


LEUR CIBLE 


À VOS ORDRES, COMMANDANT? T 
23 TORPILLES DANS L'ARSENAL. 
NOMBRE DE TORPILLES A TIRER? 1 
1 TORPILLES LANCEES - O ONT ATTEINT 


LEUR CIBLE 


À VOS ORDRES, COMMANDANT? T 
22 TORPILLES DANS L'ARSENAL. 
NOMBRE DE TORPILLES À TIRER? 1 
1 TORPILLES LANCEES - O ONT ATTEINT 


LEUR CIBLE 


A VOS ORDRES, COMMANDANT? T 
21 TORPILLES DANS L'ARSENAL. 
NOMBRE DE TORPILLES À TIRER? 1 
1 TORPILLES LANCEES - 1 ONT ATTEINT 


LEUR CIBLE 


CAVALLA, BLUEFISH, THRESHER 


VOTRE CHOIX. 


- AFFRETEUR COULE. 


A VOS ORDRES, COMMANDANT? P 
AFFRETEUR JAPONAIS - 7500 TONNEAUX. 


A VOS ORDRES, COMMANDANT? T 
20 TORPILLES DANS L'ARSENAL. 
NOMBRE DE TORPILLES A TIRER? 1 
1 TORPILLES LANCEES - O ONT ATTEINT 


A VOS ORDRES, COMMANDANT? T 
19 TORPILLES DANS L'ARSENAL. 
NOMBRE DE TORPILLES A TIRER? 1 
1 TORPILLES LANCEES - O ONT ATTEINT 


A VOS ORDRES, COMMANDANT? T 
18 TORPILLES DANS L'ARSENAL. 
NOMBRE DE TORPILLES A TIRER? 1 
1 TORPILLES LANCEES - O ONT ATTEINT 


A VOS ORDRES, COMMANDANT? T 
17 TORPILLES DANS L'ARSENAL. 
NOMBRE DE TORPILLES A TIRER? 1 
1 TORPILLES LANCEES - O ONT ATTEINT 


A VOS ORDRES, COMMANDANT? T 
16 TORPILLES DANS L'ARSENAL. 
NOMBRE DE TORPILLES A TIRER? 1 
1 TORPILLES LANCEES - 1 ONT ATTEINT 


A VOS ORDRES, COMMANDANT? P 
BATEAU-CITERNE JAPONAIS - 


A VOS ORDRES, COMMANDANT? T 
15 TORPILLES DANS L'ARSENAL. 
NOMBRE DE TORPILLES A TIRER? 1 
1 TORPILLES LANCEES - O ONT ATTEINT 


A VOS ORDRES, COMMANDANT? T 
14 TORPILLES DANS L'ARSENAL. 
NOMBRE DE TORPILLES A TIRER? 1 
1 TORPILLES LANCEES - © ONT ATTEINT 


À VOS ORDRES, COMMANDANT? T 
13 TORPILLES DANS L'ARSENAL. 
NOMBRE DE TORPILLES A TIRER? 1 
1 TORPILLES LANCEES - 1 ONT ATTEINT 


A VOS ORDRES, COMMANDANT? P 
AFFRETEUR JAPONAIS - 6500 TONNEAUX. 


À VOS ORDRES, COMMANDANT? T 
12 TORPILLES DANS L'ARSENAL. 
NOMBRE DE TORPILLES A TIRER? 1 
1 TORPILLES LANCEES - 1 ONT ATTEINT 


LEUR CIBLE 


LEUR 


CIBLE 


LEUR 


CIBLE 


LEUR 


CIBLE 


LEUR CIBLE - AFFRETEUR COULE. 


10000 TONNEAUX. 


LEUR CIBLE 


LEUR CIBLE 


LEUR CIBLE - BATEAU-CITERNE COULE. 


LEUR CIBLE - AFFRETEUR COULE. 


LE ESCORTEUR DU DESTROYER ENNEMI ATTAQUE. 


A VOS ORDRES, COMMANDANT? D 


DISTANCE ESCORTEUR DU DESTROYER ENNEMI 


PROFONDEUR DU SOUS-MARIN US 


RERR22R22SS2SSSSSSSSSSESSLSSSSSSSSSSLSESSSSSSESSESSSSSSSSSESESSSSUSMSNSS 


TAUTOG 
750 KMS 
500 KMS 
250 KMS 
O KMS 
LE SOUS-MARIN US TAUTOG EST INDEMNE. 


LE 


DESTROYER ENNEMI ATTAQUE. 


À VOS ORDRES, COMMANDANT? T 


11 


TORPILLES DANS L'ARSENAL. 


NOMBRE DE TORPILLES À TIRER? 2 
2 TORPILLES LANCEES - 1 ONT ATTEINT LEUR CIBLE - DESTROYER TOUCHE. 


O PIEDS 
25 PIEDS 
50 PIEDS 
75 PIEDS 


LE SOUS-MARIN US TAUTOG À ETE COULE PAR UNE CANONNADE. 


LE SOUS-MARIN US TAUTOG À COULE AU TOTAL 4 NAVIRES. 


TOTAL DU TONNAGE ENNEMI COULE: 


DESIREZ-VOUS REJOUER? NON 


Ok 
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32,100 TONNEAUX. 


1 PRINT CHR$(26);TAB(25)"LE POISSON DE LA GUERRE" 

2 PRINT TAB(20)"CREATIVE COMPUTING" 

3 PRINT TAB(18)"MORRISTOWN, NEW JERSEY" 

5 PRINT 

6 PRINT 

7 PRINT 

9 DIM A$(72) 

10 Q0=RND(1) 

30 PRINT"DESIREZ-VOUS LES REGLES DU JEU"; 

40 INPUT X$ 

50 IF LEFT$(X$,1)="N" THEN 200 

S1 IF LEFT$(X$,1)="Y" THEN 60 

52 PRINT'REPONDEZ PAR OUI OÙ NON" 

53 GOTO 30 

60 PRINT 

70 PRINT"VOUS COMMANDEZ UN SOUS-MARIN AMERICAIN AYANT POUR MISSION D'ATTAQUER LES" 
80 PRINT" NAVIRES JAPONAIS.CE JEU SE DEROULE PENDANT LA SECONDE GUERRE MONDIALE." 
90 PRINT 

PRINT "VOUS POUVEZ DONNER LES ORDRES SUIVANTS: ":PRINT 





291 
300 
310 
311 
312 
313 
314 
315 
320 
330 
335 
340 
350 
360 
370 
371 
380 
390 
400 
410 
420 
430 
435 
440 
445 
450 
455 
460 
465 
470 
475 
480 
481 
482 
485 
490 
491 
500 
501 
502 
505 
510 
515 
520 
530 
535 
540 
545 
550 
560 
570 
575 


PRINT"PERISCOPE — RECHERCHER LES NAVIRES JAPONAIS." 
PRINT'TORPILLE - LANCER LES TORPILLES CONTRE L'ENNEMI." 
PRINT'PLONGEE-ECHAPPER A L'ATTAQUE DE L'ENNEMI." 

PRINT 

PRINT"VOICI QUELQUES CELEBRES SOUS-MARINS AMERICAINS :":PRINT 
PRINT" TAUTOG, SILVERSIDES, CAVALLA, BLUEFISH, THRESHER" 
PRINT" SWORDFISH, FLASHER, TROUT, ARCHER.":PRINT 
PRINT"CHOISISSEZ-EN UN DE CEUX-LA OU UN DE VOTRE CHOIX." 
PRINT'IMPRIMEZ LE NOM DE VOTRE SOUS-MARIN"; 

INPUT A$ 

1=26 

D=INT(RND(1)#10) 

IF D<6 THEN 330 

IF D<>6 AND D<> 7 THEN 270 

R$="DE TROYER" 

W=2100 

IF DCB THEN 290 

R$="ESCORTE DU DE TROYER" 

W=1350 

IF D©9 THEN 310 

R$="LANCE TORPILLES" 

W=70 

IF D=6 OR D=7 THEN 313 

Q=1 

GOTO 314 

Q=2 

PRINT 

PRINT 
PRINT'L'ENNEMI "3R 
IF D>= 6 THEN 340 
A=INT(RND(1)#10) 
PRINT 

PRINT 
PRINT"A VOS ORDRES, *OMMANDANT"; 
INPUT C$ 

C$=MID$(C$,1,1) 

IF C$="P" THEN 420 

IF C$="T" THEN 780 

IF C$="D" THEN 990 

GOTO 360 

IF D>5 OR Q>0 THEN 760 

IF AD24 THEN 470 
R$="AFFRETEUR" 

IF AOO AND AQ@1 THEN 450 
W=6500 

IF AQ 2 THEN 460 

W=7500 

IF A3 THEN 470 

W=8100 

IF A7 AND ACB THEN 490 
R$="BATEAU-CITERNE" 

IF ACB THEN 485 

W=10000 

GOTO 490 

W=9500 

IF AC>4 AND AC5 THEN 510 
R$="TRANSPORT" 

IF AC5 THEN 505 

W=11500 

GOTO 510 

W=8800 

IF AC6 THEN 530 
R$="BATEAU DE MUNITIONS" 
W=9650 

IF A>=9 OR A=6 THEN 540 
q=1 

IF A6 THEN 550 

Q=1 

IF A<9 THEN 760 
E=INT(RND(1)#10) 

IF E@0O THEN 590 
R$="CUIRASSE" 





"ATTAQUE." 


580 
590 
595 
600 
610 
615 
620 
630 
635 
640 
650 
655 


670 
675 
680 
690 
700 
710 
715 
720 
725 
730 
735 
740 
745 
750 
755 
760 
770 
780 
785 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 





905 
910 
920 
930 
940 
945 
950 
955 
960 
970 


985 
990 
995 
1000 
1010 
1020 
1025 
1030 


1040 
1050 
1060 
1070 
1080 
1090 
1099 
1100 
1110 
1111 
1120 
1130 
1140 
1150 
1160 
1170 
1175 
1180 
1190 
1200 


1205 
1206 
1207 
1210 
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W=335001 

IF EC1 THEN 610 
R$="AVIATION EMBARQUEE" 
W=25700 

IF EC>2 THEN 
R$="CROISEUR 
W= 9900 

IF EC>3 THEN 
R$="CROISEUR 
W=9600 

IF EC>4 AND ECS THEN 670 
R$="DE TROYER" 

W=2100 

IF E<26 AND E<>7 THEN 
R$="SOUS-MAR IN" 
W=1500 

IF E<>8 AND E<2>9 THEN 
W=1350 

IF E<=5 THEN 720 

Q=1 


630 
L'OURD" 


650 
LEGER" 


690 


710 


IF E<>4 AND EC>5 THEN 
u=2 

IF EC2 AND EC3 THEN 
u=3 

IF EC] THEN 750 

W=4 

IF ECO THEN 760 

Q=7 

PRINT "JAPONAIS "3R$;" -"3;W3; "TONNEAUX." 
GUTO 340 

IF Q>=1 THEN 800 

PRINT"PAS DE NAVIRE JAPONAIS EN VUE - JUSTE L'OCÉAN." 
IF Q<1 THEN 360 
PRINT 
PRINT "NOMBRE DE TORPILLES À TIRER"; 
INPUT R 

IF R<O OR T-R<O THEN 810 

IF ROINT(R) THEN 810 

T=T-R 

S=INT(RND(1)*10) 

IF S>R THEN 860 

Q=Q-S 

IF Q<=0 THEN 900 


750 


740 


T;"TORPILLES DANS L'ARSENAL." 


TOUCHE" 
=1 THEN 930 





Q$="COULE" 
U=0+W 
L=l+l 
PRINT R;"TORPILLES LANCÉES ="; 
IF SC>0 THEN 950 
PRINT 

IF S<20 THEN 960 
PRINT "= ":R$;" ":0$ 
IF D>5 AND Q>0 THEN 1140 
IF T<1 THEN 1160 

IF QC1 THEN 230 

GOTO 340 

IF D>26 THEN 
PRINT " LE SOUS-HARIN US ";A 








1000 





3" N'EST PAS ATTAQUE ." 
IF D<é THEN 360 

U=INT(RND(1)*10)*250+500 

PRINT:PRINT "DISTANCE DE L'ENNEMI ";R$;" 

FOR XX=1 10 72:PRINT "a"; :NEXT: PRINT 

PRINT USING 
G ££,£££ KMS 
U=U-250 

Z=2+25 

IF U>-250 THEN 1030 

IF R$="LANCE TORPILLES" THEN 1100 
N=INT(RND(1)#*10)#25+50 

IF N+262Z AND N-26€Z THEN 1120 
U=0:Z=0 

PRINT:PRINT "LE SOUS-MARIN US 
Q=0 

GOTO 230 

PRINT:PRINT "LE SUUS-MARIN US 
GOTO 1180 

PRINT:PRINT "LE SUUS-MARIN US 
GOTO 1180 

PRINT:PRINT "LE SOUS-MARIN US 
IF 0<20 THEN 1180 


"3A$;" EST INDEMNE." 


"AG; 
"Ag; 


"AG; 


3"ONT ATTEINT LEUR CIBLE "; 


PROFONDEUR DU SOUS-MARIN US ";A$ 


£,£££ PIEDS";U,2Z 


A ETE COULE PAR DES CHARGES ENNEMIES." 
A ETE COULE PAR UNE CANONNADE ." 


A EPUISE TOUTES SES TORPILLES." 


PRINT:PRINT "FELICITATIONS POUR CE DEPLOIEMENT REUSSI." 


PRINT 


PRINT "LE SOUS-MARIN US ";A$;" A COULE AU TOTAL ";L;"NAVIRES." 


PRINT "TOTAL DU TONNAGE ENNEMI COULE: "3: 
PRINT USING "£££,£££";0;:PRINT " TONNEAUX." 
PRINT:PRINT 

INPUT "DESIREZ-VOUS REJOUER";ANS$ 

IF LEFT$(ANS$,1)="Y" THEN 30 ELSE RUN "MENU" 
END 


Word Search Puzzle 





(Puzzle de mots) 





RUN 


Ce programme génère les très célèbres 
puzzles de mots qui contiennent des 
noms de présidents, d'Etats, des espèces 
d'animaux, des poissons et bien d’autres 
objets encore. Il vous demande la 
longueur et la largeur du puzzle que vous 
voulez créer, et le nombre de mots à 
cacher dans le puzzle. Comme les instruc- 
tions le signalent, l'ordinateur peut décider 
qu'il ne peut cacher un mot particulier 
dans le puzzle et il vous demande alors 
s'il doit recommencer ou s’il peut éliminer 
ce mot. Si vous recommencez, essayez 
de donner moins de mots ou des dimen- 
sions plus grandes pour le puzzle. Le 
programme cache si bien les mots qu'il 
peut vous arriver de ne pas les retrouver 
dans le puzzle qu'il vous donne. Ce 
programme est tout à fait suffisant si vous 
l'utilisez uniquement pour votre détente. 

Ce générateur de puzzles de mots a été 
créé par Leor Zolman. 


PUZZLE DE MOTS 
CREATIVE COMPUTING 
MORRISTOWN, NEW JERSEY 


CE PROGRAMME GENERE DES PUZZLES DE MOTS 11 


LE PROGRAMME PREND EN ENTREE UN ENSEMBLES DE ‘MOTS',LES NETTOIE DE 


TOUT LES CHARACTERES NON ALPHABETIQOUES, ET LES INCORPORE 
DANS UN PUZZLE DE MOTS. 


EN ESSAYANT DE FAIRE LE PUZZLE ,LA MACHINE PEUT TROUVER 
QU'ELLE NE PEUT METTRE UN DES MOTS NULLE PART, ET VOUS 
DEMANDERA ALORS SI ELLE DOIT RECOMMENCER TOUT LE PUZZLE 
SI VOUS NE VOULEZ PAS QU'ELT.E RECOMMENCE, TAPER ‘NON' 
ANNULERA CE MOT PARTICULIER. SI CELA CONTINUE, ESSAYEZ 

DE DONNER MOINS DE MOTS OU DES DIMENSIONS PLUS GRANDES! 


COMBIEN DE COLONNES POSSEDE VOTRE IMPRIMANTE? 72 
VOULEZ VOUS L'IMPRESSION DE LA SOLUTION? OUI 
QUELLE SERA LA LARGEUR DU PUZZLE? 15 

LA LONGUEUR? 10 


QUEL EST LE NOMBRE MAXIMAL DE MOTS DANS LE PUZZLE? 10 


ENTREZ MAINTENANT UN TITRE QUI SERA MIS AU DESSUS DU PUZZLE: 


( 72 CHARACTERES MAXIMUMI ) 
? LANGAGES ORDINATEURS 


OK . . . ENTREZ UN MOT APRES CHAQUE POINT D'INTERROGATION. 


POUR ANNULER LE MOT PRECEDENT, TAPEZ UN TIRET (-). 


TAPEZ UN POINT (.) QUAND VOUS ETES À COURT DE MOTS. 


? ALGOL 

-alqol- 

? ASSEMBLER 

-assembler- 

? BASIC 

-basic- 

? COBOIL 

-cobol- 

? FORTRAN 

-fortran- 

? LISP 

-lisp- 

? PILOT 

-pilot- 

? PLI 

-pli- 

? RPG 

-rpa- 

? SNOBOL 

-snobol- 

CELA FAIT... 10 MOTS. 

MAINTENANT LAISSEZ MOI REFLECHIR LA DESSUS... 
COMBIEN D'EXEMPLAIRES DE CE PUZZLE DESIREZ VOUS? 1 
POUR CHAQUE EXEMPLAIRE,TAPEZ RETURN ... 
? 


LANGAGES ORDINATEURS 


nNNCOrFATA<O 
KOTEKOO!UEE 
<OEsmuwweQaQ 
KOXOUOTrnOz*+< 
1HINCUETHEZzZO 
>OZOUHE<QU 
ANT TVHEZXA 
>uUnm<nnOc> 
NIUE HA > 
N'UXOxZOUTU< 
xmurAwOmzZQ 
AP>MHWUMeEwWE 
MOnUCr>Om> 7 
VT>rHWmOwWWXTEI 
WKHMOUVTOUN<O 


TROUVEZ CES MOTS CACHES DANS LE PUZZLE CI DESSUS: 


algol assembler basic cobol 
snobol lisp pilot pli 


VOICI LA REPONSE: 


TROUVEZ CES MOTS CACHES DANS LE PUZZLE CI DESSUS: 


algol assembler basic cobol 
snobol lisp pilot pli 
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fortran 
rpg 


fortran 
rpg 


5 PRINT CHR$(26):WIDTH 80 

10 PRINT TAB(20);"PUZZLE DE MOTS" 

20 PRINT TAB(20);"CREATIVE COMPUTING" 

30 PRINT TAB(18);"MORRISTOWN, NEW JERSEY" 
40 PRINT:PRINT:PRINT 


50 PRINT " 


CE PROGRAMME GENERE DES PUZZLES DE MOTS 11" 


60 PRINT "LE PROGRAMME PREND EN ENTREE UN ENSEMBLES DE "MOTS',LES NETTOIE DE" 
70 PRINT "TOUT LES CHARACTERES NON ALPHABETIQUES, ET LES INCORPORE" 
80 PRINT "DANS UN PUZZLE DE MOTS." 





90 PRINT 

100 PRINT " EN ESSAYANT DE FAIRE LE PUZZLE ,LA MACHINE PEUT TROUVER" 
110 PRINT "QU'ELLE NE PEUT METTRE UN DES MOTS NULLE PART, ET VOUS" 
120 PRINT "DEMANDERA ALORS SI ELLE DOIT RECOMMENCER TOUT LE PUZZLE" 
130 PRINT "SI VOUS NE VOULEZ PAS QU'ELLE RECOMMENCE, TAPER 'NON'" 
140 PRINT "ANNULERA CE MOT PARTICULIER. SI CELA CONTINUE, ESSAYEZ" 
150 PRINT " DE DONNER MOINS DE MOTS OU DES DIMENSIONS PLUS GRANDES" 
160 PRINT:PRINT 

280 CLEAR 3000 

300 DEF FNA(Z)=INT(RND(1)#Z+1) 

310 INPUT "COMBIEN DE COLONNES POSSEDE VOTRE IMPRIMANTE" ;TW 

320 INPUT "VOULEZ VOUS L'IMPRESSION DE LA SOLUTION";X$ 

330 INPUT "QUELLE SERA LA LARGEUR DU PUZZLE";W:MD=W 

340 IF W#2<=TW THEN 345 

343 PRINT "CES";TW;" COLONNES NE SUFFIRONT PAS.":GOTO 330 

345 IF W<l THEN 330 

350 INPUT "LA LONGUEUR";L:IF LOW THEN MD=L 

355 IF L<1 THEN 350 

360 INPUT "QUEL EST LE NOMBRE MAXIMAL DE MOTS DANS LE PUZZLE";M 

370 IF M>22 THEN 380 

375 PRINT "DESOLE; IL DOIT Y AVOIR AU MOINS DEUX MOTS.":GOTO 360 

380 PRINT 

390 DIM A$(L,W),W$(M) 

400 DIM W(M,3),DXY(8,2),DD(28) 

410 PRINT "ENTREZ MAINTENANT UN TITRE QUI SERA MIS AU DESSUS DU PUZZLE :" 
420 PRINT "("3TW;"CHARACTERES MAXIMUM! )" 

430 INPUT XY$ 

440 PRINT "OK . . . ENTREZ UN MOT APRES CHAQUE POINT D'INTERROGATION." 
450 PRINT "POUR ANNULER LE MOT PRECEDENT, TAPEZ UN TIRET (-)." 

460 PRINT "TAPEZ UN POINT (.) QUAND VOUS ETES A COURT DE MOTS." 

470 FOR I=1 TO M 

480 INPUT T$:1F T$="-" THEN I=I-L:PRINT M"ANNULATION DE ";W$(1);". . .":GOTO 480 
490 IF T$="." THEN M=1-1:GOT0 660 

500 IF LEN(T$)=0 THEN PRINT "ERREUR; RECOMMENCEZ:":GOTO 480 

510 J=1 

520 TE$=-MID$(T$,9,1):1F TE$>="a" AND TES$<="z" THEN 570 

525 IF TE$<C"A" OR TE$>"Z" THEN 530 

527 T$=LEFTS(T$,J-1)+CHR$(ASC(MIDS(T$,9,1))+32)+RIGHT$(T$,LEN(T$)-J):GOTO 570 
530 IF TE$=T$ THEN T$ GOTO 500 

540 IF J=LEN(T$) THEN T$=LEFT$(T$,2-1):GOTO 580 

550 IF J=1 THEN T$=RIGHT$(T$,LEN(T$)-1):9=9-1:GOT0 570 

560 T$=LEFT$(T$,3-1)+RIGHT$(T$,LEN(T$)-J):9=3-1 

570 J=J+1:1F J<=LEN(T$) THEN 520 

580 PRINT "-";T$;"-" 

600 IF LEN(T$)<=MD THEN 610 


605 
607 
610 
620 
630 
640 
650 
660 
680 
685 
690 
700 
710 
720 


PRINT "J'AI PEUR QUE CELA SOIT TROP LONG."; 

PRINT " ESSAYEZ EN UN AUTRE:":GOTO 480 

FOR 1Z=1 TO 1-1: IF W$(IZ)C©T$ THEN NEXT:GOTO 630 

PRINT "VOUS AVEZ DEJA ENTRE CELUI CI.ESSAYEZ ENCORE :":GOTO 480 
M$CI)=T$ 

NEXT I 

PRINT MCELA FAIT...";M; "MOTS." 

PRINT "MAINTENANT LAISSEZ MOI REFLECHIR LA DESSUS..." 

FOR I=1 TO M-1 

FOR J=1+1 TO M 

IF LEN(W$(1)) < LEN(WS(3)) THEN HZ$=WS$(1):W$(1)=M$(3):W$(3)=HZ$ 
NEXT:NEXT 

FOR 121 TO 8:READ DXY(I,1),DXY(1,2):NEXT 

FOR I=1 TO 28:READ DD(I):NEXT 


730 DATA 0, 
740 DATA 2, 
750 FOR I=1 
760 LN=LEN(W$ 
770 NT=0 

790 SD=DD(FNA(28)) 

800 SX=FNA(W):X1=5X+#(LN-1)#DXY(SD,1):1F X1<1 OR XIDW THEN 790 
810 SY=FNA(L):X1=SY+(LN-1)#DXY(SD,2):1F X1<1 OR X1DL THEN 790 
820 NT=NT+1l:1F NTCW#L#2 THEN 850 

830 PRINT "JE NE PEUX PLACER ‘";W$(1);"" DANS LE PUZZLE." 
832 INPUT "VOULEZ VOUS QUE JE RECOMMENCE";A$ 

834 IF LEFT$(A$,1)="o" THEN 750 

836 
850 
860 FOR P=1 TO LN 

870 IF LEN(A$(J,K)) AND A$(J,K)CMID$(W$(I),P,1) THEN 790 

880 J=J+DXY(SD,2):K=K4+DXY(SD,1):NEXT P 

900 J=SY:K25X 

910 FOR P=1 TO LN:A$(J,K)=MID$(W$(I),P,1) 

920 J=J4+DXY(SD,2):K=K+DXY(SD,1):NEXT 

940 W(I,1)=SX:W(1,2)=SY:W(1,3)=SD 

950 NEXT I 

970 FOR I=1 TO L 

975 FOR J=1 T0 W 

980 IF A$(I,2)="" THEN A$(I,J)=CHR$(FNA(26)+96) 

990 NEXT:NEXT 

1010 FOR I=1 TO M-1:FOR J=1+1 T0 M 

1020 IF W$(1)<=W$(J) THEN 1030 

1021 HZ$=W$(1):W$(1)=M$(I):H$(I)=HZ$ 

1025 FOR Kz=1 T0 3:HZ=W(I,K):W(I,K)=W(J,K):W(J,K)=HZ:NEXT K 
1030 NEXT J:NEXT 1 

1040 INPUT "COMBIEN D'EXEMPLAIRES DE CE PUZZLE DESIREZ VOUS";N 
1050 PRINT "POUR CHAQUE EXEMPLAIRE, TAPEZ RETURN ..." 

1060 FOR C=1 TO N:GOSUB 1070NEXT:GOTO 1230 

1070 INPUT A$:PRINT 

1080 T=(TW-2*W)/2:LPRINT 

1090 LPRINT 

1100 LPRINT TAB((TW-LEN(XY$))/2);XY$ 

1110 LPRINT:LPRINT 

1120 FOR J=1 TO L:LPRINT TAB(T); 

1130 FOR K=1 TO W:IF A$(J,K)="." THEN LPRINT ". ";:GOTO 1140 
1135 LPRINT CHR$(ASC(A$(J,K))-32);" "; 

1140 NEXT:LPRINT:NEXT 

1150 LPRINT:LPRINT 

1160 LPRINT "TROUVEZ CES MOTS CACHES DANS LE PUZZLE CI DESSUS:" 
1170 LPRINT 

1180 FOR J=1 TO M:1F LEN(W$(J))=0 THEN 1210 

1190 IF POS(O) + LEN(W$(J)) > TW-2 THEN LPRINT 

1200 LPRINT W$(J), 

1209 REM----- CHR$(12) IS THE PRINTER FORM FEED CHARACTER 

1210 NEXT:LPRINT:LPRINT:LPRINT:LPRINT:LPRINT CHR$(12) 

1220 RETURN 

1230 IF LEFT$(X$,1)="0" OR LEFT$(X$,1)="o" THEN 1250 

1240 END 

1250 REM 

1260 FOR 1=1 10 L:FOR J=1 TO W:A$(1,9)=" 
1270 FOR 1=1 TO M 

1280 LN=LEN(W$(1)):2=W(1,2):K=W(1,1) 
1290 FOR P=1 TO LN 

1300 A$(3,K)=MID$(W$(1),P,1) 

1310 J=J4DXY(W(1,3),2):K=K4DXY(W(I,3),1):NEXT P 
1320 NEXT 1 

1330 XY$="HERE IS THE ANSWER KEY:" 

1340 GOSUB 1070 

1350 PRINT:PRINT 

1360 END 

EOF HIT 

. 


PE | 
à 2,4,6,8,2,4,6,8,1,3,5,7 


<Onr- 





":NEXT J:NEXT I 
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Wumpus 1 


Origine du Wumpus 

Il y a deux ans, j'ai visité une compagnie d'ordinateurs 
individuels (People's Computer Company), et j'ai vu 
quelques-uns de leurs jeux, tels que Hurkle, Snark et 
Mugwump. « EECH ! » Telle a été ma réaction. Tous ces jeux 
avaient pour support une grille 10 par 10 et utilisaient les 
coordonnées cartésiennes. Trois d'entre eux dépassaient les 
bornes. J'ai commencé à réfléchir : « 1! doit bien y avoir un jeu 
de réflexion informatique sans cette (censuré) grille ! « En fait, 
pourquoi pas un jeu topologique — Imaginez un ensemble de 
points reliés d'une certaine façon, le joueur se déplaçant dans 
cet ensemble grâce aux interconnexions. 

Cet après-midi-là, après réflexion, une phrase m'est venue 
à l'esprit : «11 faut chasser le Wumpus. » C'est ainsi que 
Wumpus est né. Il reste encore un peu vague sur les détails 
physiques, comme la plupart des chasseurs de Wumpus le 
savent. Mais les apparences font partie du jeu. (Si vous 
voulez, envoyez-moi le dessin de votre version du Wumpus. 
Peut-être notre éditeur Dave aura-t-il l'amabilité de publier le 
meilleur dans « Creative Computing ».) La grille que j'ai 
choisie représente les sommets d'un dodécaèdre — tout 
simplement parce que c'est mon solide préféré, et qu'il y a 
quelques années, j'ai construit une maquette de cette forme. 
Les côtés sont devenus des tunnels reliant les grottes où 
étaient placés les points de la figure. 

Mon idée de base, à ce moment-là, était que le joueur 
s'approche du Wumpus à revers, en parcourant le dodé- 
caèdre. À ma connaissance, cela ne s'est jamais produit 
antérieurement, la plupart des joueurs adoptant une autre 
stratégie plutôt que cette approche « coupe-gorge ». 

Mais alors, comment capturer ce Wumpus ! Que diriez- 
vous d’une flèche qui pourrait dévier sa trajectoire dans les 
coins pour passer de pièce en pièce ? Que le chasseur lui 
indique sa voie, et vole la flèche ! Le trajet boucle le plus 
court, sans retour, passe par cinq grottes. 

Hmm ! Comment voir ce Wumpus ? ll*fait noir dans ces 
grottes ! et la lumière pourrait le réveiller ! Si quelqu'un s'en 
approche de moins d'une grotte, le flair développé du 
Wumpus le détecte. Plus on est loin et mieux c'est... mais 
Wumpus est encore trop facile ainsi, ajoutons quelques 
dangers adéquats dans ces grottes ! 

Des puits insondables, c'est facile ! N'importe quelle grotte 
en a. Les chauves-souris géantes, cela a été plus laborieux : il 
m'a fallu un jour ou deux pour avoir cette idée. Ces 
super-chauves-souris sont des espèces de moyens de 
transport rapides, un peu insensés. Elles vous emportent à 
une distance aléatoire vers une grotte aléatoire, et elles vous 
laissent là. Si vous êtes sur un puits ou un Wumpus, eh bien 
vous êtes entre les mains du destin. 

À ce moment-là, j'ai réalisé que la topographie occuperait 
régulièrement les chasseurs de Wumpus. J'ai numéroté les 
grottes et fait un arrangement dans l'espoir qu'un joueur 
averti le remarquerait et ferait lui-même une carte permanente 
des cavernes. (Un autre espoir non réalisé : pour exercice, 
faites vous-même une telle carte sur un dodécaèdre aplati.) 

Pour entamer le jeu normalement, Wumpus, dangers et 
chasseur sont placés en différents points au début du jeu. 
Chaque jeu commence par un choix aléatoire d'emplace- 
ments, mais le chasseur peut recommencer au même endroit 


Un dodécaèdre 
aplati 


s'il le désire. Cela permet de rejouer si le chasseur 
malchanceux tombe dans un gouffre dès le premier mou- 
vement. 

Wumpus était pratiquement terminé dans ma tête... (juste 
un conseil à ceux qui écrivent des jeux : ayez des notions bien 
claires de votre jeu avant de commencer à le coder. Cela évite 
beaucoup de désordre), mais j'estimais qu'il était encore un 
peu lourd. Une fois que vous avez trouvé le Wumpus, tout ce 
qu'il vous reste à faire, c'est de le tirer. Pour changer cela, j'ai 
donné un peu de vie au Wumpus. Si vous lancez une flèche, 
ou si vous avancez dans sa grotte, il peut choisir de se 
déplacer jusqu'à une grotte avoisinante, ou bien de rester 
dans la même (ce qui fait quatre possibilités). Si vous vous 
trouvez dans la même grotte que lui après qu'il se soit 
déplacé, il vous DÉVORE sur le champ !!! 

A ce moment-là, je remarquais que les gouffres et les 
chauves-souris n’affectaient pas le Wumpus. Pour l'expliquer, 
j'ai ajouté un peu de couleur en concevant le Wumpus 
énorme et avec les légendaires pieds à ventouses. Après 
tout, l'évolution se fait d'étrange façon ! Si le Wumpus vous 
tente vraiment, faites une version dans laquelle il évite les 
gouffres, et où les chauves-souris peuvent le transporter 
d'une caverne à une autre (avec la possibilité qu'il atterrisse 
dans la vôtre). Ceci peut être réalisé grâce à un sous- 
programme : « déplacement du Wumpus ». 

J'ai écrit Wumpus et l'ai laissé à PPC, puis je suis rentré 
chez moi et j'ai rêvé à Wumpus 2. 


Naissance de Wumpus 

Environ un mois plus tard, je me suis rendu à la 
conférence Synergy à Stanford, où de nombreux par- 
ticipants de toutes provenances s'étaient réunis pour 
confronter leurs idées pour améliorer le monde. PPC avait de 
nombreux terminaux un peu partout dans la salle de 
conférence. À ma grande surprise, sur tous les terminaux, il y 
avait Wumpus, et des feuilles de papier sur le sol prouvaient 
que la chasse au Wumpus était en progrès. J'avais fait naître 
un jeu informatique qui remportait du succès. 

Plus tard, PPC publiait Wumpus qui paraissait dans le 
numéro de sept.-oct. 1975 de Creative Computing. 

Wumpus et ce commentaire sont du talentueux et inventif 
Gregory Yob. 


178 


RUN 
WUMPUS 


CREATIVE COMPUTING MORRISTOWN, NEW JERSEY 


INSTRUCTIONS? OUI 
BIENVENUE À ‘LA CHASSE AU WUMPUS" 


LE WUMPUS VIT DANS UNE CAVE DE 20 CHAMBRES.CHAQUE 
CHAMBRE POSSEDE 3 TUNNELS MENANT A D'AUTRES CHAMBRES. 
(REGARDEZ UN DODECAEDRE POUR Y VOIR CLAIR- SI VOUS NE 
CONNAISSEZ PAS LES DODECAEDRES,DEMANDEZ À QUELQU'UN) 


HASARD: 
PUITS SANS FOND - DEUX CHAMBRES ONT DES PUITS SANS FOND, DANS 
LESQUELS VOUS TOMBEZ (ET PERDEZI) SI VOUS Y ALLEZ 
CHAUVE-SOURIS GEANTES-DEUX AUTRES CHAMBRES ABBRITENT CES 
ANIMAUX.SI VOUS Y ALLEZ,UNE D'ENTRE ELLES VOUS PREND ET VOUS EMMENE 
DANS UNE CHAMBRE AU HASARD.(CE QUI PEUT ETRE PROBLEMATIQUE) 


WUMPUS : 

LE WUMPUS N'EST PAS GENE PAR LES HASARDS (IL À DES PIEDS 
VENTOUSE ET EST TROP GROS POUR LES CHAUVE-SOURIS).EN GENERAL 
IL DORT.DEUX CHOSES LE REVEILLE:VOTRE ENTREF DANS SA 
CHAMBRE OÙ VOTRE TIR DE FLECHE. 

S'IL SE REVEILLF,IL BOUGE (P=,75) D'UNE CHAMRRE 
OÙ RESTE TRANQUILLE (P=,25).ENSUITE,S'IL EST LA OU VOIS 
ETES,IL VOUS AVALE (ET VOUS PERDEZI) 


RENTRER "RETURN' POUR CONTINUER. 


VOUS: 
A CHAQUE TOUR,VOUS POUVEZ BOUGER OÙ TIRER UNE FLECHE COURBE 


MOUVEMENT : VOUS POUVEZ ALLER À UNE CHAMBRE (PAR LE TUNNEL) 
FLECHES:VOUS EN AVEZ 5.VOUS PERDEZ QUAND VOUS N'EN AVEZ PLUS. 
CHACUNE PEUT ALLER DE 1 À 5 CHAMBRES.VOUS VISEZ EN DONNANTA L'ORDINATEUR 
LES CHAMBRES DANS LESQOUELLES VOUS VOULEZ QUE LA FLECHE AILLE 
SI LA FLECHE NE PEUT Y ALLER (I.E.,PAS DE TUNNEL) ELLE BOUGE AU HASARD 
S1 LA FLECHE TOUCHE LE WUMPUS,VOUS GAGNEZ. 
SI ELLE VOUS TOUCHE,VOUS PERDEZ. 


MISE EN GARDE: 
QUAND VOUS ETES DANS LA CHAMBRE CONTIGUE DE CELLE DU 
WUMPUS OU D'UN PIEGE,L'ORDINATEUR VOUS DIT: 


WUMPUS- “CA SENT LE WUMI'''7" 
CHAUVE-SOURIS-  ‘CHAUVE-SOURIS TOUT PRES" 
PUIT - ‘JE SENS UN COURANT D'AIR' 


RENTRER "RETURN' POUR CONTINUER. 
LA CHASSE AU WUMPUS 


VOUS ETES DANS LA CHAMBRE 10 
DES TUNNELS MENENT À 2 9 11 


BOUGER OU TIRER (B-T)? B 
OÙ ALLER? 2 


CHAUVE-SOURIS TOUT PRFSI! 
VOUS ETES DANS LA CHAMBRE 2 
DES TUNNELS MENENT À 1 3 10 


BOUGFR OU TIRER (B-T)? T 

NO. DES CHAMBRES (1-5)? 3 

CHAMBRE #? 1 

CHAMBRE #? 3 

CHAMBRE #? 10 

AHAI VOUS AVEZ EU LE WUMPUSI 

HEE HEE HEE - LE WUMPUS VOUS AURA LA PROCHAINE FOIS! 


MEME CONSTRUCTION(O-N) OU ‘S' POUR SORTIR 
?N e 


LA CHASSE AU WUM: US 


CA SENT LE WUMPUS! 
VOUS ETES DANS LA CHAMBRE 9 
DES TUNNELS MENENT À 8 10 18 


BOUGER OÙ TIRER (B-T)? R 
OU ALLER? 8 


JE SENS UN COURANT D'AIRI 
VOUS ETES DANS LA CHAMBRE 8 
DES TUNNELS MENENT À 1 7 9 


BOUGER OÙ TIRER (B-T)? B 
OU ALLER? 7 


CHAUVE-SOURIS TOUT PRES! 


VOUS ETES DANS LA CHAMBRE 7 
DES TUNNELS MENENT À 6 8 17 


BOUGER OU TIRER (B-T)? B 

OU ALLER? 6 

ZAP--LA CHAUVE-SOURIS VOUS À SAISIIVOUS ETES AILLEURS! 
ZAP--LA CHAUVE-SOURIS VOUS À SAISIIVOUS ETES AILLEURSI 


VOUS ETES DANS LA CHAMBRE 3 
DES TUNNELS MENENT À 2 4 12 


BOUGER OU TIRER (B-T)? B 
OU ALLER? 2 


JE SENS UN COURANT D'AIR! 
VOUS ETES DANS LA CHAMBRE 2 
DES TUNNELS MENENT A | 3 10 


BOUGER OU TIRER (B-T)? B 
OU ALLER? | 
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YYYIIIIEFREE . . . VOUS TOMREZ DANS UN PUIT 
HA HA HA = VOUS AVEZ PERDUI 


MEME CONSTRUCTION(O-N) OU ‘S' POUR SORTIR 
? N 


LA CHASSE AU WUMPUS 


JE SENS UN COURANT D'AIR! 
CHAUVE-SOURIS TOUT PRESI 

VOUS ETES DANS LA CHAMBRE 1 
DES TUNNELS MENENT À 2 5 8 


BOUGER OU TIRER (B-T)? B 

OU ALLER? 5 

YYYIIIIEEEE . . . VOUS TOMBEZ DANS UN PUIT 
HA HA HA = VOUS AVEZ PERDUI 


MEME CONSTRUCTION(O-N) OU ‘S' POUR SORTIR 
7? N 


LA CHASSE AU WUMPUS 


JE SENS UN COURANT D'A”RI 
CHAUVE-SOURIS TOUT PRESI 

VOUS ETES DANS LA CHAMBRE 5 
DES TUNNELS MENENT À 1 4 6 


BOUGER OU TIRER (B-T)? B 

OU ALLER? 6 

YYYIIIIEEEE . . . VOUS TOMBEZ DANS UN PUIT 
HA HA HA = VOUS AVEZ PERDUI 


MEME CONSTRUCTION(O-N) OÙ ‘S' POUR SORTIR 
?N 


LA CHASSE AU WUMPUS 


JE SENS UN COURANT D'AIRI 
VOUS ETES DANS LA CHAMBRE 5 
DES TUNNELS MENENT À 1 4 6 


BOUGER OU TIRER (B-T)? R 
OU ALLER? 4 


CA SENT LE WUMI' "SI 
VOUS ETES DANS LA CHAMBRE 4 
DES TUNNELS MENENT À 3 5 14 


BOUGER OU TIRER (B-T)? T 
NO. DES CHAMBRES (1-5)? 3 
CHAMBRE #4? 3 

CHAMBRE #? 5 

CHAMBRE #? 14 

RATE 


VOUS ETES DANS LA CHAMBRE 4 
DES TUNNELS MENENT À 3 5 14 


BOUGER OÙ TIRER (B-T)? B 
OU ALLER? 3 


JE SENS UN COURANT D'AIRI 
VOUS ETES DANS LA CHAMBRE 3 
DES TUNNELS MENENT À 2 4 12 


BOUGER OU TIRER (B-T)? B 
OU ALLER? 2 


JE SENS UN COURANT D'AIRI 
VOUS FTES DANS LA CHAMBRE 2 
DES TUNNELS MENENT À 1 3 10 


BOUGER OU TIRER (B-T)? B 

OU ALLER? 1 

YYYIIIIEEEE . . . VOUS TOMBEZ DANS UN PUIT 
HA HA HA = VOUS AVFZ PERDUI 


MEME CONSTRUCTION(O-N) OÙ ‘S' POUR SORTIR 
?S 





10 PRINT TAB(33) ; ""WUMPUS":PRINT 








20 PRINT TAB(15);"CREATIVE COMPUTING  MORRISTOWN, NEW JERSEY" 2000 REM- IMPRESSION DES MISE EN GARDE (LIEU ET HASARD) 
22 PRINT 2010 PRINT 
24 PRINT 2020 FOR J= 2 IU6 
26 PRINT 2030 FOR K=1 10 3 
30 PRINT "INSTRUCTIONS"; 2040 IF S(L(1),K)©L(J) THEN 2110 
40 INPUT 1$ 2050 ON J-1 GOTO 2060,2080,2080,2100,2100 
50 IF LEFT$(I$,1)="N" THEN 60 2060 PRINT "CA SENT LE WUMPUS!" 
55 GOSUB 1000 2070 GOTO 2110 
60 REM-CONSTRUCTION DE LA CAVE (LISTE DE NOEUDS DODECAEDRIQUE ) 2080 PRINT "JE SENS UN COURANT D'AIR!" 
70 DIM 5(20,3) 2090 GOTO 2110 
80 FOR J=1 TO 20 2100 PRINT "CHAUVE-SOURIS TOUT PRES!" 
90 FOR K=1 TO 3 2110 NEXT K 
100 READ S(J,K) 2120 NEXT J 
110 NEXT K 2130 PRINT "VOUS ETES DANS LA CHAMBRE ";L(1) 
120 NEXT J 2140 PRINT "DES TUNNELS MENENT À "3S(L,1)3S(L,2);S(L,3) 
130 DATA 2,5,8,1,3,10,2,4,12,3,5,14,1,4,6 2150 PRINT 
140 DATA 5,7,15,6,8,17,1,7,9,8,10,18,2,9,11 2160 RETURN 
150 DATA 10,12,19,3,11,13,12,14,20,4,13,15,6,14,16 2500 REM- CHOIX DES OPTIONS 
160 DATA 15,17,20,7,16,8,9,17,19,11,18,20,13,16,19 2510 PRINT "BOUGER OU TIRER (B-T)"; 
170 DEF FNA(X)=INT(20*RND (1) )+1 2520 INPUT 1$ 
180 DEF FNB(X)=INT(3*RND(1) )+1 2530 IF 1$ <> "T" THEN 2560 
190 DEF FNC(X)=INT(4#*RND(1) )+1 2540 O=1 
200 REM- LOCALISATION DES OCCUPANTS DU TABLEAU L 2550 RETURN 
210 REM- 1-VOUS,2-WUMPUS, 3&4-GOUFFRES, 5&6-CHAUVE-SOURIS 2560 IF 1$ <> "B" THEN 2510 
220 DIM L(6),M(6) 2570 0=2 
230 FOR J=1 10 6 2580 RETURN 
240 L(J)=FNA(0O) 3000 REM- SOUS-PROGRAMME DES FLECHES 
260 M(J)=L(9) 3010 F=0 
270 NEXT J 3020 REM- CHEMIN DES FLECHES 
280 REM- VERIFICATION DES CROISEMENTS (IE L(1)=L(2) ETC) 3030 L=L(1) 
290 FOR J=1 10 6 3040 PRINT "NO. DES CHAMBRES (1-5)"; 
300 FOR K=J T0 6 3050 INPUT 29 
310 IF J=K THEN 330 3060 IF J9<1 OR J9>5 THEN 3040 
320 IF L(J)=L(K) THEN 239 3070 FOR K=1 TO J9 
330 NEXT K 3080 PRINT "CHAMBRE £"; 
340 NEXT J 3090 INPUT P(K) 
350 REM- SET£ ARROS 3095 IF K <= 2 THEN 3115 
360 A=5 3100 IF P(K) <> P(K-2) THEN 3115 
365 L=L(1) 3105 PRINT "LES FLECHES NE SONT PAS SI COURBEES - ESSAYEZ UNE AUTRE CHAMBRE" 
370 REM- ENVOI DU JEU 3110 GOTO 3080 
375 PRINT:PRINT "LA CHASSE AU WUMPUS":PRINT 3115 NEXT K 
380 REM- HASARD : LOCALISATIONS & PIEGES 3120 REM- TIR DES FLECHES 
390 GOSUB 2000 3140 FOR Kz1 T0 J9 
400 REM - BOUGER OU TIRER 3150 FOR K1z=l 10 3 
410 GOSUB 2500 3160 IF S(L,K1)=P(K) THEN 3295 
420 ON O GOTO 440,480 3170 NEXT KI 
430 REM- TIR 3180 REM- PAS DE TUNNELS POUR LES FLECHES 
440 GOSUB 3000 3190 L=S(L,FNB(1)) 
450 IF F=0 THEN 390 3200 GOTO 3300 
460 GOTO 500 3210 NEXT K 
470 REM- MOUVEMENT 3220 PRINT "RATE" 
480 GOSUB 4000 3225 L=L(1) 
490 IF F=0 THEN 390 3230 REM- MOUVEMENT DU WUMPUS 
500 1F F>0 THEN 550 3240 GOSUB 3370 
510 REM- PERDU 3250 REM-VERIF ICATION AMNO 
520 PRINT "HA HA HA - VOUS AVEZ PERDU!" 3255 A=A-] 
530 GOTO 560 3260 IF A>0 THEN 3280 
540 REM- GAGNER 3270 F=-1 
550 PRINT "HEE HEE HEE - LE WUMPUS VOUS AURA LA PROCHAINE FOIS!" 3280 RETURN 
560 FOR J=1 T0 6 3290 REM- VOIR SI LA FLECHE EST À L(1) OU L(2) 
570 L(J)=M(J) 3295 L=P(K) 
580 NEXT J 3300 IF L <> L(2) THEN 3340 
590 PRINT:PRINT "MEME CONSTRUCTION(O-N) OU ‘S' POUR SORTIR" 3310 PRINT "AHA! VOUS AVEZ EU LE WUMPUS!" 
600 INPUT 1$ 3320 F=1 
601 I$=LEFT$(1$,1) 3330 RETURN 
610 0" THEN 360 ELSE 3340 IF L <> L(1) THEN 3210 
IF 1$="S" THEN END 3350 PRINT "OUCH! LA FLECHE VOUS À EU !" 
1000 PRINT CHR$(26)'  INSTRUCTIONS 3360 GOTO 3270 
1010 PRINT "BIENVENUE A "LA CHASSE AU WUMPUS'":PRINT 3370 REM- SOUS-PROGRAMME DE MOUVEMENT DU WUMPUS 
1020 PRINT À LE MUMPUS VIT DANS UNE CAVE DE 20 CHAMBRES.CHAQUE" 3380 K=FNC(0) 
1030 PRINT "CHAMBRE POSSEDE 3 TUNNELS MENANT À D'AUTRES CHAMBRES." 3390 IF K=4 THEN 3410 
1040 PRINT "(REGARDEZ UN DODECAEDRE POUR YŸ VOIR CLAIR- SI VOUS NE " 3400 L(2)2S(L(2),K) 
1050 PRINT "CONNAISSEZ PAS LES DODECAEDRES,DEMANDEZ A QUELQU'UN)" 3410 IF L(2) © L THEN 3440 
1060 PRINT 3420 PRINT "TSK TSK TSK - LE WUMPUS VOUS A EUl" 
1070 PRINT " HASARD: " 3430 F=-1 
1080 PRINT "PUITS SANS FOND - DEUX CHAMBRES ONT DES PUITS SANS FOND,DANS" 3440 RETURN 
1090 PRINT " LESQUELS VOUS TOMBEZ (ET PERDEZ!) SI VOUS Y ALLEZ" 4000 REM- SOUS-PROGRAMME DE MOUVEMENT 
1100 PRINT "CHAUVE-SOURIS GEANTES-DEUX AUTRES CHAMBRES ABBRITENT CES " 4010 F=0 
1110 PRINT " ANIMAUX.SI VOUS Y ALLEZ,UNE D'ENTRE ELLES VOUS PREND ET"; 4020 PRINT "OU ALLER"; 
1115 PRINT " VOUS EMMENE" 4030 INPUT L 
1120 PRINT " DANS UNE CHAMBRE AU HASARD.(CE QUI PEUT ETRE PROBLEMATIQUE )" 4040 IF L<1 OR L>20 THEN 4020 
1130 PRINT 4050 FOR K=1 TO 3 
1140 PRINT " WUMPUS : 4060 REM- VÉRIFICATION DE LA LEGALITE DU MOUVEMENT 
1150 PRINT "LE WUMPUS N'EST PAS GENE PAR LES HASARDS (IL A DES PIEDS " 4070 IF S(L(1),K)=L THEN 4130 
1160 PRINT "VENTOUSE ET EST TROP GROS POUR LES CHAUVE-SOURIS).EN GENERAL" 4080 NEXT K 
1170 PRINT "IL DORT.DEUX CHOSES LE REVEILLE:VOTRE ENTREE DANS SA " 4090 IF L=L(1) THEN 4130 
1180 PRINT "CHAMBRE OÙ VOTRE TIR DE FLECHE." 4100 PRINT "PAS POSSIBLE -"; 
1190 PRINT " S'IL SE REVEILLE,IL BOUGE (P=,75) D'UNE CHAMBRE" 4110 GOTO 4020 
1200 PRINT "OU RESTE TRANQUILLE (P=,25).ENSUITE,S'IL EST LA OU VOUS" 4120 REM- VÉRIFICATION DES PIEGES 
1210 PRINT "ETES,IL VOUS AVALE (ET VOUS PERDEZI)" 4130 L(1)=L 
1220 GOSUB 50000 4140 REM- WUMPUS 
1230 PRINT " VOUS :" 4150 IF L <> L(2) THEN 4220 
1240 PRINT "A CHAQUE TOUR, VOUS POUVEZ BOUGER OU TIRER UNE FLECHE COURBE" 4160 PRINT "... OOPS! VOUS AVEZ HEURTE UN WUMPUS!" 
1250 PRINT:PRINT " MOUVEMENT: VOUS POUVEZ ALLER À UNE CHAMBRE (PAR LE TUNNEL )" 4170 REM- MOUVEMENT DU WUMPUS 
1260 PRINT " FLECHES:VOUS EN AVEZ 5.VOUS PERDEZ QUAND VOUS N'EN AVEZ PLUS." 4180 GOSUB 3380 
1270 PRINT " CHACUNE PEUT ALLER DE 1 A 5 CHAMBRES.VOUS VISEZ EN DONNANT"; 4190 IF F=0 THEN 4220 
1275 PRINT "A L'ORDINATEUR" 4200 RETURN 
1280 PRINT " LES CHAMBRES DANS LESQUELLES VOUS VOULEZ QUE LA FLECHE AILLE" 4210 REM- PUIT 
1290 PRINT " SI LA FLECHE NE PEUT Y ALLER (1.E.,PAS DE TUNNEL) ELLE "; 4220 IF L <> L(3) AND L <> L(4) THEN 4270 
1295 PRINT "BOUGE AU HASARD" 4230 PRINT "YYYIIIIEEEE . . . VOUS TOMBCZ DANS UN PUIT"" 
1310 PRINT " SI LA FLECHE TOUCHE LE WUMPUS, VOUS GAGNEZ." 4240 F=-1 
1320 PRINT " SI ELLE VOUS TOUCHE, VOUS PERDEZ." 4250 RETURN 
1330 PRINT 4260 REM- CHAUVE-SOURIS 
1340 PRINT " MISE EN GARDE :" 4270 IF L <> L(S) AND L <> L(6) THEN 4310 
1350 PRINT QUAND VOUS ETES DANS LA CHAMBRE CONTIGUE DE CELLE DU" 4280 PRINT "ZAP--LA CHAUVE-SOURIS VOUS A SAISI!VOUS ETES AILLEURS!" 
1360 PRINT " WUMPUS OU D'UN PIEGE, L'ORDINATEUR VOUS DIT:":PRINT 4290 L=FNA(1) 
1370 PRINT "WUMPUS- "CA SENT LE WUMPUS'" 4300 GOTO 4130 
1380 PRINT "CHAUVE-SOURIS- 'CHAUVE-SOURIS TOUT PRES'" 4310 RETURN 
1390 PRINT "PUIT - "JE SENS UN COURANT D'AIR'" 5000 END 
1400 PRINT 50000 PRINT:LINE INPUT "RENTRER "RETURN' POUR CONTINUER. "3XX$ 
1405 GOSUB 50000 50010 PRINT CHR$(26) 
1410 RETURN 50020 RETURN 
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Wumpus 2 





Gasp !!! Le pauvre chasseur de Wumpus, pâlot après 
50 jours d'errance dans les cavernes du « Terminal », fatigué 
et ayant épuisé toutes ses flèches. (Le terminal gémit et 
grogne devant l'étudiant endormi. Les cartes jonchent le sol, 
recouvertes de cercles et d’entiers. Les doigts calleux, le 
joueur acharné lève au ciel ses yeux injectés de sang et 
implore : « comment puis-je m'en sortir ? ») 

Je craignais que le dodécaèdre ne devienne lassant après 
des milliers d'essais, aussi ai-je conçu Wumpus 2 pour vous 
servir. Les esprits mathématiques auront remarqué qu'il 
existe un grand nombre de chemins pour joindre deux 
cavernes reliées par trois tunnels chacune. Quelques-uns de 
ces modèles sont topologiquement intéressants. 

Wumpus 2 est semblable à l'ancien Wumpus sur différents 
points. Il vous laisse en particulier la liberté d'une conception 
personnelle. Au fur et à mesure que vous avancez dans le 
souterrain, vous vous apercevez que ce jeu diffère de 
Wumpus 1 en difficulté et stratégie. Voici une description des 
différentes figures du Wumpus 2. 


FIGURE 0 (Dodécaëèdre) 
C'est le Wumpus 1 que vous connaissez bien. 


FIGURE 1 (Bande de Mobius) 

Bien que ma première idée fût topologique, celle-ci, la 
bande de Mobius, est une merveille de topologie. Prenez une 
bande de papier, faites-lui exécuter un demi-tour, et joignez 
les deux bouts en une boucle. Le résultat a un seul côté et un 
seul bord. (Si vous ne le croyez pas, parcourez-le à l’aide d'un 
stylo.) 

Un joueur averti remarquera que l'emplacement des 
gouffres influence le jeu. Si vous vous trouvez devant deux 
gouffres (environ 5 % des jeux sont dans ce cas), rebroussez 
chemin, cela vaut parfois mieux. Faire le tour de cette figure 
est une solution plus lente que pour le dodécaèdre, mais la 
recherche en est plus aisée. 


FIGURE 2 (Anneau de Beads) 

Reportez-vous au diagramme. lci, l'emplacement des 
gouffres rend souvent inaccessibles quelques parties du 
souterrain, sauf peut-être si vous vous déplacez en chauve- 
souris géante. (Voyez-vous pourquoi ?) Ce jeu est frustrant 
jusqu'au moment où vous prenez la peine de dessiner une 
carte de référence; sinon, vous revenez sans cesse au point 
de départ. (Regardez sur le diagramme comment il peut en 
être ainsi.) 


FIGURE 3 (Réseau ensorcelé) 

Voici mon essai d’un tore (ou beignet). Essayez de 
visualiser un filet hexagonal comme une ruche ou bien un 
parquet, et étalez-le sur un beignet, vous aurez alors réussi. 
La figure essaye de le montrer, mais si vous préférez, 
imaginez-le comme une quelconque molécule compliquée. Le 
mode de jeu est très semblable à celui du dodécaèdre. 


FIGURE 4 (Dendrite) 

Jusqu'à maintenant, chaque tunnel menait à une autre 
grotte, et un seul tunnel reliait deux cavernes différentes. Mais 
il n'y a pas de raison pour en faire une règle générale. Ce 
schéma et le suivant illustrent deux possibilités. La dendrite 
est un modèle à ramifications comme un arbre ou une plante. 
Au bout de chaque branche, des « feuilles », ou grottes, 
mènent soit à elles-mêmes, soit à différents tunnels. Ce 
Souterrain est particulièrement susceptible d'être fendu par 
des gouffres, où bien de vous coincer près d'un Wumpus. Un 
fait amusant est que vous ne savez souvent exactement où se 
trouve le Wumpus que lorsque vous êtes à côté. 


FIGURE 5 (Rues à sens unique) 

C'est l'exemple extrême où tous les tunnels sont à sens 
unique. Vous avez l'impression de circuler dans Los Angeles 
— où il est très difficile de se rendre à la maison voisine. Si 
vous dépassez l'endroit, vous devez refaire un tour complet, 
comme si vous manquiez une sortie d'autoroute. 


FIGURE 6 (A vous la plume) 

Dessinez vous-même votre carte des grottes, chacune 
d'entre elles étant reliée à trois (exactement trois) grottes, 
différentes ou non. Puis, l'ordinateur vous demande les 
numéros des tunnels pour chacune des vingt grottes du 
Wumpus. J'aimerais connaître vos réactions, vos préférés, et 
ceux que vous trouvez les plus frustrants. 


FIN 

Dans tous les cas, Wumpus est à l’origine de nombreuses 
versions et prolifère dans le domaine des jeux informatiques. 
A mon avis, l'âme du jeu réside dans l'idée et l'amusement 
plutôt que dans le programme. Je pense que tous les jeux 
dignes de ce nom attirent assez les programmeurs pour que, 
à partir de l'idée seule, ils conçoivent eux-mêmes. 
J'encourage les personnes qui écrivent des jeux à prendre en 
compte l'art et l'esthétique de leur jeu avant d'écrire une ligne 
de programme. 

Wumpus 2 et sa description sont de Gregory Yob. lis 
parurent dans Creative Computing en janv.-févr. 1976, et le 
jeu parut dans « People's Computer Co. ». 
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Ce que vous voulez 


RUN 


VOULEZ VOUS LES 


WUMPUS 2 
CREATIVE COMPUTING 
MORRISTOWN NEW JERSEY 


INSTRUCTIONS ?? OUI 


BIENVENUE CHEZ WUMPUS II 


CETTE VERSION POSSEDE LES MEMES REGLES QUE ‘LA CHASS AU WUMPUS"', 
VOUS AVEZ EN PLUS LE CHOIX DES CAVERNES OÙ JOUER. 

CERTAINES CAVERNES SONT PLUS FACILES QUE D'AUTRES. TOUTES ONT 20 
SALLES ET IL Y À 3 TUNNELS QUI PARTENT DFE CHAQUE SALLE. 


VOICI LES CAVERNES DISPONIBLES: 


0 


ENTREZ 


3 


DODECAEDRE: LES SALLES DE CES CAVERNES SONT SUR UN 
POLYHEDRE À 12 FACES PENTAGONALES. 

LES SALLES SONT SUR LES COINS DES PENTAGONES. 

DE CHACUNE PARTENT 3 TUNNELS QUI VONT À 3 AUTRES SALLES 


ANNEAU DE MOBIUS: CES CAVERNES FONT DEUX SALLES 
DE LARGE ET IL Y A 10 SALLES SUR LE POURTOUR. 
(COMME UNE CEINTURE).VOUS REMARQUEREZ QU'IL Y A 
UNE DEMI BOUCLE QUELQUE PART. 


COLLIER NE PERLES: CINQ PERLES EN CERCLE. 

CHAQUE PERLE EST UNE ETOILE AVEC UNE BARRE 
VERTICALE. LES COTES DROITS ET GAUCHES DONNENT 
SUR LES PERLES VOISINES.(CELUI CI EST DIFFICILE). 


"RETURN' POUR CONTINUFR. 


RESFAU HEXAGONAL: IMAGINEZ UNE SURFACE PAVEE D'HEXAGONES. 
PRENEZ UN RECTANGLE DE 20 POINTS (INTERSECTIONS) 
(4X4).JOIGNEZ LES BORDS DROITS ET GAUCHES POUR FAIRE UN 
CYLINDRE.JOIGNEZ ENSUITE LE HAUT ET LE BAS POUR FAIRE UN 
TORE . 

JE VOUS SOUHAITE BIEN DU PLAISIR À IMAGINER CELUI-LAII 


LES CAVERNFS 1-3 SONT REGULIERE EN CF SENS QUE CHAQUE SALLE 
DONNE SUR TROIS AUTRES SALLES ET LE TUNNELS PERMETTENT 
D'ALLER DANS LES DEUX SENS. EN VOICI DE PLUS IRREGULIERES 


4 


ENTREZ 


6 


DENDRITFE DEGENEREE: RETIREZ UNE PLANTE DU SOL 
LES RACINES FT LES BRANCHES FORMENT UNE 

DENDRITE = I.E., IL N'Y A PAS DE BOUCLES. 
DEGENEREE SIGNIFIE A) DES SALLES SONT RELIEES À 
ELLES MEMES ET B) CERTAINES SALLES ONT PLUS D'UN 
TUNNEL VERS UNE MEME PIECE, I.E. , 12 A DEUX 
TUNNELS VERS 13. 


RESEAU A SENS UNIQUE: ICI, LES TUNNELS SONT 
À SENS UNIQUE. POUR REVENIR, VOUS DEVEZ FAIRE LE TOUR 
DES CAVERNES (A PEU PRES CINQ MOUVEMENTS }). 


"RETURN' POUR CONTINUER. 


CREEZ VOTRE PROPRE CAVERNE: L'ORDINATEUR VA DEMANDER 
LES SALLES ATTENANTES A CHAQUE SALLE DE LA CAVERNE 


PAR EXEMPLE: 

SALLE #1 ? 2,3,4 REPONDRE 2,3,4 
SIGNIFIE QUE LA SALLE 1 A DES TUNNELS ALLANT 
VERS LES SALLES 2, 3, & 4. 


#*#** BONNE CHASSE! *** 


CAVERNE # (0-6) ? 4 


*** CHASSEZ LE WUMPUS *** 


VOUS ETES EN SALLE 10 -- LES TUNNELS MENENT EN 9 11 10 


TIR OU DEPLACEMENT ? T 


NUMERO DES SALLES ? 1 


SALLE #? Q 


MANQUE! 
TIR OU DFPLACEMENT ? D 


OÙ ALLER ? 9 


CA SENT LE WUMPUS ! 
VOUS ETES EN SALLE 9 -- [ES TUNNELS MENENT EN 8 10 7 


TIR OU DFPLACEMENT ? T 


NUMERO DES SALLES ? 3 


SALLE 


SALLE 


#? 8 


#? 10 


SALLE #? 7 
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AHA! VOUS AVEZ EU LE WUMPUS! IL ETAIT EN SALLE 8 
HEE HEE HEE - LE WUMPUS VOUS AURA LA PROCHAINE FOISI! 
ENCORE UNE FOIS? OUI 


MEME CONSTRUCTION ? OUI 


#*** CHASSEZ LE WUMPUS *** 


VOUS ETES EN SALLE 10 -- LES TUNNELS MENENT EN 9 11 10 
TIR OU DEPLACEMENT ? D 

OU ALLER ? 9 

CA SENT LF WUMPUS 1! 

VOUS ETES EN SALLE 9 -- LES TUNNELS MENENT EN & 10 7 
TIR O!!' RFPLACEMENT ? D 


OU ALLER ? 10 


VOUS ETES EN SALLE 10 -- LES TUNNELS MENENT EN 9 11 10 
TIR OU DEPLACEMENT ? D 


OU ALLER ? 11 


VOUS ETES EN SALLE 11 -- LES TUNNELS MENENT EN 13 14 12 
TIR OU DEPLACEMENT ? ND 


OÙ ALLER ? 13 


VOUS ETFS EN SALLE 13 -- LES TUNNELS MENENT EN 12 12 11 
TIR OU DEPLACEMENT ? D 


OU ALLER ? 12 


VOUS ETES EN SALLE 12 -- LES TUNNELS MENENT EN 13 13 11 
TIR OU NFPLACEMENT ? D 


OU ALLER ? 13 


VOUS ETES EN SALLE 13 -- LES TUNNELS MENENT EN 12 12 11 
TIR OU DFPLACEMENT ? D 


OU ALLER ? 12 


VOUS ETES EN SALLE 12 -- LES TUNNELS MENENT EN 13 13 11 
TIR OU DEPLACEMENT ? D 


OU ALLER ? 11 


VOUS ETES EN SALLE 11 -- LES TUNNELS MENENT EN 13 14 12 
TIR OU DEPLACEMENT ? D 

OU ALLER ? 14 

IL Y À DES CHAUVE-SOURIS TOUT PRES! 

VOUS ETES EN SALLE 14 -- LES TUNNELS MENENT EN 15 16 14 
TIR OU DEPLACEMENT ? T 

NUMERO DES SALLES ? 3 

SALLE #? 15 

SALLE #? 16 

SALLE #? 14 

MANQUE ! 

TIR OU DEPLACEMENT ? D 

OU ALLER ? 15 

ZAP--PRIS PAR UNE CHAUVE-SOURISI VOUS VOILA DANS L'AU DELA 
VOUS ETES EN SALLE 18 -- LES TUNNELS MENENT EN 18 18 16 
TIR OU DEPLACEMENT ? D 


OU ALLER ? 18 


VOUS ETES EN SALLE 18 -- LES TUNNELS MENENT EN 18 18 16 
TIR OU DEPLACEMENT ? D 


OU ALLER ? 16 


JE SENS UN COURANT D'AIRI 
JE SENS UN COURANT D'AIRI 


IL Y À DES CHAUVE-SOURIS 


TOUT PRES! 


VOUS ETES EN SALLE 16 -- LES TUNNELS MENENT EN 19 20 


TIR OU DEPLACEMENT ? D 


OÙ ALLER ? 15 


ZAP--PRIS PAR UNE CHAUVE-SOURIS! VOUS VOILA DANS L'AU 
IL Y À DES CHAUVE-SOURIS TOUT PRES 
VOUS ETES EN SALLE 14 -- LES TUNNELS MENENT EN 15 16 


TIR OU DEPLACEMENT ? D 


OU ALLER ? 15 


ZAP--PRIS PAR UNE CHAUVE- 


SOURISI VOUS VOILA DANS L'AU 


VOUS ETES EN SALLE 12 -- LES TUNNELS MENENT EN 13 13 


TIR OU DEPLACEMENT ? D 
OU ALLER ? 14 

IMPOSSIBLE - ? 13 

OÙ ALLER ? 13 

VOUS ETES EN SALLE 13 -- 
TIR OU DEPLACEMENT ? D 


OU ALLER ? 11 


VOUS ETES EN SALLE 11 -- 
TIR OU DEPLACEMENT ? D 


OU ALLER ? 12 


VOUS ETES EN SALLE 12 -- 
TIR OU DEPLACEMENT ? D 


OU ALLER ? 11 


VOUS ETES EN SALLE 11 -- 

TIR OU DEPLACEMENT ? D 

OU ALLER ? 14 

IL Y À DES CHAUVE-SOURIS 

VOUS ETES EN SALLE 14 -- 

TIR OU DEPLACEMENT ? D 

OU ALLER ? 16 

JE SENTS UN COURANT D'AIR 


JE SENTS UN COURANT D'AIR 
IL Y À DES CHAUVE-SOURIS 


LES TUNNELS 


LES TUNNELS 


LES TUNNELS 


LES TUNNELS 


TOUT PRESI 
LES TUNNELS 


! 
l 
TOUT PRESI 


MENENT EN 12 12 


MENENT EN 13 14 


MENENT EN 13 13 


MENENT EN 13 14 


MENENT EN 15 16 


VOUS ETES EN SALLE 16 -- LES TUNNELS MENENT EN 19 20 


TIR OU DEPLACEMENT ? D 


OU ALLER ? 20 


YYYIIIEREE . . . VOUS TOMBEZ DANS UN PUITS! 


HA HA HA - VOUS AVEZ PERD 
ENCORE UNE FOIS? NON 


Ok 


LIST 

1 PRINT CHRS(26): 

3 PRINT TAB(25);"WUMPUS 2 
4 PRINT TAB(20);"CREATIVE 
5 PRINT TAB(18 
7 PRINT 

10 PRINT 

15 PRINT 

20 REM- WUMPUS VERSION 2 

30 DIM S(20,3) 

40 DIM L(6),M(6),P(5) 

50 PRINT "VOULEZ VOUS LES 
60 INPUT IS 

70 PRINT 

80 IF LEFTS(IS$,1) <> "“o" 

100 GOSUB 700 








U! 


COMPUTING" 


MORRISTOWN NFW JERSEY" 


INSTRUCTIONS ?"; 


THEN 130 


110 REM- CHOISIR ET INITIALISER LA CAVERNE 


130 GOSUB 2530 

140 DEF FNA(X)=INT(20*RND 
150 DEF FNB(X NT(3*RND( 
160 DEF FNC(X)=INT(4*RND( 





(1))+1 
1))+1 
1))+1 


170 REM LOCALISER LES OBJETS DU TABLEAU L 


180 REM 1-VOUS, 2-WUMPUS, 
210 FOR J=1 TO 6 
220 L(J)=FNA(O) 


3&4-PUITS, 


5&6-CHAUVE-SOURIS 


15 


DELA 


14 


DELA 


11 


11 


12 


11 


12 


14 


15 


230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 


360 
370 


390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
SRO 
590 
595 
600 
620 
640 
650 
660 
670 
680 
700 
710 
720 
730 
740 
750 
755 
760 
770 
780 
790 
800 
805 
810 
820 
830 
840 
850 
860 
870 
880 
890 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1160 
1170 
1175 
1180 
1190 
1200 
1210 
1215 
1220 
1225 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 


M(J)=L(J) 

NEXT J 

REM VERIFICATION DES CROISEMENTS (IE L(1)=L(2) ETC) 
FOR J=1 TO 6 

FOR K=J TO 6 

IF J=K THEN 300 

IF L(J)=L(K) THEN 210 

NEXT K 

NEXT J 

REM SET # ARROWS 

A=5 

L=L(1) 

REM- ENVOI DU JEU 

PRINT:PRINT “#*#*#* CHASSEZ LE WUMPUS *#*#*":PRINT 
REM- HASARD : PIEGES & LOCALISATION 
GOSUB 1230 

REM BOUGER OÙ TIRER 

GOSUB 1400 

ON O GOTO 430,470 

REM TIR 

GosuB 1550 

IF F=0 THEN 400 

GOTO 490 

REM MOUVEMENT 

GOSUB 2150 

IF F=0 THEN 380 

IF F > O THEN 540 

REM PERDU 

PRINT “HA HA HA - VOUS AVEZ PERDU!" 
GOTO 550 

REM GAGNER 

PRINT "HEE HEE HEE - LE WUMPUS VOUS AURA LA PROCHAINE FOISI!" 
FOR J=1 TO 6 


L(J)=M(J) 

NEXT J 

PRINT "ENCORE UNE FOIS"; 

INPUT 1S 

PRINT 

PRINT 

IF LEFTS(IS$S,1) <> “O" THEN 3310 


PRINT "MEME CONSTRUCTION "; 

INPUT IS 

PRINT 

IF LEFTS(IS,1) <> "“O" THEN 130 

GOTO 330 

REM- INSTRUCTIONS 

PRINT CHRS(26);TAB(20):;"BIENVENUE CHEZ WUMPUS 11" 

PRINT "CETTE VERSION POSSEDE LES MEMES REGLES QUE ‘LA CHASSE AU WUMPUS/; ." 
PRINT "VOUS AVEZ EN PLUS LE CHOIX DES CAVERNES OU JOUER." 

PRINT “"CERTAINES CAVERNES SONT PLUS FACILES QUE D'AUTRES. TOUTES ONT 20" 
PRINT "SALLES ET IL Y À 3 TUNNELS QUI PARTENT DE CHAQUE SALLE." 


PRINT 

PRINT "VOICI LES CAVERNES DISPONIBLES :" 

PRINT “ O = DONFCAEDRE: LES SALLES DF CES CAVERNES SONT SUR UN" 
PRINT " POLYHEDRE À 12 FACES PENTAGONALES." 

PRINT " LES SALLES SONT SUR LES COINS DES PENTAGONES." 

PRINT * DE CHACUNE PARTENT 3 TUNNELS QUI VONT À 3 AUTRES SALLES" 
PRINT 

PRINT “ 1 = ANNFAU NE MORIUS: CES CAVERNES FONT DEUX SALLES" 

PRINT " DE LARGE ET IL Y À 10 SALLES SUR LE POURTOUR." 

PRINT * (COMME UNE CEINTUREY.VOUS REMARQUEREZ QU'II, Y A" 

PRINT " UNE DEMI BOUCLE QUELQUE PART." 

PRINT 

PRINT " 2 = COLLIER DE PERLES: CINQ PERLES EN CERCLE." 

PRINT * CHAQUE PERLE EST UNE ETOILE AVEC UNE BARRE" 

PRINT " VERTICALF. LES COTFS DROITS FT GAUCHES DONNENT" 

PRINT " SUR LES PERLES VOISINES.(CELUI CI EST DIFFICILE)." 

GOSUR 5000 

PRINT * 3 RESFAU HEXAGONAL: IMAGINEZ UNE SURFACF PAVEE D'HEXAGONES. 
PRINT * PRENEZ UN RECTANGLE DE 20 POINTS (INTERSFCTIONS) * 

PRINT " (4X4).JOIGNEZ LES BORDS DROITS ET GAUCHES POUR FAIRE UN" 
PRINT " CYLINDRE.JOIGNEZ ENSUITE LE HAUT ET LF BAS POUR FAIRE UN 
PRINT " TORE ." 

PRINT " JE VOUS SOUHAITE BIEN DU PLAISIR À IMAGINER CELUI-LA!I" 
PRINT 

PRINT "LES CAVERNES 1-3 SONT REGULIERE EN CE SENS QUE CHAQUE SALLE" 








PRINT "DONNE SUR TROIS AUTRES SALLES ET LE TUNNELS PERMETTENT" 
PRINT "D'ALLER DANS LFS DEUX SENS. EN VOICI DE PLUS IRREGULIE 
PRINT 

PRINT “ 4 = DENDRITE DEGENEREE: RETIREZ UNE PLANTE DU SOL" 
PRINT " LES RACINES ET LES BRANCHES FORMENT UNE" 

PRINT * DENDRITE = I.F., IL N'Y A PAS DE BOUCLES." 

PRINT * DEGENEREE SIGNIFIE A) DES SALLES SONT RELIEES A" 
PRINT " ELLES MFMES FT B) CERTAINES SALLES ONT PLUS D'UN" 
PRINT * TUNNEL VERS UNF MEME PIFCE, 1.E. , 12 A DEUX" 

PRINT " TUNNELS VERS 13." 

PRINT 

PRINT *“ 5 - RESEAU À SENS UNIQUE: ICI, LES TUNNELS SONT" 

PRINT * A SENS UNIQUE. POUR REVENIR, VOUS DEVEZ FAIRE LE TOUR" 
PRINT * DES CAVERNES (A PEU PRES CINQ MOUVEMENTS })." 

GOSUB 5000 

PRINT “ 6 - CRFFEZ VOTRE PROPRE CAVERNE: L'ORDINATEUR VA DEMANDER" 
PRINT * LES SALLES ATTENANTES A CHAQUE SALLE DEF LA CAVERNE" 
PRINT 

PRINT " PAR EXEMPLE :" 

PRINT * SALLE #1 ? 2,3,4 REPONDRE 2,3,4 " 

PRINT * SIGNIFIE QUE LA SALLE 1 A DES TUNNELS ALLANT" 
PRINT * VERS LES SALLES 2, 3, & 4." 


PRINT:PRINT 

PRINT "#*#* BONNE CHASSE! ***": PRINT" 
RETURN 

REM 

PRINT 


FOR J=2 TO 6 
FOR K=1 TO 3 


IF S(L(1),K) <> L(J) THEN 1340 

ON J-1 GOTO 1290,1310,1310,1330,1330 
PRINT "CA SENT LE WUMPUS 1" 

GOTO 1340 

PRINT "JE SENS UN COURANT D'AIRI" 
GOTO 1340 
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2450 F=-1 


1330 PRINT “IL Y À DES CHAUVE-SOURIS TOUT PRESI" 2460 RETURN 

1340 NEXT K 2470 REM -  CHAUVE-SOURIS 

1350 NEXT J 2480 IF L <> L(5) AND L <> L(6) THEN 2520 

1360 PRINT "VOUS ETES EN SALLE";L(1); 2490 PRINT “ZAP--PRIS PAR UNE CHAUVE-SOURIS! VOUS VOILA DANS L'AU DELA" 
1370 PRINT “-- LES TUNNELS MENENT EN";S(L,1):S(L,2):S(L,3) 2500 L=FNA(1) 

1380 PRINT 2510 GOTO 2350 

1390 RETURN 2520 RETURN 

1400 REM- CHOIX D'UNE OPTION 2530 REM - CHOIX D'UNE CAVFRNE 

1410 GOTO 1450 2540 GOTO 2580 

1420 PRINT “ERREUR  "; 2550 PRINT “ERREUR  "; 

1430 INPUT 29 2560 INPUT 29 

1440 PRINT “"; 2570 PRINT ""; 

1450 PRINT "TIR OU DEPLACEMENT "; 2580 PRINT "CAVERNE # (0-6) "; 

1460 INPUT 1$ 2585 RESTORE 

1470 PRINT 2590 INPUT N 

1490 IF LEFT$S(IS,1) <> "T" THEN 1520 2600 PRINT 

1500 O=1 2620 IF N<O OR N>6 OR INT(N) <> ABS(N) THEN 2550 
1510 RETURN 2630 ON N+1 GOSUB 2750,2730,2810,2890,2970,3050,3130 
1520 1F LEFT$(I$,1) <> "D" THEN 1420 2640 RETURN 

1530 O=2 2650 REM -  DODECAEDRE 

1540 RETURN 2670 DATA 2,5,8,1,3,10,2,4,12,3,5,14,1,4,6 

1550 REM- SOUS-PROGRAMME DES FLECHES 2680 DATA 5,7,15,6,8,17,1,7,9,8,10,18,2,9,11 

1560 F=0 2690 DATA 10,12,19,3,11,13,12,14,20,4,13,15,6,4,16 
1570 REM- TRAJECTOIRE D'UNE FLECHE 2700 DATA 15,17,20,7,16,18,9,17,19,11,18,20,1316,19 
1590 GOTO 1630 2710 GOSUR 3240 

1600 PRINT “ERREUR  "; 2720 RETURN 

1610 INPUT 29 2730 REM - ANNEAU DE MOBIUS 

1620 PRINT “‘“; 2735 FOR Bl=1 TO 1 

1630 PRINT “NUMERO DES SALLES “; 2737 FOR B2=1 TO 60 

1640 INPUT J9 2740 READ RO 

1650 PRINT 2742 NEXT B2 

1670 IF J9 < 1 OR J9 > 5 OR INT(J9) <> ABS(J9) THEN 1600 2744 NEXT BI 

1680 FOR K=1 TO J9 2750 DATA 20,2,3,19,1,4,1,4,5,2,3,6,3,6,7 

1690 PRINT "SALLE #"; 2760 DATA 4,5,8,5,8,9,6,7,10,7,10,11,8,9,12 

1700 INPUT P(K) 2770 DATA 9,12,13,10,11,14,11,14,15,12,13,16,12,16,17 
1710 PRINT 2780 DATA 14,15,18,15,18,19,16,17,20,°,17,20,1,18,19 
1730 IF P(K) > O AND P(K) < 21 AND INT(P(K))=ABS(P(K)) THEN 1780 2790 GOSUR 3240 

1740 PRINT "ERREUR ‘; 2800 RETURN 

1750 INPUT 29 2810 REM - COLLIER DE PERLES 

1760 PRINT ""; 2815 FOR Bl=1 TO 2 

1770 GOTO 1690 2817 FOR B2=1 TO 60 

1780 NEXT K 2820 READ BO 

1790 PRINT 2822 NEXT B2 

1800 REM - TIR DE FLECHE 2824 NEXT B1 

1810 A=A-J9 2830 DATA 2,3,20,1,3,4,1,2,4,2,3,5,4,6,7 

1820 A9=L(1) 2840 DATA 5,7,8,5,6,8,6,7,9,8,10,11,9,11,12 

1830 FOR K=1 TO J9 2850 DATA 9,10,12,10,11,13,12,14,15,13,15,16,13,14,16 
1840 FOR Kl=1 TO 3 2860 DATA 14,15,17,16,18,19,17,19,20,17,18,20,1,18,19 
1850 IF S(A9,K1)=P(K) THEN 1990 2870 GOSURB 3240 

1860 NEXT KI 2880 RETURN 

1870 REM- NO DU TUNNEL POUR LA FLECHE 2890 REM - RESEAU D'HEXAGONES EN TORE 

1880 A9=S(A9,FNB(1)) 2895 FOR Bl=1l TO 3 

1890 GOTO 2000 2897 FOR B2=1 TO 60 

1900 NEXT K 2900 READ BO 

1910 PRINT "MANQUE!" 2902 NEXT B2 

1920 REM - MOUVEMENT WUMPUS 2904 NEXT B1 

1930 GOSUB 2070 2910 DATA 6,10,16,6,7,17,7,8,18,8,9,19,9,10,20 

1940 REM - VERIFICATION D'AMMO 2920 DATA 1,2,15,2,3,11,3,4,12,4,5,13,5,6,14 

1950 1F À > O THEN 1970 2930 DATA 7,16,20,8,16,17,9,17,18,10,18,19,6,19,20 
1955 PRINT “VOUS AVEZ TIRE TOUTES VOS FLECHES." 2940 DATA 1,11,12,2,12,13,3,13,14,4,14,15,5,11,15 
1960 F=-1 2950 GOSUB 3240 

1970 RETURN 2960 RETURN 

1980 REM - VOIR SI LA FLECHE EST EN L[1] OU LT2] 2970 REM - DENDRITE DEGENEREE 

1990 A9=P(K) 2975 FOR Bl=1 TO 4 

2000 IF A9 <> L(2) THEN 2040 2977 FOR B2=1 TO 60 

2010 PRINT "AHAI VOUS AVEZ EU LE WUMPUS!I IL ETAIT EN SALLE";L(2) 2980 READ BO 

2020 F=1 2982 NEXT B2 

2030 RETURN 2984 NEXT BI 

2040 IF A9 <> L(1) THEN 1900 2990 DATA 1,1,5,2,2,5,3,3,6,4,4,6,1,2,7 

2050 PRINT "OUCHI VOUS ETES TOUCHE PAR UNE FLECHE!" 3000 DATA 3,4,7,5,6,10,8,9,9,8,8,10,7,9,11 

2060 GOTO 1960 3010 DATA 10,13,14,12,13,13,11,12,12,11,15,16,14,17,18 
2070 REM - SOUS-PROGRAMME DE DEPLACEMENT DU WUMPUS 3020 DATA 14,19,20,15,17,17,15,18,18,16,19,19,16,20,20 
2080 K=FNC(O) 3030 GOSUR 3240 

2090 IF K=4 THEN 2140 3040 RETURN 

2100 L(2)=S(L(2),K) 3050 REM - RESEAU À SENS UNIQUE 

2110 1F L(2) <> L THEN 2140 3055 FOR Bl=1 TO 5 

2120 PRINT "TSK TSK TSK- LE WUMPUS VOUS À EU!" 3057 FOR B2=1 TO 60 

2130 F=-1 3060 READ BO 

2140 RETURN 3062 NEXT B2 

2150 REM - SOUS-PROGRAMMF DE DEPLACEMENT 3964 NEMT 01 

2160 F=0 3070 DATA 5,4,8,1,5,6,2,6,7,3,7,8,8,9,12 

2170 GOTO 2210 3080 DATA 5,9,10,6,10,11,7,11,12,12,13,16,9,13,14 
2180 PRINT “ERREUR  "; 3090 DATA 10,14,15,11,15,16,16,17,20,13,17,18,14,18,19 
2190 INPUT 29 3100 PATA 15,19,20,1,4,20,1,2,17,2,3,18,3,4,19 

2200 PRINT ""; 3110 GOSUR 3240 

2210 PRINT “OU ALLER "; 3120 RETURN 

2220 INPUT L 3130 RFM - CHOIX NE VOTRE PROPRE CAVERNE 

2230 PRINT 3140 FOR J=1 TO 20 

2240 IF L < 1 OR L > 20 OR ABS(L) <> INT(L) THEN 2180 3150 PRINT "SALLE #";J; 

2250 FOR K=1 TO 3 3160 INPUT S(J,1),S(J,2),S(J,3) 

2260 REM - VERIFICATION DE LA LEGALITE D'UN MOUVEMENT 3170 FOR K=1 TO 3 

2270 1F S(L(1),K)=L THEN 2350 3180 IF S(J,K) > O AND S(J,K) < 21 AND ABS(S(J,K))=ABS(S(J,K)) THEN 3210 
2280 NEXT K 3190 PRINT “*#*#*#*#* ERREURIII11" 

2290 IF L=L(1) THEN 2350 3200 GOTO 3150 

2300 PRINT “IMPOSSIBLE - "; 3210 NEXT K 

2310 INPUT 29 3220 NEXT J 

2320 PRINT "": 3230 RETURN 

2330 GOTO 2210 3240 REM - ENTREE DE LA CAVERNE 

2340 REM - VERIFICATION DES PIEGES 3250 FOR J=1 TO 20 

2350 L(1)=L 3260 FOR K=1 TO 3 

2360 REM - WUMPUS 3270 READ S(J,K) 

2370 IF L <> L(2) THEN 2430 3280 NEXT K 

2380 PRINT "... OOPSI VOUS AVEZ HEURTE UN WUMPUS!" 3290 NEXT J 

2390 REM - MOUVEMENT D'UN WUMPUS 3300 RETURN 

2400 GOSUB 2080 3310 END 

2410 IF F=0 THEN 2430 5000 PRINT:LINE INPUT "ENTREZ ‘RETURN' POUR CONTINUER. ";XXS 
2420 REM - PUITS 5010 PRINT CHRS (26) 

2430 IF L <> L(3) AND L <> L(4) THEN 2480 5020 RETURN 

2440 PRINT "YYYIIIEEEE . . . VOUS TOMBEZ DANS UN PUITS!" ok 
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La bibliothèque SYBEX 


INTRODUCTION AU PASCAL, Pierre Le Beux 


500 pages, Réf. 222 
Un livre complet et progressif pour l'apprentissage du Pascal. Depuis les concepts de base jusqu'aux 
programmes élaborés et les traitements de fichiers et graphiques. 


LE PASCAL PAR LA PRATIQUE, Pierre Le Beux et Henri Tavernier 


550 pages, Réf. 229 
Plus de 140 exercices complètement traités : énoncé du problème, algorithmes et commentaires, 
programmes, exemples d'exécution. 


LE GUIDE DU PASCAL, Jacques Tiberghien 


450 pages, Réf. 232 
Le dictionnaire encyclopédique complet du PASCAL, définissant chaque mot, procédure, fonction 
des différentes versions du PASCAL. 


PROGRAMMES EN PASCAL pour Scientifiques et Ingénieurs, Alan R. Miller 


380 pages, Réf. 240 
Une présentation complète des algorithmes les plus fréquemment utilisés pour les applications 
scientifiques et techniques. 


JEUX EN PASCAL SUR APPLE, Douglas Hergert et Joseph T. Kalash 


380 pages, Réf. 241 
Un ensemble des jeux les plus populaires en PASCAL UCSD, invitant le lecteur non seulement à 
jouer mais à comprendre la manière dont les jeux sont exécutés sur l'ordinateur. 


INTRODUCTION AU BASIC, Pierre Le Beux 


336 pages, Réf. 216 
Une introduction progressive au BASIC, couvrant tous les aspects du langage actuellement 
disponibles sur microordinateurs et systèmes de temps partagé. 


LE BASIC PAR LA PRATIQUE : 60 exercices, Jean-Pierre Lamoitier 

250 pages, Réf. 231, 2° édition 

Les exercices, complètement traités (énoncé, analyse, solution avec ordinogramme, programme 
d'application) permettent au lecteur de perfectionner très rapidement ses connaissances en BASIC. 
Tous les programmes sont en BASIC Microsoft. 


AU CŒUR DES JEUX EN BASIC, Richard Mateosian 


300 pages, Réf. 233 
Enseigne la programmation du Basic par les jeux. Ces jeux sont en Basic Microsoft et peuvent être 
utilisés sur TRS80, APPLE Il et PET/CBM. 


LE BASIC POUR L'ENTREPRISE, Xuan Tung BUI 


172 pages, Réf. 235 

Ce livre présente toutes les méthodes importantes de gestion en expliquant leur but, leur principe 
ainsi que leur réalisation en Basic. ll est constitué d’un choix de programmes testés, et prêts à être 
utilisés pour la décision d'entreprise. 


PROGRAMMES EN BASIC pour Scientifiques et Ingénieurs, Alan R. Miller 
315 pages, Réf. 259 


Second volume de la série SYBEX « Programmes pour Scientifiques et Ingénieurs ». Un jeu complet 
des algorithmes scientifiques les plus importants, et leur implémentation en BASIC. 


PROGRAMMEZ EN BASIC SUR TRS-80, Léopold Laurent 
T. 1, 208 pages, Réf. 250; T. 2, 304 pages, Réf. 251 


Une initiation au langage BASIC et à la programmation comprenant de nombreuses applications 
pratiques : facturation automatisée, traitement de texte, gestion de fichiers de données. 


INTRODUCTION À ADA, Pierre Le Beux 


350 pages, Réf. 242 

Un ouvrage d'introduction au nouveau langage ADA, destiné aux étudiants, aux professionnels et 
aux ingénieurs. Ce livre aborde les concepts progressivement et fournit de nombreux exemples de 
programmes. 


VOTRE PREMIER ORDINATEUR, Rodnay Zaks 


290 pages, Réf. 226 
Une introduction simple et complète aux petits ordinateurs avec leurs périphériques. Ce qu'ils 
peuvent faire et comment se les procurer. 


PROGRAMMATION DU Z80, Rodnay Zaks 


600 pages, Réf. 220 
Une introduction complète à la programmation en langage assembleur pour le Z80. 


GUIDE DU CP/M AVEC MP/M, Rodnay Zaks 


340 pages, Réf. 228 


Un guide de référence indispensable sur le CP/M, système d'exploitation standard le plus utilisé sur 
les microordinateurs. 


INTRODUCTION AU TRAITEMENT DE TEXTE, Hal Glatzer 


212 pages, Réf. 243 
Ce livre vous apprendra ce que le traitement de texte peut faire pour vous. Quel type de matériel est 
le meilleur. Comment écrire et éditer avec le traitement de texte. 


INTRODUCTION À WORDSTAR, Arthur Naiman 


200 pages, Réf. 255 


Apprenez facilement à utiliser le WordStar, un programme de traitement de texte hautement 
performant pour tout utilisateur d'ordinateur. 


PROGRAMMATION DU 6502, Rodnay Zaks 
300 pages, Réf. 224, 2° édition 


La programmation des systèmes basés sur le microprocesseur 6502, des concepts de base aux 
structures de données les plus avancées. 


APPLICATIONS DU 6502, Rodnay Zaks 


300 pages, Réf. 219 
Techniques d'applications pratiques : le livre des entrées-sorties du 6502. 


PROGRAMMATION DU 6800, Daniel Jean David et Rodnay Zaks 


380 pages, Réf. 218 


Pour apprendre à programmer le 6800, avec de nombreux exercices. Un véritable apprentissage par 
l'action. 


LEXIQUE INTERNATIONAL MICROPROCESSEURS, 
avec dictionnaire abrégé en 10 langues 
192 pages, Réf. 234 


Lexique de poche contenant toutes les définitions et les sigles du langage informatique avec, en plus, 
un dictionnaire abrégé des principaux termes en 10 langues. 


DU COMPOSANT AU SYSTÈME : une introduction aux microprocesseurs, 
Rodnay Zaks 
620 pages, Réf. 239 


Tous les concepts et techniques liés aux microprocesseurs, depuis les principes de base jusqu'à la 
programmation. Une introduction simple et complète. 


TECHNIQUES D'’INTERFACE, Austin Lesea et Rodnay Zaks 


450 pages, Réf. 230, 3° édition 
Exposé clair et systématique sur les méthodes et les composants qui permettent de construire un 
système complet. 


ATTENTION FRAGILE ! Rodnay Zaks 

Comment prendre soin de votre ordinateur 

238 pages, Réf. 238 

La plupart des « pannes d'ordinateur » sont causées par l'ignorance ou la négligence. ATTENTION 
FRAGILE ! est le premier ouvrage qui explique comment éliminer tous les problèmes d'ordinateur. 
Pour tous ceux qui possèdent ou envisagent l'achat d'un microordinateur. 


INTRODUCTION AU p-SYSTEM UCSD, Charles W. Grant et Jon Butah 


250 pages, Réf. 257 
Une introduction simple et claire à l’utilisation du p-SYSTEM UCSD. 


OUVRAGES À PARAÎTRE 


PROGRAMMEZ EN BASIC SUR VIC 20, G.O. Hamann 
2 tomes, Réf. 244-245 


DÉCOUVREZ LE SHARP P.C.-1500 ET LE TRS-80 PC2, M. Lhoir 
Tome | : L'Ordinateur 


200 pages, Réf. 261 


La plupart de ces ouvrages existent en version anglaise. 
N'hésitez pas à demander notre catalogue. 


EN ANGLAIS 

BASIC EXERCISES FOR THE APPLE 

Jean-Pierre Lamoitier 232 pages, Réf. 0-084 
BASIC EXERCISES FOR THE IBM PERSONAL COMPUTER 
Jean-Pierre Lamoitier 252 pages, Réf. 0-088 
BASIC FOR BUSINESS 

Douglas Hergert 224 pages, Réf. 0-080 
CELESTIAL BASIC : Astronomy on your Computer 

Eric Burgess 228 pages, Réf. 0-087 
INTRODUCTION TO PASCAL (Including UCSD Pascal) 
Rodnay Zaks 422 pages, Réf. 0-066 
DOING BUSINESS WITH PASCAL 

Richard Hergert, Douglas Hergert 380 pages, Réf. 0-091 
MASTERING VISICALC 

Douglas Hergert 224 pages, Réf. 0-090 
DOING BUSINESS WITH VISICALC 

Stanley R. Trost 260 pages, Réf. 0-086 
THE APPLE CONNECTION 

James W. Coffron 228 pages, Réf. 0-085 
PROGRAMMING THE Z8000 

Richard Mateosian 300 pages, Réf. 0-032 
À MICROPROGRAMMED APL IMPLEMENTATION 

Rodnay Zaks 850 pages, Réf. 0-005 
PROGRAMMING THE 6809 

Rodnay Zaks et William Labiak 862 pages, Réf. 0-078 
ADVANCED 6502 PROGRAMMING 

Rodnay Zaks 292 pages, Réf. 0-089 
MASTERING CP/M 

Alan R. Miller 400 pages, Réf. 0-068 
FORTRAN PROGRAMS FOR SCIENTISTS AND ENGINEERS 
Alan R. Miller 320 pages, Réf. 0-082 


YOUR TIMEX SINCLAIR 1000 AND ZX81 
Douglas Hergert 176 pages, Réf. 0-099 


POUR UN CATALOGUE COMPLET 
DE  NOS PUBLICATIONS 


EUROPE 

4, place Félix-Éboué 
75583 Paris Cedex 12 
Tél. : (1) 347.30.20 
Télex : 211801 


U.S.A. 

2344 Sixth Street 
Berkeley, CA 94710 
Tél. : (415) 848.8233 
Télex : 336311 


ALLEMAGNE 
Heyestr. 22 

4000 Düsseldorf 12 
Tél. : (0211) 287066 
Télex : 08588163 


SouLisse et CASSEGRAIN, Imprimeurs, Niort (Deux-Sèvres). 
Dépôt légal 1*° édition : Juin 1982. N° 1998. 
Dépôt légal réimpression : Mars 1983. 


NOUVEAUX JEUX 
D'ORDINATEUR ER 


BASIC 


Voici le complément indispensable du best-seller Jeux 
d'ordinateur en BASIC. 


Jouez en solitaire ou avec des amis à plus de 80 jeux 
passionnants : poursuivez un lièvre bondissant, dressez un 
cheval sauvage, devenez millionnaire, courez en Ferrari, 
participez à un tournoi de chevaliers, traversez le désert en 
dromadaire, combattez à bord de votre vaisseau spatial. 


les meilleurs jeux d’ordinateur 


Tous les jeux sont accompagnés de programmes 
progressifs ainsi que d'instructions très claires. Ils sont écrits 
en Microsoft Basic, Rev. 5.0; un tableau de conversion en 
Basic vous permettra de les adapter. 


L'auteur, 1,0 1 A1, est un spécialiste éminent en 
informatique, passionné par les jeux d'ordinateur aussi bien 
sérieux que distrayants. 


Il est le fondateur et le rédacteur en chef de Creative 
Computing. 


ISBN 2-902414-47-1 
247 98 F 
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